restart.cgi

Unix下基于Web的管理工具

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

require './dns-lib.pl';
&ReadParse();
$whatfailed = "Failed to restart named";
kill('HUP', $in{'pid'}) || &error("Failed to signal process $in{'pid'} : $!");
&redirect("");