use DBI;
use FileHandle;
use IPC::Open2;
$| = 1;
print "<HEAD>\n";
print "<TITLE>MySQL Test System - $in{'REMOTE_ADDR'}</TITLE>";
print "</HEAD>\n";
$RX_READ = new FileHandle; $RX_WRITE = new FileHandle;
$WR_READ = new FileHandle; $WR_WRITE = new FileHandle;
$pid = IPC::Open2::open2($RX_READ, $RX_WRITE, "telnet 192.168.102.250");
fcntl ($RX_READ, 4, 04000); fcntl ($WR_READ, 4, 04000);
print "$version\n Telnet is $pid \n";
while (1 ==1){
$pause = 1;
$line = <$RX_READ>; $line =~ s/\n//; $line =~ s/\r//;
if (length ( $line) > 0) {
$pause = 0;
print "$line\n";
if (index ($line, "User :") >= 0 ){
print "USER OK\n";
print $RX_WRITE "\n";
}
if (index ($line, "Password :") >= 0 ){
print "USER OK\n";
print $RX_WRITE "mypass\n";
}
if (index ($line, "-----------------------------------------------------------------------") >= 0 ){
print "USER OK\n";
print $RX_WRITE "EXPERT\n\r";
sleep (2);
print $RX_WRITE "myexpertnumber\n\r";
sleep (2);
print $RX_WRITE "tdsl golden on\n\r";
sleep (30);
print $RX_WRITE "golden channel_data\n\r";
sleep (5);
print $RX_WRITE "NORMAL\n\r";
sleep (2);
print $RX_WRITE "EXIT\n\r";
while ($line = <$RX_READ>){
print $line;
}
kill (9,$pid);
sleep (2);
exit;
}
$line = "";
}
}
|