[olug] perl cgi browser based telnet

[Terry]

perl -MCPAN -e 'install Net::Telnet'

--- Ryan O'Rourke <ryano at ch-gifts.com> wrote:
> I'm working on implementing a browser based telnet
> application for use
> on our LAN.
> I found some Perl code to be dropped into the Apache
> cgi-bin and gave it
> a shot, but I keep getting "500: Internal Server
> Error"
> 
> The httpd error log states:
> Can't locate Net/Telnet.pm in @INC [error log
> snipped here for brevity]
> BEGIN failed--compilation aborted at
> /usr/local/apache/cgi-bin/telnet.pl
> line 3.
> [Fri Jan 23 13:27:43 2004] [error] [client
> 10.1.10.15] Premature end of
> script headers: /usr/local/apache/cgi-bin/telnet.pl
> 
> 'hello_world.pl' works from cgi-bin and 'telnet.pl'
> is chmod 755.
> Can someone help point me in the right direction?
> Thank you.
> 
> -- Ryan
> 
> The code is as follows :
> 
> ------- Begin 'telnet.pl' -------
> #!/usr/bin/perl
>  
> use Net::Telnet;
>  
> $HOST = 'servername.hostnane.com';
> print "Enter the username for the $HOST account: ";
> $username = <STDIN>;
> chomp $username;
>  
> print "Enter the password for the $HOST account: ";
> system('stty -echo');
> $password = <STDIN>;
> system('stty echo');
> chomp $password;
>  
> $telnetobj = new
> Net::Telnet(Timeout=>10,Prompt=>'/elmo \$ $/',
>                                         Errmode
> =>'die');
> print "\nAbout to connect...\n";
> $telnetobj->open($HOST);
>  
> print "Connected!\n";
> print "Trying to log in...\n";
> $telnetobj->login($username, $password);
> print "Logged in!\n";
> @fingeroutput = $telnetobj->cmd('finger');
> print "Logged in!\n";
> @fingeroutput = $telnetobj->cmd('finger');
> print @fingeroutput;
> $telnetobj->close();
> 
> 
> _______________________________________________
> OLUG mailing list
> OLUG at olug.org
> http://lists.olug.org/mailman/listinfo/olug


=====
Terry

__________________________________
Do you Yahoo!?
Yahoo! SiteBuilder - Free web site building tool. Try it!
http://webhosting.yahoo.com/ps/sb/