#!e:/perl/bin/perl use CGI; use CGI::Session; require "telnet.pm"; print "Content-type:text/html\n\n"; print << "END_OF_MESSAGE";
##
#!e:/perl/bin/perl
use CGI::Session;
use CGI;
print "Content-type:text/html\n\n";
$session = new CGI::Session( "driver:File", $cgi, {Directory=>"C:/temp/"} );
$telnet = $session->param("$teln");
print "\nretrieved from session: $telnet";
$q = new CGI;
if ($telnet)
{
$telnet->print("configure term\n");
$telnet->waitfor('/configure/i');
$telnet->print("exit\n");
$telnet->waitfor('/[\$%#:>].$/i');
$telnet->print("exit\n");
$telnet->waitfor('/[\$%#:>].$/i');
}
else
{
print "Else of telnet: $telnet";
}
print <<"EOM";
EOM