项目文件夹

文件
2026-07-13 13:12:17 +08:00

18 行
277 B
Perl
可执行文件

#!/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);
}