cfengine/delete_host.cgi

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