Net::Telnet timed out when logging in

[poolboi]

hi all,
i got time out at my login line of my script
any ideas why this is happening?
i'm on perl 5.10 and on windows XP
it must be te absence of the prompt,
but the problem is i got no idea where to get the prompt
pls help

use Net::Telnet;
 
my $telnet3;
$telnet3 = new Net::Telnet(timeout => 10,
                Errmode => 'die');
 
$telnet3->open('ip_address'); 
$telnet3->login('username', 'password');
@lines = $telnet3->cmd("who");
 
 
open(FILE, ">file.txt");
 
    print FILE ("@lines\n");

print("logged in to the device.\n");

[apl]

You're not testing the error returns on the open or login. Do so, and display any errors. That will give you an idea of where the problem is.

Non-perl comment: did you try pinging the address? Did you manually logon to that box with the specified ID and password?

[regexes]

Hello!

Update: additional info to glide's post below...

See in the Net::Telnet documentation about the last_prompt and dump_log methods.

I like to set my own prompt. That way I always know what I should expect. As mentioned in this node Re: Net::Telent - How to get the prompt displayed after login using telnet?...

To see what the prompt is, use the last_prompt method.

$string = $obj->last_prompt;
$prev = $obj->last_prompt($string);

To set the prompt to your choosing...

$host->login( $username, $password );
my $prompt = "_MYPROMPT_";
$host->prompt("/$prompt\$/");
$host->cmd("prompt = $prompt");

Since I don't exactly what you're doing... you might also want to take a look in the documentation under the Connecting to a Remote MS-Windows Machine section.

Hope it helps..

regexes

[glide]

Hi,

Normally, for the login process, you have to rewrite procedure. And for that you have to use the something like ..

$telnet->waitfor( -match => qr{ogin}  );
$telnet->print($user);
$telnet->waitfor( -match => qr{assword}  );
$telnet->print($password);

and to test the solution, create log file of the telnet with

$telnet->input_log($log_file);
$telnet->dump_log($dump_file);

[poolboi]

hi guys, alright i've managed to use glide's code to work apparently when i use login(), i can't can't to let it work 'cos of i need a prompt which i dunno what it is for windows XP below is my latest code:

#!/perl/bin/perl

use strict;
use Net::Telnet();

my $telnet;

$telnet = new Net::Telnet ( Timeout=>10,
                    
                Errmode=> 'return');

$telnet->open('ip_address')or die "failed to connect:$!"; 
$telnet->waitfor( -match => qr{ogin}  );
$telnet->print("username");
$telnet->waitfor( -match => qr{assword}  );
$telnet->print("password");
$telnet->input_log("C:\\log.txt");
$telnet->dump_log("c:\\dump.txt");


print("login successful");

apparantly no errors is out and it prints login successful.
but the dump_log and input_log doesn't seem to contain any information so i'm not too sure if connection to telnet is made yet.
about what i'm doing i need to connect to SQL database with another proprietary database.
and this proprietary database is in a switch which i need to telnet into.
it's all sorta like a automation thing that i need to help my colleges do for easy documentation.
so now i need to try the first step and that's to establish a connection with telnet..
so how do i know if it's working? hope my code is correct..pls help? thanks

[regexes]

Hmmm... what prompt do you receive when you log in using a telnet client from the command line, i.e. without using perl?

regexes

[poolboi]

alright the prompt i get is as such below


Trying 010200016058....Open









ENTER USERNAME <

after i type in my username
i get
ENTER PASSWORD <
i'm telneting into a proprietary swtich which makes things really difficult

[poolboi]

hi guys, alright i've managed to use glide's code to work apparently when i use login(), i can't can't to let it work 'cos of i need a prompt which i dunno what it is for windows XP below is my latest code:

#!/perl/bin/perl

use strict;
use Net::Telnet();

my $telnet;

$telnet = new Net::Telnet ( Timeout=>10,
                    
                Errmode=> 'return');

$telnet->open('ip_address')or die "failed to connect:$!"; 
$telnet->waitfor( -match => qr{ogin}  );
$telnet->print("username");
$telnet->waitfor( -match => qr{assword}  );
$telnet->print("password");
$telnet->input_log("C:\\log.txt");
$telnet->dump_log("c:\\dump.txt");


print("login successful");

apparantly no errors is out and it prints login successful.
but the dump_log and input_log doesn't seem to contain any information so i'm not too sure if connection to telnet is made yet.
about what i'm doing i need to connect to SQL database with another proprietary database.
and this proprietary database is in a switch which i need to telnet into.
it's all sorta like a automation thing that i need to help my colleges do for easy documentation.
so now i need to try the first step and that's to establish a connection with telnet..
so how do i know if it's working? hope my code is correct..pls help? thanks