cluster-webmin/delete_host.cgi

   1 #!/usr/local/bin/perl
   2 # delete_host.cgi
   3 # Remove a managed host from the list
   4
   5 require './cluster-webmin-lib.pl';
   6 &ReadParse();
   7 @hosts = &list_webmin_hosts();
   8 ($host) = grep { $_->{'id'} == $in{'id'} } @hosts;
   9 &delete_webmin_host($host);
  10 &redirect("");
  11