Forward Firewall: Minor changes...

1) improved convert-outgoingfw. source was wrong when tun+ interface
2) target had always a ":" in ruletable
3) convert-outgoingfw bugfix: ports where not cleared for next rule
This commit is contained in:
Alexander Marx
2013-01-19 20:51:12 +01:00
committed by Michael Tremer
parent 93a5f4a582
commit 99e698d033
4 changed files with 18 additions and 11 deletions

View File

@@ -1654,7 +1654,6 @@ sub gettgtport
my $key=shift;
my $service;
my $prot;
if($hash{$key}[11] eq 'ON' && $hash{$key}[12] ne 'ICMP'){
if($hash{$key}[14] eq 'cust_srv'){
&General::readhasharray("$configsrv", \%customservice);
@@ -1669,8 +1668,9 @@ sub gettgtport
$hash{$key}[15]=~ s/\|/,/g;
$service=$hash{$key}[15];
}
print": $service";
if($service){
print": $service";
}
}elsif($hash{$key}[11] eq 'ON' && $hash{$key}[12] eq 'ICMP'){
print":<br>$hash{$key}[13]";
}