flashterm/settings.cgi

   1 #!/usr/local/bin/perl
   2 # Output the XML settings file
   3
   4 BEGIN { push(@INC, ".."); };
   5 use WebminCore;
   6 $trust_unknown_referers = 1;
   7 &init_config();
   8 print "Content-type: text/plain\n\n";
   9
  10 # Work out host and port
  11 $host = $ENV{'HTTP_HOST'};
  12 $host =~ s/\:\d+$//;
  13 $telnetport = $config{'telnetport'} || 23;
  14
  15 print <<EOF;
  16 <connection
  17         name="FlashTerm"
  18         address="$host"
  19         port="$telnetport"
  20         socket_server_port="843"
  21         info_graphic=""
  22         default_font=""
  23         columns="80"
  24         lines="25"
  25 />
  26 EOF
  27
  28