Files
webmin/dhcpd/restart.cgi
2007-04-12 20:24:50 +00:00

17 lines
370 B
Perl
Executable File

#!/usr/local/bin/perl
# restart.cgi
# Restart the running dhcpd
require './dhcpd-lib.pl';
&ReadParse();
%access = &get_module_acl();
&error_setup($text{'eacl_aviol'});
&error("$text{'eacl_np'} $text{'eacl_papply'}") unless $access{'apply'};
&error_setup($text{'restart_errmsg1'});
$err = &restart_dhcpd();
&error($err) if ($err);
&webmin_log("apply");
&redirect("");