From: Orhan Sumer (sumero@sumero.com)
Date: Tue 27 Jun 2006 - 06:24:14 GMT
Selamlar,
Asagidaki gibi bir script ile Cisco yonlendiriciler uzerinden bazi bilgiler
alacagim, bunu agimizdaki birkac yonlendiriciden almak istiyorum o yuzden
yazdigim scriptin disardan arguman alacak sekilde yazdim ve problem burda
basladi.
Goruceginiz gibi eger $HOST'a ip adresini script icinde girersem hicbir
problem cikartmiyor ve calisiyor, fakat $ARGV[0] degerini $HOST'a atadigimda
yonlendiriciye telnet cekmiyor, hicbir islem yapmiyor.
Yardimlarini bekliyorum
use Net::Telnet::Cisco;
#my $HOST = '10.10.10.150';
my $HOST = $ARGV[0];
use constant USER => 'XXXXXXX';
use constant PSWD => 'YYYYYYY';
use constant ENPD => 'ZZZZZZZZ';
use constant CMND => 'sh ver';
use constant IDLE => 0;
use constant SEEN_ORIGINATE => 1;
$| = 1;
my $debug = 0;
my $session;
if (scalar(@ARGV) ne 1)
{
print("Usage: $0 <router_ip_address> \n");
exit(-1);
}
$session = Net::Telnet::Cisco->new
(
Host => $HOST,
Errmode => "return",
) or do{ print_format( 0, 0 ); exit( 0 );
};
$session->login( USER, PSWD) or do{ print_format( 0, 0 ); exit( 0 );
};
my @output = $session->cmd( CMND );
$session->close;
print @output;
Orhan
_______________________________________________
Linux-programlama mailing list
Linux-programlama@liste.linux.org.tr
http://liste.linux.org.tr/mailman/listinfo/linux-programlama