ipfw/stop.pl

   1 #!/usr/local/bin/perl
   2 # stop.pl
   3 # Turn off the firewall
   4
   5 $no_acl_check++;
   6 require './ipfw-lib.pl';
   7 &ReadParse();
   8 $err = &disable_rules();
   9 if ($err) {
  10         $err =~ s/<[^>]*>//g;
  11         print STDERR "Failed to disable firewall : $err\n";
  12         exit(1);
  13         }
  14 else {
  15         exit(0);
  16         }
  17