CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Intermediate:
getting past TERM = (vt100)

 



jaykjoe
New User

Mar 12, 2003, 3:44 PM

Post #1 of 1 (231 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.

 
 


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives