Files
webmin/ipfw/start.pl
2007-12-12 20:52:07 +00:00

18 lines
277 B
Perl
Executable File

#!/usr/local/bin/perl
# start.pl
# Apply the current firewall configuration
$no_acl_check++;
require './ipfw-lib.pl';
&ReadParse();
$err = &apply_rules();
if ($err) {
$err =~ s/<[^>]*>//g;
print STDERR "Failed to enable firewall : $err\n";
exit(1);
}
else {
exit(0);
}