Parameterize the standard default actions

Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2011-06-11 08:34:37 -07:00
parent 3dd363677c
commit 68bf99ec69
2 changed files with 56 additions and 16 deletions

View File

@ -18,6 +18,26 @@
# IF YOU ARE HAVING CONNECTION PROBLEMS, CHANGING THIS FILE WON'T HELP!!!!!!!!! # IF YOU ARE HAVING CONNECTION PROBLEMS, CHANGING THIS FILE WON'T HELP!!!!!!!!!
# #
############################################################################### ###############################################################################
FORMAT 2
BEGIN PERL
use Shorewall::Config;
my $p1 = read_action_param(1);
if ( defined $p1 && $p1 eq 'audit' ) {
my ( $p2, $p3 ) = ( read_action_param(2) , read_action_param(3) );
set_action_param( 2, 'A_DROP') unless defined $p2;
set_action_param( 3, 'A_REJECT') unless defined $p3;
};
1;
END PERL
DEFAULTS -,DROP,REJECT
#TARGET SOURCE DEST PROTO DPORT SPORT #TARGET SOURCE DEST PROTO DPORT SPORT
# #
# Count packets that come through here # Count packets that come through here
@ -26,31 +46,31 @@ COUNT
# #
# Reject 'auth' # Reject 'auth'
# #
Auth(REJECT) Auth($3)
# #
# Don't log broadcasts # Don't log broadcasts
# #
dropBcast dropBcast($1)
# #
# ACCEPT critical ICMP types # ACCEPT critical ICMP types
# #
AllowICMPs - - icmp AllowICMPs($1) - - icmp
# #
# Drop packets that are in the INVALID state -- these are usually ICMP packets # Drop packets that are in the INVALID state -- these are usually ICMP packets
# and just confuse people when they appear in the log. # and just confuse people when they appear in the log.
# #
dropInvalid dropInvalid($1)
# #
# Drop Microsoft noise so that it doesn't clutter up the log. # Drop Microsoft noise so that it doesn't clutter up the log.
# #
SMB(DROP) SMB($2)
DropUPnP DropUPnP($1)
# #
# Drop 'newnotsyn' traffic so that it doesn't get logged. # Drop 'newnotsyn' traffic so that it doesn't get logged.
# #
dropNotSyn - - tcp dropNotSyn($1) - - tcp
# #
# Drop late-arriving DNS replies. These are just a nuisance and clutter up # Drop late-arriving DNS replies. These are just a nuisance and clutter up
# the log. # the log.
# #
DropDNSrep DropDNSrep($1)

View File

@ -14,6 +14,26 @@
# #
# IF YOU ARE HAVING CONNECTION PROBLEMS, CHANGING THIS FILE WON'T HELP!!!!!!!!! # IF YOU ARE HAVING CONNECTION PROBLEMS, CHANGING THIS FILE WON'T HELP!!!!!!!!!
############################################################################### ###############################################################################
FORMAT 2
BEGIN PERL
use Shorewall::Config;
my $p1 = read_action_param(1);
if ( defined $p1 && $p1 eq 'audit' ) {
my ( $p2, $p3 ) = ( read_action_param(2) , read_action_param(3) );
set_action_param( 2, 'A_DROP') unless defined $p2;
set_action_param( 3, 'A_REJECT') unless defined $p3;
};
1;
END PERL
DEFAULTS -,REJECT,REJECT
#TARGET SOURCE DEST PROTO #TARGET SOURCE DEST PROTO
# #
# Count packets that come through here # Count packets that come through here
@ -22,33 +42,33 @@ COUNT
# #
# Don't log 'auth' -- REJECT # Don't log 'auth' -- REJECT
# #
Auth(REJECT) Auth($3)
# #
# Drop Broadcasts so they don't clutter up the log # Drop Broadcasts so they don't clutter up the log
# (broadcasts must *not* be rejected). # (broadcasts must *not* be rejected).
# #
dropBcast dropBcast($1)
# #
# ACCEPT critical ICMP types # ACCEPT critical ICMP types
# #
AllowICMPs - - icmp AllowICMPs($1) - - icmp
# #
# Drop packets that are in the INVALID state -- these are usually ICMP packets # Drop packets that are in the INVALID state -- these are usually ICMP packets
# and just confuse people when they appear in the log (these ICMPs cannot be # and just confuse people when they appear in the log (these ICMPs cannot be
# rejected). # rejected).
# #
dropInvalid dropInvalid($1)
# #
# Reject Microsoft noise so that it doesn't clutter up the log. # Reject Microsoft noise so that it doesn't clutter up the log.
# #
SMB(REJECT) SMB($2)
DropUPnP DropUPnP($1)
# #
# Drop 'newnotsyn' traffic so that it doesn't get logged. # Drop 'newnotsyn' traffic so that it doesn't get logged.
# #
dropNotSyn - - tcp dropNotSyn($1) - - tcp
# #
# Drop late-arriving DNS replies. These are just a nuisance and clutter up # Drop late-arriving DNS replies. These are just a nuisance and clutter up
# the log. # the log.
# #
DropDNSrep DropDNSrep($1)