Help

Wed, 07 Sep 2005 04:38:01 -0700

Hi,

 

This is sample script that I am trying to execute on Suse8. It creates a telnet session with the machine by providing valid credentials, but the command that I trying to execute at the end the script are not executed

 

But the same script works fine on other versions on Linux like Linux Advance Server2.1

 

Are there some specials settings to be done on Suse8 machine for this script to be run.

 

package CLI::Utils;

require Exporter;

use Net::Telnet;

 

$telnet = new Net::Telnet (Timeout => 20, Prompt => '/ksh\$ $/');

$telnet->open("sles8.ad.infosys.com");

$telnet->waitfor('/login.*$/');

$telnet->print("smuser");

sleep(5);

$telnet->print("firewall");

sleep(5);

$telnet->print (" cd /home/smuser ");

$telnet->print (" cat >> alok.txt");

sleep(2);

$telnet->print("alok");

$telnet->print ("^C");

 

Regards

Alok

 

 

 

**************** CAUTION - Disclaimer *****************
This e-mail contains PRIVILEGED AND CONFIDENTIAL INFORMATION intended solely for the use of the addressee(s). If you are not the intended recipient, please notify the sender by e-mail and delete the original message. Further, you are not to copy, disclose, or distribute this e-mail or its contents to any other person and any such actions are unlawful. This e-mail may contain viruses. Infosys has taken every reasonable precaution to minimize this risk, but is not liable for any damage you may sustain as a result of any virus in this e-mail. You should carry out your own virus checks before opening the e-mail or attachment. Infosys reserves the right to monitor and review the content of all messages sent to or from this e-mail address. Messages sent to or from this e-mail address may be stored on the Infosys e-mail system.
***INFOSYS******** End of Disclaimer ********INFOSYS***
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to