index.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# index.cgi
# Display the telnet applet

require '../web-lib.pl';
&init_config();
&header($text{'index_title'}, "", undef, 1, 1);
print "<hr>\n";

if ($ENV{'HTTPS'} eq 'ON') {
	print "<center><font color=#ff0000>$text{'index_warn'}",
	      "</font></center><br>\n";
	}

$addr = $config{'host'} ? $config{'host'}
			: &to_ipaddress(&get_system_hostname());
print <<EOF;
<center><applet archive=telnet.zip code=appWrapper width=600 height=400>
<param name=applet value=telnet>
<param name=address value=$addr>
<param name=port value=$config{'port'}>
<param name=emulation value=vt320>

<PARAM NAME=VTscrollbar VALUE=right>
<PARAM NAME=VTresize    VALUE=font>
<PARAM NAME=VTfont      VALUE=Courier>
<PARAM NAME=VTfontsize  VALUE=13>
<PARAM NAME=VTid        VALUE=vt220>

$text{'index_nojava'} <p>
</applet><br>
EOF
print &text('index_credits',
	    "http://www.first.gmd.de/persons/leo/java/Telnet/"),
      "</center><hr>\n";
&footer("/", $text{'index'});