firewall/bootup.cgi

   1 #!/usr/local/bin/perl
   2 # bootup.cgi
   3 # Enable or disable iptables at boot time
   4
   5 require './firewall-lib.pl';
   6 &ReadParse();
   7 $access{'bootup'} || &error($text{'bootup_ecannot'});
   8 if ($in{'boot'}) {
   9         &create_firewall_init();
  10         }
  11 elsif (defined(&disable_at_boot)) {
  12         &disable_at_boot();
  13         }
  14 else {
  15         &foreign_require("init", "init-lib.pl");
  16         &init::disable_at_boot("webmin-iptables");
  17         }
  18 &webmin_log($in{'boot'} ? "bootup" : "bootdown");
  19 &redirect("index.cgi?table=$in{'table'}");
  20