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

Add Shorewall::Chains::find_chain()

Browse Source
This commit is contained in:
Tom Eastep 2010-08-16 13:12:12 -07:00
parent 633eba6c90
commit 00837ed503
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -106,6 +106,7 @@ our %EXPORT_TAGS = (
ecn_chain ecn_chain
notrack_chain notrack_chain
first_chains first_chains
find_chain
ensure_chain ensure_chain
ensure_accounting_chain ensure_accounting_chain
ensure_mangle_chain ensure_mangle_chain
@ -176,7 +177,7 @@ our %EXPORT_TAGS = (
Exporter::export_ok_tags('internal'); Exporter::export_ok_tags('internal');
our $VERSION = '4.4_12'; our $VERSION = '4.4_13';
# #
# Chain Table # Chain Table
@ -1070,6 +1071,17 @@ sub new_chain($$)
$chain_table{$table}{$chain} = $chainref; $chain_table{$table}{$chain} = $chainref;
} }
#
# Find a chain
#
sub find_chain($$) {
my ($table, $chain) = @_;
assert( $table && $chain && $chain_table{$table} );
$chain_table{$table}{$chain};
}
# #
# Create a chain if it doesn't exist already # Create a chain if it doesn't exist already
# #
@ -1077,11 +1089,7 @@ sub ensure_chain($$)
{ {
my ($table, $chain) = @_; my ($table, $chain) = @_;
assert( $table && $chain && $chain_table{$table} ); find_chain( $table, $chain ) || new_chain( $table, $chain );
my $ref = $chain_table{$table}{$chain};
$ref || new_chain( $table, $chain );
} }
# #