firewall/apply.cgi

   1 #!/usr/local/bin/perl
   2 # apply.cgi
   3 # Apply the current firewall configuration
   4
   5 require './firewall-lib.pl';
   6 &ReadParse();
   7 $access{'apply'} || &error($text{'apply_ecannot'});
   8 &error_setup($text{'apply_err'});
   9 $err = &apply_configuration();
  10 &error($err) if ($err);
  11 $err = &apply_cluster_configuration();
  12 &error($err) if ($err);
  13 &webmin_log("apply");
  14 &redirect("index.cgi?table=$in{'table'}");
  15