mirror of
https://github.com/webmin/webmin.git
synced 2026-02-08 08:19:57 +00:00
29 lines
480 B
Perl
29 lines
480 B
Perl
#!/usr/local/bin/perl
|
|
# Output the XML settings file
|
|
|
|
BEGIN { push(@INC, ".."); };
|
|
use WebminCore;
|
|
$trust_unknown_referers = 1;
|
|
&init_config();
|
|
print "Content-type: text/plain\n\n";
|
|
|
|
# Work out host and port
|
|
$host = $ENV{'HTTP_HOST'};
|
|
$host =~ s/\:\d+$//;
|
|
$telnetport = $config{'telnetport'} || 23;
|
|
|
|
print <<EOF;
|
|
<connection
|
|
name="FlashTerm"
|
|
address="$host"
|
|
port="$telnetport"
|
|
socket_server_port="843"
|
|
info_graphic=""
|
|
default_font=""
|
|
columns="80"
|
|
lines="25"
|
|
/>
|
|
EOF
|
|
|
|
|