Here is the code I am using, I am looking for a way to get pass the "<-- MORE -->".
The device happens to be a Cisco Pix Firewall, I know there are other cisco telnet perl modules, however they support IOS only which mean Cisco routers - not the Cisco Pix firewall.
Thanks,
Mark
********
#
http://search.cpan.org/~jrogers/Net-Telnet-3.03/lib/Net/Telnet.pm use Net::Telnet;
$telnet = new Net::Telnet ( Timeout=>10,
Errmode=>'die');
$telnet = new Net::Telnet( Timeout => 10,
Errmode=>'die',
,Dump_log => 'dump.log'
,Input_log => 'input.log'
,Output_log => 'output.log');
$telnet->open('192.168.1.2
50');
$telnet->waitfor('/passwor
d: $/i');
$telnet->print('telnet-pas
sword');
$telnet->waitfor('/mypix> $/i');
$telnet->print('en');
$telnet->waitfor('/passwor
d: $/i');
$telnet->print('en-passwor
d');
$output = $telnet->waitfor('/mypix# $/i');
$telnet->print('show config');
****************