itsecur-firewall/apply.cgi

   1 #!/usr/bin/perl
   2 # apply.cgi
   3 # Apply the firewall configuration
   4
   5 require './itsecur-lib.pl';
   6 &can_edit_error("apply");
   7 &ReadParse();
   8 &header($text{'apply_title'}, "",
   9         undef, undef, undef, undef, &apply_button());
  10 print "<hr>\n";
  11
  12 print "<p>$text{'apply_doing'}<br>\n";
  13 &enable_routing();
  14 $err = &apply_rules();
  15 if ($err) {
  16         print &text('apply_failed', $err),"<p>\n";
  17         }
  18 else {
  19         print "$text{'apply_done'}<p>\n";
  20         }
  21
  22 print "<hr>\n";
  23 if ($in{'return'}) {
  24         &footer($ENV{'HTTP_REFERER'}, $text{'apply_return'});
  25         }
  26 else {
  27         &footer("", $text{'index_return'});
  28         }
  29 &remote_webmin_log("apply");