Net::Telnet::Cisco - 09/24/05 05:27 PM
All you PERL people out there, this module kicks [censored]. Makes mass cisco device administration a breeze
http://search.cpan.org/~joshua/Net-Telnet-Cisco-1.10/Cisco.pm
And here's a very basic script to illistrate how simple this moldule is to use, and for your tesing enjoyment
http://search.cpan.org/~joshua/Net-Telnet-Cisco-1.10/Cisco.pm
And here's a very basic script to illistrate how simple this moldule is to use, and for your tesing enjoyment
Code
#[censored] YOU STUPID SECURITY SCRIPT (replace with #! line) # # #use strict; use Net::Telnet::Cisco; use Term::ReadKey print "\nusername: "; my $user = <STDIN>; print "\nPassword: "; ReadMode('noecho'); my $pass = ReadLine(0); ReadMode('normal'); print "\n\ndevice: "; my $dev = <STDIN>; print "\ncommand: "; my $cmd = <STDIN>; print "\nWorking..."; chomp ($user, $pass, $dev, $cmd); my $cisco = Net::Telnet::Cisco->new(Host => "$dev"); $cisco->login("$user", "$pass"); my @output = $cisco->cmd($cmd); $cisco->close; print "\n\n@output\n";