edit_colours.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# edit_colours.cgi
# Edit background, table and heading colours

require './webmin-lib.pl';
&header($text{'colours_title'}, "");
print "<hr>\n";

print $text{'colours_desc'},"<p>\n";
print "<form action=change_colours.cgi>\n";
print "<table border>\n";
print "<tr $tb> <td><b>$text{'colours_header'}</b></td> </tr>\n";
print "<tr $cb> <td><table>\n";

for($i=0; $i<@cs_names; $i++) {
	$cd = $cs_codes[$i];
	print "<tr> <td><b>$cs_names[$i]</b></td>\n";
	printf "<td><input type=radio name=${cd}_def value=1 %s> %s\n",
		defined($gconfig{$cd}) ? "" : "checked",
		$text{'colours_default'};
	printf "&nbsp;&nbsp;<input type=radio name=${cd}_def value=0 %s>\n",
		defined($gconfig{$cd}) ? "checked" : "";
	if ($gconfig{$cd} =~ /(..)(..)(..)/) {
		($r, $g, $b) = ($1, $2, $3);
		}
	else {
		$r = $g = $b = undef;
		}
	print "<font color=#ff0000>R</font>\n";
	print "<input name=${cd}_red size=3 value=\"$r\">\n";
	print "<font color=#00ff00>G</font>\n";
	print "<input name=${cd}_green size=3 value=\"$g\">\n";
	print "<font color=#0000ff>B</font>\n";
	print "<input name=${cd}_blue size=3 value=\"$b\">\n";
	print "</td> </tr>\n";
	}
print "</table></td></tr></table><br>\n";
print "<input type=submit value='$text{'save'}'></form>\n";

print "<hr>\n";
&footer("", $text{'index_return'});