I'm using Net::Telnet in my Perl script and I can get through the user
login ok. But when I try to "sudo" to root I can't get there. Any
ideas?
My $TELNET = Net::Telnet->new(Timeout => 10,
Prompt => "/$prompt/",
Errmode => 'return',
Host => "$host");
$TELNET->login($LOGIN, $PASSWD); # I can get this far ok and do
commands
$TELNET->('sudo su -');
$TELNET->waitfor('/Password/');
$TELNET->print("$PASSWD");
$TELNET->waitfor('/root/'); #I get a pattern match time out
on this line
I've tried single and double quote as well as no quote. Can' get past
it.
Don Dukelow
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
