change_colours.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# change_colours.cgi
# Change colour scheme

require './webmin-lib.pl';
&error_setup($text{'colours_err'});
&ReadParse();

for($i=0; $i<@cs_names; $i++) {
	$cd = $cs_codes[$i];
	if ($in{"${cd}_def"}) { delete($gconfig{$cd}); }
	elsif ($in{"${cd}_red"} !~ /^[0-9a-fA-F]{2}$/) {
		&error(&text('colours_ered', $cs_names[$i]));
		}
	elsif ($in{"${cd}_green"} !~ /^[0-9a-fA-F]{2}$/) {
		&error(&text('colours_egreen', $cs_names[$i]));
		}
	elsif ($in{"${cd}_blue"} !~ /^[0-9a-fA-F]{2}$/) {
		&error(&text('colours_eblue', $cs_names[$i]));
		}
	else { $gconfig{$cd} = $in{"${cd}_red"} . $in{"${cd}_green"} .
			       $in{"${cd}_blue"}; }
	}

&write_file("$config_directory/config", \%gconfig);
&redirect("");