#!/usr/bin/perl
# stop.pl
# Turn off the firewall

$no_acl_check++;
require './ipfw-lib.pl';
&ReadParse();
$err = &disable_rules();
if ($err) {
	$err =~ s/<[^>]*>//g;
	print STDERR "Failed to disable firewall : $err\n";
	exit(1);
	}
else {
	exit(0);
	}