Nazeer Logs

RE: [OT] Perl Telnet script: "#!/usr/bin/perl
use Net::Telnet;
$telnet = Net::Telnet->new
(
Timeout=>10, Prompt=>'/[\$%#>] $/', Host=>'berkeley'
);
$telnet->login('mbutler', 'xxxxx');
@listing = $telnet->cmd('ls');
print @listing;
$telnet->close;"

posted by naz @ 10:53 AM