extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-02-19 11:11:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

Add a comment

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2010-05-01 08:08:39 -07:00
parent 94c6b37e8e
commit 518416ec2e
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1542,6 +1542,9 @@ sub replace_references1( $$$ ) {
my $tableref = $chain_table{$chainref->{table}}; my $tableref = $chain_table{$chainref->{table}};
my $count = 0; my $count = 0;
my $name = $chainref->{name}; my $name = $chainref->{name};
#
# The caller has ensured that $matches does not contain /! -[piosd] /
#
my $hasp = $matches =~ / -p /; my $hasp = $matches =~ / -p /;
my $hasi = $matches =~ / -i /; my $hasi = $matches =~ / -i /;
my $haso = $matches =~ / -o /; my $haso = $matches =~ / -o /;
@ -1570,6 +1573,7 @@ sub replace_references1( $$$ ) {
s/( !)? -o [^ ]+ / / if $haso; s/( !)? -o [^ ]+ / / if $haso;
s/( !)? -s [^ ]+ / / if $hass; s/( !)? -s [^ ]+ / / if $hass;
s/( !)? -d [^ ]+ / / if $hasd; s/( !)? -d [^ ]+ / / if $hasd;
s/\s+-([jg]) $name($|\s)/$matches -$1 ${target}$2/; s/\s+-([jg]) $name($|\s)/$matches -$1 ${target}$2/;
add_reference ( $fromref, $tableref->{$target} ); add_reference ( $fromref, $tableref->{$target} );
$count++; $count++;
@ -1598,6 +1602,7 @@ sub replace_references1( $$$ ) {
s/( !)? -o [^ ]+ / / if $haso; s/( !)? -o [^ ]+ / / if $haso;
s/( !)? -s [^ ]+ / / if $hass; s/( !)? -s [^ ]+ / / if $hass;
s/( !)? -d [^ ]+ / / if $hasd; s/( !)? -d [^ ]+ / / if $hasd;
s/\s+-[jg] $name($|\s)/$matches -j ${target}$1/; s/\s+-[jg] $name($|\s)/$matches -j ${target}$1/;
$count++; $count++;
trace( $fromref, 'R', $rule, $_ ) if $debug; trace( $fromref, 'R', $rule, $_ ) if $debug;