Folks,
I installed NET::SSH2 on my windows box and wrote a little script that
connects to a cisco router and runs a command. This works great, however
when I try to run a second command I get an error ->"return rc = -1". The
first command still runs and produces the output but the second command
produces the error. Is it possible to run more than one command? If so,
anyone have a way to do it?
Code snippet:
#!C:\perl\bin\perl -w
use strict;
use Net::SSH2;
use MIME::Base64;
my $user="user1";
my $pass="T#2&gsd9=";
my $ssh2 = Net::SSH2->new();
$ssh2->debug(1);
$ssh2->connect(1.2.3.4) or die "Unable to connect host $@ \n";
my $dp=decode_base64("$pass");
$ssh2->auth_password("$user","$dp");
my $chan = $ssh2->channel();
$chan->exec('sh ver');
my $buflen = 30000;
my $buf1 = '0' x $buflen;
$chan->read($buf1, $buflen);
print "BUF1:\n", $buf1,"\n";
#try to run another command
$chan->exec('sh int');
my $buf2 = '0' x $buflen;
$chan->read($buf2, $buflen);
print "BUF2:\n", $buf2,"\n";
last few lines of output:
Net::SSH2::Channel::read(size = 30000, ext = 0)
return rc = -1
- read -1 bytes
BUF2:
Net::SSH2::Channel::DESTROY
Net::SSH2::DESTROY object 0x1996a4c
TIA,
David M. Funk
President/CEO
Tivoli Certified Enterprise Consultant
Specializing in Network and Systems Management Solutions
Trinity Solutions
604 Cassandra Dr.
Cranberry Twp., PA 16066
Phone: 724-316-0721
Fax: 724-772-7889
email: <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]
www: <http://www.trinityITsolutions.com>
http://www.trinityITsolutions.com
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
