dhcpd/restart.cgi

   1 #!/usr/local/bin/perl
   2 # restart.cgi
   3 # Restart the running dhcpd
   4
   5 require './dhcpd-lib.pl';
   6 &ReadParse();
   7 %access = &get_module_acl();
   8 &error_setup($text{'eacl_aviol'});
   9 &error("$text{'eacl_np'} $text{'eacl_papply'}") unless $access{'apply'};
  10
  11 &error_setup($text{'restart_errmsg1'});
  12 $err = &restart_dhcpd();
  13 &error($err) if ($err);
  14 &webmin_log("apply");
  15 &redirect("");
  16