1#!/usr/local/bin/perl 2# close.cgi 3# Remove some class from the open list 4 5require './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 12