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

Re-factor irule generation

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2013-07-03 10:59:09 -07:00
parent afd66157a5
commit b735b93378
1 changed files with 33 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1427,7 +1427,17 @@ sub push_matches {
DONT_OPTIMIZE if $dont_optimize; DONT_OPTIMIZE if $dont_optimize;
} }
sub push_irule( $$$;@ ) { sub push_irule( $$ ) {
my ( $chainref, $ruleref ) = @_;
push @{$chainref->{rules}}, $ruleref;
trace( $chainref, 'A', @{$chainref->{rules}}, format_rule( $chainref, $ruleref ) ) if $debug;
$ruleref;
}
sub create_irule( $$$;@ ) {
my ( $chainref, $jump, $target, @matches ) = @_; my ( $chainref, $jump, $target, @matches ) = @_;
( $target, my $targetopts ) = split ' ', $target, 2; ( $target, my $targetopts ) = split ' ', $target, 2;
@ -1457,11 +1467,27 @@ sub push_irule( $$$;@ ) {
$chainref->{optflags} |= push_matches( $ruleref, @matches ); $chainref->{optflags} |= push_matches( $ruleref, @matches );
} }
push @{$chainref->{rules}}, $ruleref; push_irule( $chainref, $ruleref );
}
trace( $chainref, 'A', @{$chainref->{rules}}, format_rule( $chainref, $ruleref ) ) if $debug; #
# Clone an existing rule. Only the rule hash itself is cloned; reference values are shared between the new rule
# reference and the old.
#
sub clone_irule( $ ) {
my $oldruleref = $_[0];
my $newruleref = {};
$ruleref; while ( my ( $key, $value ) = each %$oldruleref ) {
if ( reftype $value ) {
my @array = @$value;
$newruleref->{$key} = \@array;
} else {
$newruleref->{$key} = $value;
}
}
$newruleref;
} }
# #
@ -1485,7 +1511,7 @@ sub compare_values( $$ ) {
sub add_irule( $;@ ) { sub add_irule( $;@ ) {
my ( $chainref, @matches ) = @_; my ( $chainref, @matches ) = @_;
push_irule( $chainref, '' => '', @matches ); create_irule( $chainref, '' => '', @matches );
} }
@ -1586,26 +1612,6 @@ sub insert_irule( $$$$;@ ) {
$ruleref; $ruleref;
} }
#
# Clone an existing rule. Only the rule hash itself is cloned; reference values are shared between the new rule
# reference and the old.
#
sub clone_irule( $ ) {
my $oldruleref = $_[0];
my $newruleref = {};
while ( my ( $key, $value ) = each %$oldruleref ) {
if ( reftype $value ) {
my @array = @$value;
$newruleref->{$key} = \@array;
} else {
$newruleref->{$key} = $value;
}
}
$newruleref;
}
# Do final work to 'delete' a chain. We leave it in the chain table but clear # Do final work to 'delete' a chain. We leave it in the chain table but clear
# the 'referenced', 'rules', and 'references' members. # the 'referenced', 'rules', and 'references' members.
# #
@ -2312,9 +2318,9 @@ sub add_ijump( $$$;@ ) {
$toref->{referenced} = 1; $toref->{referenced} = 1;
add_reference $fromref, $toref; add_reference $fromref, $toref;
$jump = 'j' unless have_capability 'GOTO_TARGET'; $jump = 'j' unless have_capability 'GOTO_TARGET';
$ruleref = push_irule ($fromref, $jump => $to, @matches ); $ruleref = create_irule ($fromref, $jump => $to, @matches );
} else { } else {
$ruleref = push_irule( $fromref, 'j' => $to, @matches ); $ruleref = create_irule( $fromref, 'j' => $to, @matches );
} }
if ( $ruleref->{simple} ) { if ( $ruleref->{simple} ) {