config_save.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# config_save.cgi
# Save inputs from config.cgi

require './web-lib.pl';
&init_config();
&ReadParse;
$m = $in{'module'};
&read_acl(\%acl);
$acl{$ENV{'REMOTE_USER'},$m} || &error($text{'config_eaccess'});
%access = &get_module_acl(undef, $m);
$access{'noconfig'} && &error($text{'config_ecannot'});

&read_file("$m/config.info", \%info, \@info_order);
&read_file("$m/config.info.$gconfig{'lang'}", \%info, \@info_order);
@info_order = &unique(@info_order);
&read_file("$config_directory/$m/config", \%config);

foreach $c (@info_order) {
	@p = split(/,/, $info{$c});
	if ($p[1] == 0) {
		# Free text input
		$config{$c} = $in{$c};
		}
	elsif ($p[1] == 1 || $p[1] == 4) {
		# One of many
		$config{$c} = $in{$c};
		}
	elsif ($p[1] == 5 || $p[1] == 6) {
		# User or group
		$config{$c} = ($p[2] && $in{$c."_def"} ? "" : $in{$c});
		}
	elsif ($p[1] == 2) {
		# Many of many
		}
	elsif ($p[1] == 3) {
		# Optional free text
		if ($in{$c."_none"}) { $config{$c} = ""; }
		else { $config{$c} = $in{$c}; }
		}
	}
&write_file("$config_directory/$m/config", \%config);
&redirect("/$m/");