save_auto.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# save_auto.cgi
# Update automatic sync options

require './majordomo-lib.pl';
&ReadParse();
if ($in{'sync'}) {
	$config{"sync_$in{'name'}"} = 1;
	}
else {
	delete($config{"sync_$in{'name'}"});
	}
$config{"shost_$in{'name'}"} = $in{'shost'};
&write_file("$module_config_directory/config", \%config);
&redirect("edit_list.cgi?name=$in{'name'}");