extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-06-21 10:18:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

Allow Extension Scripts for Accounting Chains

Browse Source
This commit is contained in:
Tom Eastep 2009-09-15 11:16:37 -07:00
parent 0d651f093b
commit 728ad2fecf
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Shorewall/Perl/Shorewall/Chains.pm
View File

@ -948,6 +948,20 @@ sub ensure_accounting_chain( $ )
$chainref = new_chain 'filter' , $chain unless $chainref; $chainref = new_chain 'filter' , $chain unless $chainref;
$chainref->{accounting} = 1; $chainref->{accounting} = 1;
$chainref->{referenced} = 1; $chainref->{referenced} = 1;
my $file = find_file $chain;
if ( -f $file ) {
progress_message "Processing $file...";
my ( $level, $tag ) = ( '', '' );
unless ( my $return = eval `cat $file` ) {
fatal_error "Couldn't parse $file: $@" if $@;
fatal_error "Couldn't do $file: $!" unless defined $return;
fatal_error "Couldn't run $file" unless $return;
}
}
} }
$chainref; $chainref;