extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-12-23 22:58:52 +01:00
Code Issues Packages Projects Releases Wiki Activity

Improve optimizer handling of origin during rule merge

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2016-02-04 12:00:05 -08:00
parent 1c4815358b
commit 894a98f24e
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1191,6 +1191,8 @@ sub merge_rules( $$$ ) {
$toref->{comment} = $fromref->{comment} if exists $fromref->{comment};
}
$toref->{origin} = $fromref->{origin} if $fromref->{origin};
$toref->{target} = $target;
if ( my $targetref = $tableref->{$target} ) {
@ -3106,8 +3108,8 @@ sub calculate_digest( $ ) {
#
# Replace jumps to the passed chain with jumps to the passed target
#
sub replace_references( $$$$;$ ) {
my ( $chainref, $target, $targetopts, $comment, $digest ) = @_;
sub replace_references( $$$$$;$ ) {
my ( $chainref, $target, $targetopts, $comment, $origin, $digest ) = @_;
my $tableref = $chain_table{$chainref->{table}};
my $count = 0;
my $name = $chainref->{name};
@ -3125,6 +3127,7 @@ sub replace_references( $$$$;$ ) {
$_->{target} = $target;
$_->{targetopts} = $targetopts if $targetopts;
$_->{comment} = $comment unless $_->{comment};
$_->{origin} = $origin if $origin;
if ( $targetref ) {
add_reference ( $fromref, $targetref );
@ -3375,7 +3378,8 @@ sub optimize_level4( $$ ) {
replace_references( $chainref,
$firstrule->{target},
$firstrule->{targetopts},
$firstrule->{comment} );
$firstrule->{comment},
$firstrule->{origin} );
$progress = 1;
}
} elsif ( $firstrule->{target} ) {
@ -3595,7 +3599,7 @@ sub optimize_level8( $$$ ) {
if ( $chainref->{digest} eq $chainref1->{digest} ) {
progress_message " Chain $chainref1->{name} combined with $chainref->{name}";
$progress = 1;
replace_references $chainref1, $chainref->{name}, undef, '', 1;
replace_references $chainref1, $chainref->{name}, undef, '', '', 1;
unless ( $chainref->{name} =~ /^~/ || $chainref1->{name} =~ /^%/ ) {
#