Net::Telnet - cant able to connect from public IP to public IP

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

hi monks,
i am trying to access some files from one system to another system where i gave public ip to both the systems, programatically(in perl) using Net::Telnet i am trying to connect to the other system but i am not able to connect can u kindly help me

the Following code which i am trying to execute

    
    use Net::Telnet; 
    
    my $t = new Net::Telnet (Timeout => 100, Prompt =>    '/[^ <-]\>/'
+, Errmode => "return") ;    
    
        $username = "administrator";
    
        $passwd = "";
    
      
        $t->open("hostname");
    
    
        $t->login($username, $passwd);
    
        
        @lines = $t->cmd('dir');
    
       print "\n @lines";
[download]

20040624 Edit by Corion: Fixed code tags

Comment on Net::Telnet - cant able to connect from public IP to public IP Download Code

Replies are listed 'Best First'.
Re: Net::Telnet - cant able to connect from public IP to public IP by Abigail-II (Bishop) on Jun 24, 2004 at 11:40 UTC
The obvious question is, can you connect using a regular telnet client? If so, where does your connection with Net::Telnet go wrong? Does the connection succeed at the TCP/IP level? Does the other side issue a login/password prompt? Is your password correct? Is your regex for the prompt correct - it looks very suspicious to me, it matches lines where the second character is a `>`, and it's preceded by a character that isn't a space, a `<`, or a `-`? Do you get a timeout? Do you get an error message? Do you have Net::Telnet installed? Abigail	[reply] [d/l]
Re^2: Net::Telnet - cant able to connect from public IP to public IP by sris (Initiate) on Jun 24, 2004 at 11:56 UTC
hi Abigail-II Manually i can able to connect to that system but programatically i am not able to connect as i am having doubt in the prompt syntax my $t = new Net::Telnet (Timeout => 150, Prompt => '/^ <-\>/', Errmode => "return") ; in the above statement the syntax which i used for prompt is '/^ <-\>/' actually it is working properly for one system, but it is not working properly when i change the ip address in the coding i think you got it and kindly help me it is not displaying any errors also	[reply]
Re: Net::Telnet - cant able to connect from public IP to public IP by Abigail-II (Bishop) on Jun 24, 2004 at 12:06 UTC
Different accounts may have different prompts, so if your regex is working for one system, that doesn't mean it should work for another system. If you can't give any details on where the process goes wrong, don't expect many useful answers from us. All we can do is guess - you might get lucky and someone will guess right. But having people have to guess isn't very efficient. Abigail	[reply]
Re^2: Net::Telnet - cant able to connect from public IP to public IP by sris (Initiate) on Jun 24, 2004 at 12:39 UTC
Re: Net::Telnet - cant able to connect from public IP to public IP by Abigail-II (Bishop) on Jun 24, 2004 at 12:48 UTC
Re: Net::Telnet - cant able to connect from public IP to public IP by gri6507 (Deacon) on Jun 24, 2004 at 12:46 UTC
Did you try the suggestions from your earlier post 369017?	[reply]
Re: Net::Telnet - cant able to connect from public IP to public IP by jdavidboyd (Friar) on Jul 01, 2004 at 14:33 UTC
turn on the output files, using dump_log, input_log, option_log, and output_log (read the docs to see how) and you can see what your script is going through as it attempts to connect.	[reply]


Welcome to the Monastery
	PerlMonks