open.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# open.cgi
# Add some class to the open list

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