if( ! defined $ARGV[0] ) {
print "Usage: ssh.pl <host> [ <username> [ <password> ] ]\n";
exit;
}
my ($host, $username, $password) = @ARGV;
$username = $ENV{USER} if $username eq "";
use Expect;
use IO::Pty;
my $spawn = new Expect;
$spawn->raw_pty(1);
$spawn->slave->clone_winsize_from(\*STDIN);
my $PROMPT;
sub winch {
my $signame = shift;
my $pid = $spawn->pid;
$shucks++;
print "count $shucks,pid $pid, SIG$signame\n";
$spawn->slave->clone_winsize_from(\*STDIN);
kill WINCH => $spawn->pid if $spawn->pid;
}
$SIG{WINCH} = \&winch;
$spawn=Expect->spawn("ssh $username\@$host");
my $PROMPT = '[\]\$\>\#]\s$';
my $ret = $spawn->expect(10,
[ qr/\(yes\/no\)\?\s*$/ => sub { $spawn->send("yes\n"); exp_continue; } ],
[ qr/assword:\s*$/ => sub { $spawn->send("$password\n") if defined $password; } ],
[ qr/ogin:\s*$/ => sub { $spawn->send("$username\n"); exp_continue; } ],
[ qr/REMOTE HOST IDEN/ => sub { print "FIX: .ssh/known_hosts\n"; exp_continue; } ],
[ qr/$PROMPT/ => sub { $spawn->send("echo Now try window resizing\n"); } ],
);
$spawn->interact();
exit;