I am trying to connect to an Adtran TSU-IQ frame modem via its telnet interface, but I am having a bit of an issue
actually working with its menu based interface. My short script is below:
#!C:\perl\bin\perl -w
use Net::Telnet;
my $NT = new Net::Telnet();
$NT->open('128.999.999.999'); #obviously not the IP address
$NT->cmd();
my @out1 = $NT->cmd('1\n');
print "OUT1: @out1";
And here is the output from the above script:
C:\Documents and Settings\toms\Desktop>perl isdn.pl
OUT1:
©[3;1H______________________________________________________________
+___________
______©[5;1H©[5;1H 1 - Local Login
©[6;1H 2 - Remote Login
©[7;1H 3 - Logout
©[23;1H_____________________________________________________________
+___________
_______©[24;2H©[KEnter Selection -
I am trying to enter option 1, which is the local login. If I try to pass '1' again using the cmd method, it merely repeats the output again. Any suggestions would be greatly appreciated.
TStanley
--------
People sleep peaceably in their beds at night only because rough men stand ready to do violence on their behalf. -- George Orwell