firewall/convert.cgi

   1 #!/usr/local/bin/perl
   2 # convert.cgi
   3 # Convert in-kernel firewall rules to the save file, and setup a bootup script
   4
   5 require './firewall-lib.pl';
   6 &ReadParse();
   7 $access{'setup'} || &error($text{'setup_ecannot'});
   8 &error_setup($text{'convert_err'});
   9 &lock_file($iptables_save_file);
  10 if (defined(&unapply_iptables)) {
  11         # Call distro's unapply command
  12         $err = &unapply_iptables();
  13         }
  14 else {
  15         # Manually run iptables-save
  16         $out = &backquote_logged("iptables-save >$iptables_save_file 2>&1");
  17         $err = "<pre>$out</pre>" if ($?);
  18         }
  19 &error($err) if ($err);
  20
  21 if ($in{'atboot'}) {
  22         &create_firewall_init();
  23         }
  24 &unlock_file($iptables_save_file);
  25
  26 &webmin_log("convert");
  27 &redirect("");
  28