Net::Telnet timed out when logging in

poolboi has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Net::Telnet timed out when logging in by apl (Monsignor) on Apr 17, 2008 at 09:48 UTC
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?	[reply]
Re: Net::Telnet timed out when logging in by regexes (Hermit) on Apr 17, 2008 at 12:29 UTC
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);` [download] To set the prompt to your choosing... `$host->login( $username, $password ); my $prompt = "_MYPROMPT_"; $host->prompt("/$prompt\$/"); $host->cmd("prompt = $prompt");` [download] 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 ------------------------- Nothing in the world can take the place of persistence. Talent will not; nothing is more common than unsuccessful men with talent. Genius will not; unrewarded genius is almost a proverb. Education will not; the world is full of educated derelicts. Persistence and determination are omnipotent. The slogan "press on" has solved and always will solve the problems of the human race. -- Calvin Coolidge, 30th President of the USA.	[reply] [d/l] [select]
Re: Net::Telnet timed out when logging in by glide (Pilgrim) on Apr 17, 2008 at 10:11 UTC
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);` [download] and to test the solution, create log file of the telnet with `$telnet->input_log($log_file); $telnet->dump_log($dump_file);` [download]	[reply] [d/l] [select]
Re: Net::Telnet timed out when logging in by poolboi (Acolyte) on Apr 18, 2008 at 02:27 UTC
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");` [download] 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	[reply] [d/l]
Re^2: Net::Telnet timed out when logging in by regexes (Hermit) on Apr 18, 2008 at 06:36 UTC
Hmmm... what prompt do you receive when you log in using a telnet client from the command line, i.e. without using perl? regexes	[reply]
Re^3: Net::Telnet timed out when logging in by poolboi (Acolyte) on Apr 18, 2008 at 06:40 UTC
alright the prompt i get is as such below `Trying 010200016058....Open ENTER USERNAME <` [download] after i type in my username i get ENTER PASSWORD < i'm telneting into a proprietary swtich which makes things really difficult	[reply] [d/l]
Re^4: Net::Telnet timed out when logging in by regexes (Hermit) on Apr 18, 2008 at 06:53 UTC
Re^5: Net::Telnet timed out when logging in by poolboi (Acolyte) on Apr 18, 2008 at 07:44 UTC
Re^5: Net::Telnet timed out when logging in by poolboi (Acolyte) on Apr 18, 2008 at 08:33 UTC
Some notes below your chosen depth have not been shown here
Re^2: Net::Telnet timed out when logging in by poolboi (Acolyte) on Apr 18, 2008 at 03:26 UTC
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");` [download] 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	[reply] [d/l]