Re^16: expect.pm header

[amagana]

My script is going but I do not see that the header changed to the hostname

This is how I inserted the changes into my script

#!/usr/bin/perl -w

use warnings;
use strict;
use Expect;

my $filename = "/var/tmp/expect_script.log";
my $timeout = 60;

my @servers = qw(
     remotehost

);


for my $server (@servers) {
# do your thing with $server

    change_password($server);

 }

sub change_password {

      my $system = shift;
      my $ssh = Expect->new('ssh amagana@' . $system);
      my $header = "\r\n\r\n======= system =======\r\n";
$ssh->debug(1);
$ssh->log_file("$filename");
my $my_header = $header;
$ssh->print_log_file($header);
$my_header =~ s/system/$system/;
$ssh->expect ( $timeout,
      [ qr/Password:/],
      [ qr/Are you sure you want to continue connecting \(yes\/no\)?/]

 );

if ($ssh->match() =~ m/Are you sure you want to continue connecting \(
+yes\/no\)?/ ) {
$ssh->send("yes\r");
}

elsif ($ssh->match() =~ m/Password:/ ) {

$ssh->send("mycurrentpassword^\n");

}

$ssh->expect(60, '$');
$ssh->send("su - root\n");
$ssh->expect(60, 'Password:');
$ssh->send("rootpassword\n");
$ssh->expect(60, '#');
$ssh->send("hostname\n");
$ssh->expect(60, '#');
$ssh->send("uptime\n");
$ssh->expect(60, '#');
$ssh->send("passwd amagana\n");
$ssh->expect(60, 'New Password:');
$ssh->send("mynewpassword\n");
$ssh->expect(60, 'Re-enter new Password:');
$ssh->send("mynewpassword\n");
$ssh->expect(60, '#');
$ssh->send("exit\n");
$ssh->expect(60, '$');
$ssh->send("exit\n");
$ssh->close();
}

[sn1987a]

There is an error in the code I provided, and you inserted the lines in a different order. The three lines for the headers in change_password should be:

my $my_header = $header;
$my_header =~ s/system/$system/;
$ssh->print_log_file($my_header); # <<<<< this corrects the error in m
+y previous post

Use these three lines, in the order provided here

[amagana]

Do I place the code you recommended inside  sub change_password ?

Currently I am getting this error now

 
 perl tester-a.pl
Global symbol "$system" requires explicit package name at tester-a.pl 
+line 27.
Global symbol "$ssh" requires explicit package name at tester-a.pl lin
+e 28.
Global symbol "$system" requires explicit package name at tester-a.pl 
+line 30.
Execution of tester-a.pl aborted due to compilation errors.

#!/usr/bin/perl -w

use warnings;
use strict;
use Expect;

my $filename = "/var/tmp/expect_script.log";
my $header = "\r\n\r\n======= system =======\r\n";
my $timeout = 60;

my @servers = qw(
     remotehost
    
);


for my $server (@servers) {
# do your thing with $server

    change_password($server);

 }

sub change_password {

      my $my_header = $header;
      $my_header =~ s/system/$system/;
      $ssh->print_log_file($header);

      my $ssh = Expect->new('ssh amagana@' . $system);

$ssh->debug(1);
$ssh->log_file("$filename");
$ssh->expect ( $timeout,
      [ qr/Password:/],
      [ qr/Are you sure you want to continue connecting \(yes\/no\)?/]

 );

[sn1987a]

Yes, it goes in the subroutine where the other lines involving the header. This should have everything in the right place.

#!/usr/bin/perl -w 

use warnings;
use strict;
use Expect;

my $filename = "/var/tmp/expect_script.log";
my $header = "\r\n\r\n======= system =======\r\n";
my $timeout = 60;  

my @servers = qw(
     remotehost
     
);


sub change_password {
      
      my $system = shift;
      my $ssh = Expect->new('ssh amagana@' . $system);

$ssh->debug(1);
$ssh->log_file("$filename");
my $my_header = $header;
$my_header =~ s/system/$system/;
$ssh->print_log_file($my_header);
$ssh->expect ( $timeout, 
      [ qr/Password:/],
      [ qr/Are you sure you want to continue connecting \(yes\/no\)?/]

 );

if ($ssh->match() =~ m/Are you sure you want to continue connecting \(
+yes\/no\)?
+/ ) { 
$ssh->send("yes\r");
}

elsif ($ssh->match() =~ m/Password:/ ) {

$ssh->send("mycurrentpassword\n");

}

$ssh->expect(60, '$');
$ssh->send("su - root\n");
$ssh->expect(60, 'Password:');
$ssh->send("rootpassword\n");
$ssh->expect(60, '#');
$ssh->send("hostname\n");
$ssh->expect(60, '#');
$ssh->send("uptime\n");
$ssh->expect(60, '#');
$ssh->send("passwd amagana\n");
$ssh->expect(60, 'New Password:');
$ssh->send("mynewpassword\n");
$ssh->expect(60, 'Re-enter new Password:'); 
$ssh->send("mynewpassword\n");
$ssh->expect(60, '#');
$ssh->send("exit\n");
$ssh->expect(60, '$');
$ssh->send("exit\n");
$ssh->close();
}