AutoGenerate

#!e:/perl/bin/perl use CGI; use CGI::Session; require "telnet.pm"; print "Content-type:text/html\n\n"; print << "END_OF_MESSAGE"; AutoGenerate some stuff to collect inputs END_OF_MESSAGE #create cgi object $cgi=new CGI; $session = new CGI::Session( "driver:File", $cgi, {Directory=>"C:/temp/"} ); #create telnet object, and save it in session my $telnet = new Net::Telnet ( Timeout=>1, Errmode=>'return'); $telnet->open(Host=>'hostname', Port=>'port') or die "cannot login"; print "\nLogged: $telnet\n"; $teln = $cgi->param("$telnet"); $session->param($telnet, $teln); ##

##

#!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