Files
webmin/firewall/bootup.cgi
2007-04-12 20:24:50 +00:00

21 lines
473 B
Perl
Executable File

#!/usr/local/bin/perl
# bootup.cgi
# Enable or disable iptables at boot time
require './firewall-lib.pl';
&ReadParse();
$access{'bootup'} || &error($text{'bootup_ecannot'});
if ($in{'boot'}) {
&create_firewall_init();
}
elsif (defined(&disable_at_boot)) {
&disable_at_boot();
}
else {
&foreign_require("init", "init-lib.pl");
&init::disable_at_boot("webmin-iptables");
}
&webmin_log($in{'boot'} ? "bootup" : "bootdown");
&redirect("index.cgi?table=$in{'table'}");