reconfig.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# reconfig.cgi
# Save apache configuration

require './apache-lib.pl';
$access{'global'}==1 || &error($text{'reconfig_ecannot'});
&ReadParse();

foreach $m (split(/\0/, $in{'mods'})) {
	push(@mods, "$m/$in{'ver'}");
	}
&read_file("$module_config_directory/site", \%site);
$site{'size'} = $in{'size'};
$site{'modules'} = join(' ', @mods);
&write_file("$module_config_directory/site", \%site);
&redirect("");