edit_log.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# edit_log.cgi
# Logging config form

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

print &text('log_desc', "<tt>$miniserv{'logfile'}</tt>"),"<p>\n";

print "<form action=change_log.cgi>\n";
print "<table border>\n";
print "<tr $tb> <td><b>$text{'log_header'}</b></td> </tr>\n";
print "<tr $cb> <td nowrap>\n";
printf "<input type=radio name=log value=0 %s> $text{'log_disable'}<p>\n",
	!$miniserv{'log'} ? "checked" : "";
printf "<input type=radio name=log value=1 %s> $text{'log_enable'}<br>\n",
	$miniserv{'log'} ? "checked" : "";
printf "&nbsp;&nbsp;&nbsp;<input type=checkbox name=loghost value=1 %s>\n",
	$miniserv{'loghost'} ? "checked" : "";
print "$text{'log_resolv'}<br>\n";
printf "&nbsp;&nbsp;&nbsp;<input type=checkbox name=logclear value=1 %s>\n",
	$miniserv{'logclear'} ? "checked" : "";
print &text('log_clear',
	"<input name=logtime value='$miniserv{'logtime'}' size=10>"),"<br>\n";
print "</td> </tr></table><br>\n";
print "<input type=submit value='$text{'save'}'></form>\n";

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