shorewall/stop.cgi

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