From cbdca08fea0c3f92f9074e1dc1f3fb8a96140b14 Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Thu, 18 Apr 2013 16:37:54 -0700 Subject: [PATCH] Fix for multiple nfacct patch. Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Accounting.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/Shorewall/Perl/Shorewall/Accounting.pm b/Shorewall/Perl/Shorewall/Accounting.pm index a56a11ada..c7908b92e 100644 --- a/Shorewall/Perl/Shorewall/Accounting.pm +++ b/Shorewall/Perl/Shorewall/Accounting.pm @@ -224,10 +224,9 @@ sub process_accounting_rule1( $$$$$$$$$$$ ) { $target = validate_level $action; } elsif ( $action =~ /^NFACCT\(([\w,]+)\)$/ ) { require_capability 'NFACCT_MATCH', 'The NFACCT action', 's'; - $nfobjects{$1} = 1; $target = ''; my @objects = split_list $1, 'nfacct'; - $rule .= "-m nfacct --nfacct-name $_ " for @objects; + $rule .= "-m nfacct --nfacct-name $_ ", $nfobjects{$_} = 1 for @objects; } else { ( $action, my $cmd ) = split /:/, $action;