RE: Telnet module

[Andrew Timberlake-Newell]

 Can someone send me an example of how to use the debugging tools
input_log , and or
 dump_log in the Telnet module.  I'm trying to get a telnet to work
and it appears 
 there is a character that I can't match.  Here is an example of one of
my telnets 
 that work: 

 my ($file, $tn); 
 use Net::Telnet; 
 $tn=new Net::Telnet (Timeout =10,Prompt='//'); 

Anywhere after you have the object in $tn:

  $tn-input_log('log.txt');



___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: Telnet module

[Bullock, Howard A.]

This is what I used to debug a Cisco
Telnet script. 



$session = Net::Telnet::Cisco-new(

 Host
= $host,

 Errmode =
'return',

 Input_log = $RootPath .
logs\\. $host . _input.log,

 Output_log = $RootPath .
logs\\. $host . _output.log,

 Dump_log =
$RootPath . logs\\. $host . _dump.log,

 Timeout =
20);











From:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED]
Sent: Friday, April 16, 2004 10:24
PM
To:
[EMAIL PROTECTED]
Subject: Telnet module






Can someone send me an example of how to use the
debugging tools input_log , and or dump_log in the Telnet module. I'm
trying to get a telnet to work and it appears there is a character that I can't
match. Here is an example of one of my telnets that work: 

my
($file, $tn); 
use
Net::Telnet; 
$tn=new
Net::Telnet (Timeout =10,Prompt='//'); 
$tn-open('xxxmgx1');

$tn-waitfor
('/Login: /'); 
$tn-print('x');

$tn-waitfor
('/password: /'); 
$tn-print('x');

$tn-waitfor
('/:/'); 
$tn-print();

$tn-waitfor
('//'); 
@channels=$tn-cmd('dspchans');

print
@channels; 
exit;


Where
can I add the input_log and or dump_log in the example above? 

Thanks
in advance 

Lloyd






___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs