ipfw/cluster_delete.cgi

   1 #!/usr/local/bin/perl
   2 # Remove some servers from the managed list
   3
   4 require './ipfw-lib.pl';
   5 &ReadParse();
   6 &foreign_require("servers", "servers-lib.pl");
   7 @servers = &list_cluster_servers();
   8
   9 @d = split(/\0/, $in{'d'});
  10 foreach $id (@d) {
  11         ($server) = grep { $_->{'id'} == $id } @servers;
  12         &delete_cluster_server($server);
  13         }
  14 if (@d == 1) {
  15         &webmin_log("delete", "host", $server->{'host'});
  16         }
  17 else {
  18         &webmin_log("delete", "group", scalar(@d));
  19         }
  20
  21 &redirect("cluster.cgi");
  22