#!/usr/local/bin/perl
# close.cgi
# Remove some class from the open list

require './cluster-software-lib.pl';
&ReadParse();
open(HEIROPEN, "$module_config_directory/heiropen.$in{'id'}");
@heiropen = <HEIROPEN>;
close(HEIROPEN);
open(HEIROPEN, "> $module_config_directory/heiropen.$in{'id'}");
print HEIROPEN grep { $_ ne "$in{'what'}\n" } @heiropen;
close(HEIROPEN);
&redirect("edit_host.cgi?id=$in{'id'}#$in{'what'}");

