Telnet in Perl - urgent

Hi All ,

I have the below requirement:
I have to connect server2 from server1 in perl and then call the batch script present in server2.
PFA the perl file. It is able to create the object but not able to open the connection..

I logs , I am getting "object created". But "Connection opened " is not printed in logs which shows that open command is incorrect
Please Help!!!

Thanks,
Richa

Find more posts tagged with

Comments

Adam Stoller

Hi All ,

I have the below requirement:
I have to connect server2 from server1 in perl and then call the batch script present in server2.
PFA the perl file. It is able to create the object but not able to open the connection..

I logs , I am getting "object created". But "Connection opened " is not printed in logs which shows that open command is incorrect
Please Help!!!

Thanks,
Richa

I don't have a server to telnet into, so I cannot truly debug the process - but you might try adding the indicated line so that your log file provides more details:

...
open (logfile, '>>G:\Interwoven\TeamSite\local\logs\workflow_logs\POC_Telnet.log');
*STDERR = *logfile;
...

Then try running the script the same way that you were and see if there is any more / better information in the logfile.
(Note: the space that shows up in the path for the logfile is a result of the forum software - it's not really there)

Richu

Thanks a lot Adam.
Now I am able to create an object and open a connection but I am getting an error : Hi
G:\Interwoven\TeamSite object created

G:\\Interwoven\\TeamSiteconnection opened timed-out waiting for login prompt at G:\Interwoven\TeamSite\local\config\scripts\POC_Telnet.ipl line 18

Any idea?

Thanks,
Richa

Adam Stoller

Thanks a lot Adam.
Now I am able to create an object and open a connection but I am getting an error : Hi
G:\Interwoven\TeamSite object created

G:\\Interwoven\\TeamSiteconnection opened timed-out waiting for login prompt at G:\Interwoven\TeamSite\local\config\scripts\POC_Telnet.ipl line 18

Any idea?

Thanks,
Richa

Have you tried telneting to that server directly to see what kind of response you're getting?
I've never used the Telnet module, so I'm not sure what it is expecting, and (as I said) I don't have a server to play with right now to try anything out.

Migrateduser

Change your code to look like this.

[PHP]
my $dump_log='G:\Interwoven\TeamSite\local\logs\workflow_logs\POC_Telnet_Output.log';

$t = new Net::Telnet(Timeout => 10,
Dump_log => $dump_log,
Prompt => '/bash\$ $/');
[/PHP]

Note: This forum put extra space in log file path in code above, remove space

It will return back the output from the telnet session and dump it to a log file. Then you can see what your telnet server is sending to you and how you should possibly change your code.

More than likely you will need to change this line.
$t->waitfor('/login: $/i');
Since it may be prompting for something else besides login:.