firewall/cluster.cgi

   1 #!/usr/local/bin/perl
   2 # Show hosts in firewall cluster
   3
   4 require './firewall-lib.pl';
   5 $access{'cluster'} || &error($text{'ecluster'});
   6 &foreign_require("servers", "servers-lib.pl");
   7 &ReadParse();
   8 &ui_print_header(undef, $text{'cluster_title'}, undef, "cluster");
   9
  10 # Show existing servers
  11 @servers = &list_cluster_servers();
  12 if (@servers) {
  13         print "<form action=cluster_delete.cgi>\n";
  14         print "<table border width=100%>\n";
  15         print "<tr $tb> <td width=10><br></td> ",
  16               "<td><b>$text{'cluster_host'}</b></td> ",
  17               "<td><b>$text{'cluster_desc'}</b></td> ",
  18               "<td><b>$text{'cluster_os'}</b></td> </tr>\n";
  19         foreach $s (@servers) {
  20                 print "<tr $cb>\n";
  21                 print "<td width=10><input type=checkbox name=d value=$s->{'id'}></td>\n";
  22                 print "<td>",$s->{'host'},"</td>\n";
  23                 print "<td>",$s->{'desc'} || "<br>","</td>\n";
  24                 foreach $t (@servers::server_types) {
  25                         if ($t->[0] eq $s->{'type'}) {
  26                                 print "<td>$t->[1]</td>\n";
  27                                 }
  28                         }
  29                 print "</tr>\n";
  30                 }
  31         print "</table>\n";
  32         print "<input type=submit value='$text{'cluster_delete'}'></form>\n";
  33         }
  34 else {
  35         print "<b>$text{'cluster_none'}</b><p>\n";
  36         }
  37
  38 # Show buttons to add
  39 print "<form action=cluster_add.cgi>\n";
  40 print "<table width=100%><tr>\n";
  41 @allservers = grep { $_->{'user'} } &servers::list_servers();
  42 %gothost = map { $_->{'id'}, 1 } @servers;
  43 @addservers = grep { !$gothost{$_->{'id'}} } @allservers;
  44 if (@addservers) {
  45         print "<td><input type=submit name=add value='$text{'cluster_add'}'>\n";
  46         print "<select name=server>\n";
  47         foreach $s (@addservers) {
  48                 print "<option value=$s->{'id'}>",
  49                         $s->{'desc'} ? $s->{'desc'} : $s->{'host'},"\n";
  50                 }
  51         print "</select></td>\n";
  52         }
  53 @groups = &servers::list_all_groups(\@allservers);
  54 if (@groups) {
  55         print "<td align=right><input type=submit name=gadd ",
  56               "value='$text{'cluster_gadd'}'>\n";
  57         print "<select name=group>\n";
  58         foreach $g (@groups) {
  59                 print "<option>$g->{'name'}\n";
  60                 }
  61         print "</select></td>\n";
  62         }
  63 print "</tr></table></form>\n";
  64 if (!@allservers) {
  65         print "<b>$text{'cluster_need'}</b><p>\n";
  66         }
  67
  68 &ui_print_footer("", $text{'index_return'});
  69