shorewall/start.cgi

   1 #!/usr/local/bin/perl
   2 # start.cgi
   3 # Make the firewall active
   4
   5 require './shorewall-lib.pl';
   6 if ($access{'nochange'}) {
   7   &redirect("/");
   8   exit 0;
   9 }
  10
  11 &error_setup($text{'start_err'});
  12 $err = &run_before_apply_command();
  13 &error($err) if ($err);
  14 $out = &backquote_logged("$config{'shorewall'} start 2>&1");
  15 if ($?) {
  16         &error("<pre>$out</pre>");
  17         }
  18 $err = &run_after_apply_command();
  19 &webmin_log("start");
  20 &redirect("");
  21