itsecur-firewall/list_remote.cgi

   1 #!/usr/bin/perl
   2 # Show a form for setting up remote logging
   3
   4 require './itsecur-lib.pl';
   5 &foreign_require("servers", "servers-lib.pl");
   6 &can_edit_error("remote");
   7 &header($text{'remote_title'}, "",
   8         undef, undef, undef, undef, &apply_button());
   9 print "<hr>\n";
  10
  11 print "<form action=save_remote.cgi method=post>\n";
  12 print "<table border>\n";
  13 print "<tr $tb> <td><b>$text{'remote_header'}</b></td> </tr>\n";
  14 print "<tr $cb> <td><table>\n";
  15
  16 @servers = &servers::list_servers();
  17 ($server) = grep { $_->{'host'} eq $config{'remote_log'} } @servers;
  18
  19 # Show target host
  20 print "<tr> <td><b>$text{'remote_host'}</b></td> <td>\n";
  21 printf "<input type=radio name=host_def value=1 %s> %s\n",
  22         $server ? "" : "checked", $text{'no'};
  23 printf "<input type=radio name=host_def value=0 %s> %s\n",
  24         $server ? "checked" : "", $text{'remote_to'};
  25 printf "<input name=host size=20 value='%s'> %s\n",
  26         $server ? $server->{'host'} : "", $text{'remote_port'};
  27 printf "<input name=port size=10 value='%s'></td> </tr>\n",
  28         $server ? $server->{'port'} : 10000;
  29
  30 # Show login and password
  31 print "<tr> <td><b>$text{'remote_user'}</b></td> <td>\n";
  32 printf "<input name=user size=20 value='%s'></td> </tr>\n",
  33         $server ? $server->{'user'} : "";
  34
  35 print "<tr> <td><b>$text{'remote_pass'}</b></td> <td>\n";
  36 printf "<input name=pass type=password size=20 value='%s'></td> </tr>\n",
  37         $server ? $server->{'pass'} : "";
  38
  39 print "</table></td></tr></table>\n";
  40 print "<input type=submit value='$text{'save'}'></form>\n";
  41
  42 print "<hr>\n";
  43 &footer("", $text{'index_return'});
  44