restart.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# restart.cgi
# Restart the running named

require './dhcpd-lib.pl';
&ReadParse();
$whatfailed = $text{'restart_errmsg1'};
kill('TERM', $in{'pid'}) || &error("$text{'restart_errmsg2'} $in{'pid'} : $!");
$out = `$config{'dhcpd_path'} -cf $config{'dhcpd_conf'} $config{'interfaces'} 2>&1`;
if ($?) {
	&error("<pre>$out</pre>");
	}
&redirect("");