Handle hostnames with upper-case letters
[webmin.git] / ssh / index.cgi
1 #!/usr/local/bin/perl
2 # index.cgi
3 # Display the SSH applet
4
5 BEGIN { push(@INC, ".."); };
6 use WebminCore;
7 &init_config();
8 &ui_print_header(undef, "SSH Login", "", undef, 1, 1);
9
10 $addr = $config{'host'} ? $config{'host'}
11                         : &to_ipaddress(&get_system_hostname());
12 $config{'port'} = 22 if ($config{'port'} == 23);
13 print <<EOF;
14 <hr>
15 <center><applet archive=mindtermfull.jar code=com.mindbright.application.MindTerm.class width=600 height=420>
16 <param name=te value="xterm-color">
17 <param name=gm value="80x24">
18 <param name=server value="$addr">
19 <param name=port value="$config{'port'}">
20 <param name=cipher value="3des">
21 <param name=sepframe value="false">
22 <param name=quiet value="false">
23 <param name=cmdsh value="true">
24 <param name=verbose value="true">
25 <param name=autoprops value="none">
26 <param name=idhost value="false">
27 <param name=quiet value="true">
28 <param name=alive value="10">
29
30 Your browser does not appear to support java, which this module
31 requires to function. <p>
32 </applet><br>
33 Applet developed under GPL by <a href=http://www.mindbright.se/mindterm/>Mindbright</a>.
34 </center>
35 <hr>
36 EOF
37 &ui_print_footer("/", "index");
38