Forward Firewall: removed devel-tags

This commit is contained in:
Alexander Marx
2013-04-23 14:21:52 +02:00
committed by Michael Tremer
parent 6945e46310
commit 139a1ab947

View File

@@ -173,10 +173,8 @@ sub checkportfw {
$DPROT= uc ($DPROT);
&General::readhasharray($confignat, \%natconfig);
foreach my $key (sort keys %natconfig){
$errormessage .= "uzlputz: $natconfig{$key}[30] und $natconfig{$key}[12]<br>";
my @portarray = split (/\|/,$natconfig{$key}[30]);
foreach my $value (@portarray){
$errormessage .= "uzlputz -split portaray: $value<br>";
if ($value =~ /:/i){
my ($a,$b) = split (":",$value);
if ($DPROT eq $natconfig{$key}[12] && $DPORT gt $a && $DPORT lt $b){