close.cgi

Unix下基于Web的管理工具

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

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