save_sync.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# save_sync.cgi
# Save unix-ppp synchronisation options

require './pap-lib.pl';
&ReadParse();

foreach $s ("add", "change", "delete") {
	if ($in{$s}) { $config{"sync_$s"} = 1; }
	else { delete($config{"sync_$s"}); }
	}
$config{'sync_server'} = $in{'server'};
&write_file("$module_config_directory/config", \%config);
&redirect("");