cluster-software/open.cgi

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