Select Code to Download

Select or download this

#! /usr/bin/perl -w

...
EXIT=$exit
SSH_END
}

Select or download this

localhost: Reading configuration data /home/foo/.ssh/config
localhost: Reading configuration data /etc/ssh_config
localhost: Connecting to 10.0.0.254, port 22.
...
set auth timeout 20
...
foo-> exit

Select or download this

ocalhost: Reading configuration data /home/dlandgre/.ssh/config
localhost: Reading configuration data /etc/ssh_config
localhost: Connecting to 10.0.0.254, port 22.
...

localhost: Entering interactive session.
localhost: Warning: ignoring packet of type 15

Select or download this

  $ssh->register_handler( 15, sub {
    my($s, $pkt) = @_;
    print "\ngot: ", $pkt->get_str, "\n";
  });

Select or download this

Use of uninitialized value in addition (+) at /usr/local/share/perl/5.
+6.1/Net/SSH/Perl/Buffer.pm line 125.
substr outside of string at /usr/local/share/perl/5.6.1/Net/SSH/Perl/B
+uffer.pm line 48.

Use of uninitialized value in print at ./getcfg line 27.
got: