GirishB
New User
Dec 16, 2008, 6:44 AM
Post #1 of 1
(3107 views)
|
|
Need help on Net:Telnet
|
Can't Post
|
|
I am doing telnet from perl with port 1291.
login prompt is like as follows:
Some TEXT.
Please logon...
User: aaccccoouunntt
Password: p*a*s*s*w*o*r*d*
my code is as follows:
#!/usr/bin/perl
$hostname = "localhost";
$username = "account";
$passwd = "password";
## Connect and login.
use Net::Telnet ();
$host = new Net::Telnet (Port => 1291, Timeout => 30);
$host->open($hostname);
$host->login($username, $passwd);
$host->send("6");
$host->send("3");
$host->send("2");
# sleep 10;
$host->close;
I am getting the following error:
timed-out waiting for login prompt at telnet.pl line 11
Please help
|
MAIN
SEARCH
WHO'S 
LOG 