jaykjoe
New User
Mar 12, 2003, 3:44 PM
Post #1 of 1
(178 views)
|
|
getting past TERM = (vt100)
|
Can't Post
|
|
I'm having a problem getting past this after I log in using Net::Telnet.
Here's the code I have:
use Net::Telnet;
$telnet = new Net::Telnet ( Timeout=>10,
Errmode=>'die');
$telnet->open('192.168.168.100');
$telnet->waitfor('/login: $/i');
$telnet->print('blah');
$telnet->waitfor('/Password: $/i');
$telnet->print('blahblah');
$telnet->waitfor('/TERM = (vt100) $/i'); <~~~pattern match timed-out
$telnet->print('vt100');
$telnet->waitfor('/_TERM = (vt100) $/i');
$telnet->print('vt100');
$telnet->waitfor('/fnsw> $/i');
$telnet->print('who');
$output = $telnet->waitfor('/fnsw> $/i');
print $output;
After I log in, this is what I see:
TERM = (vt100)
ORACLE_TERM = (vt100)
homer-aix(root)/usr/root>
I can't figure out this problem. Can anyone help me out? TIA.
|
MAIN
SEARCH
WHO'S 
LOG 