dnsadmin/restart.cgi

   1 #!/usr/local/bin/perl
   2 # restart.cgi
   3 # Restart the running named
   4
   5 require './dns-lib.pl';
   6 &ReadParse();
   7 $whatfailed = "Failed to restart named";
   8 &kill_logged('HUP', $in{'pid'}) ||
   9         &error("Failed to signal process $in{'pid'} : $!");
  10 &webmin_log("apply");
  11 &redirect("");
  12