cluster-software/close.cgi

   1 #!/usr/local/bin/perl
   2 # close.cgi
   3 # Remove some class from the open list
   4
   5 require './cluster-software-lib.pl';
   6 &ReadParse();
   7 @heir = &get_heiropen($in{'id'});
   8 @heir = grep { $_ ne $in{'what'} } @heir;
   9 &save_heiropen(\@heir, $in{'id'});
  10 &redirect("edit_host.cgi?id=$in{'id'}");
  11