Forward Firewall: removed devel-tags

diff --git a/html/cgi-bin/ovpnmain.cgi b/html/cgi-bin/ovpnmain.cgi
index fb3cb622fa63ba55a6fd25f3c8d852f14746ff87..9be8d3a08590d655201c8f5bf5dfd51581e7d764 100644 (file)
--- a/html/cgi-bin/ovpnmain.cgi
+++ b/html/cgi-bin/ovpnmain.cgi
@@ -173,10 +173,8 @@ sub checkportfw {
        $DPROT= uc ($DPROT);
        &General::readhasharray($confignat, \%natconfig);
        foreach my $key (sort keys %natconfig){
        $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){
                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){
                        if ($value =~ /:/i){
                                my ($a,$b) = split (":",$value);
                                if ($DPROT eq $natconfig{$key}[12] && $DPORT gt $a && $DPORT lt $b){