[cgiapp] Interactive input via telnet
    Yona Eilat 
    Yonae at fundtech.co.il
       
    Sun Nov  4 09:14:30 EST 2007
    
    
  
 
 
Hi,
 
I'm writing Perl program that running on Windows and should connect to
UNIX via Telnet module.
The telnet command should to  execute tuxedo command on Unix side  as
describe below:
 
 
$telnet->cmd("/opt/bea/tuxedo8.1/bin/tmloadcf  GPPconfig.ubb");
 
my question is how can I interactive with the tuxedo command, means to
send an answer as describe below:
 
                             /opt/bea/tuxedo8.1/bin/tmloadcf
GPPconfig.ubb
                            Really overwrite TUXCONFIG file:
/users2/tec3/fundtech/env/GPPconfig [y, q] ? 
 
Please advice how can i send/approve the question , or enable the user
to answer the question online.
below is the part of my program that handling the telnet issues:
 
			    # Connect
---------------------------------------------------------------- #
			    print "Connecting to
$hostname($username:$password)...\n";
			    $telnet = Net::Telnet->new( Timeout =>
$timeout,
	
Prompt => '/[\$%#>] $/' , # The default Prompt is '/[\$%#>] $/'
			                                            Host
=> $hostname );
			
			    $telnet_put = Net::Telnet->new( Timeout =>
$timeout,
	
Prompt => '/[\$%#>] $/' , # The default Prompt is '/[\$%#>] $/'
			                                            Host
=> $hostname );
			
			    $telnet->login($username, $password);
			    print "Login successfully.\n";
			
			    @results =  $telnet->cmd("cd $envPath");
			
			
	
$telnet->cmd("/opt/bea/tuxedo8.1/bin/tmloadcf GPPconfig.ubb");
    
Thanks,
Yona
    
    
More information about the cgiapp
mailing list