From c2b7b37304eb15e02117314af30e5b12df421c5c Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Thu, 26 Aug 2010 10:33:57 -0700
Subject: [PATCH] Fix exclusion in blacklist
Signed-off-by: Tom Eastep <teastep@shorewall.net>
---
Shorewall/Perl/Shorewall/Rules.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/Shorewall/Perl/Shorewall/Rules.pm b/Shorewall/Perl/Shorewall/Rules.pm
index eb3412687..74b577fa3 100644
--- a/Shorewall/Perl/Shorewall/Rules.pm
+++ b/Shorewall/Perl/Shorewall/Rules.pm
@@ -303,7 +303,7 @@ sub setup_blacklist() {
my $target = source_exclusion( $hostref->[3], $chainref );
for my $chain ( first_chains $interface ) {
- add_jump $filter_table->{$chain} , $chainref, 0, "${source}${state}${policy}";
+ add_jump $filter_table->{$chain} , $target, 0, "${source}${state}${policy}";
}
set_interface_option $interface, 'use_input_chain', 1;