extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-11-08 16:54:10 +01:00
Code Issues Packages Projects Releases Wiki Activity

A small optimization on the last restriction removal

Browse Source
This commit is contained in:
Tom Eastep 2009-09-03 18:26:50 -07:00
parent 84bff13e7f
commit 76d9a80df3
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -422,15 +422,16 @@ sub add_commands ( $$;@ ) {
}
sub push_rule( $$ ) {
my ($chainref, $rule) = @_;
my $chainref = $_[0];
my $rule = join( ' ', '-A', $chainref->{name} , $_[1]);
$rule .= qq( -m comment --comment "$comment") if $comment;
if ( $chainref->{cmdlevel} ) {
$rule =~ s/"/\\"/g; #Must preserve quotes in the rule
add_commands $chainref , qq(echo "-A $chainref->{name} $rule" >&3);
add_commands $chainref , qq(echo "$rule" >&3);
} else {
push @{$chainref->{rules}}, join( ' ', '-A' , $chainref->{name}, $rule );
push @{$chainref->{rules}}, $rule;
$chainref->{referenced} = 1;
}
}