dhcpd/start.cgi

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