dhcpd/stop.cgi

   1 #!/usr/local/bin/perl
   2 # Attempt to stop dhcpd
   3
   4 require './dhcpd-lib.pl';
   5 %access = &get_module_acl();
   6 &error_setup($text{'eacl_aviol'});
   7 &error("$text{'eacl_np'} $text{'eacl_papply'}") unless $access{'apply'};
   8
   9 &error_setup($text{'stop_err'});
  10 $err = &stop_dhcpd();
  11 &error($err) if ($err);
  12 &webmin_log("stop");
  13 &redirect("");
  14