firewall/unapply.cgi

   1 #!/usr/local/bin/perl
   2 # unapply.cgi
   3 # Revert the firewall configuration from the kernel settings
   4
   5 require './firewall-lib.pl';
   6 &ReadParse();
   7 $access{'unapply'} || &error($text{'unapply_ecannot'});
   8 &error_setup($text{'apply_err'});
   9 if (defined(&unapply_iptables)) {
  10         # Call distro's unapply command
  11         $err = &unapply_iptables();
  12         }
  13 else {
  14         # Manually run iptables-save
  15         $err = &iptables_save();
  16         }
  17 &error($err) if ($err);
  18 &webmin_log("unapply");
  19 &redirect("index.cgi?table=$in{'table'}");
  20