If ValidHTTPCodes or ValidSMTPCode is empty, we define it.

diff --git a/wwwroot/cgi-bin/awstats.pl b/wwwroot/cgi-bin/awstats.pl
index 036a825e7e9deb847adece22f7b419d2bae4ac04..d83a0bcf5b39d3e20e50b8d36af852fc47dfe547 100644 (file)
--- a/wwwroot/cgi-bin/awstats.pl
+++ b/wwwroot/cgi-bin/awstats.pl
@@ -96,9 +96,9 @@ $StartSeconds $StartMicroseconds
 $StartSeconds=$StartMicroseconds=0;
 # ----- Variables for config file reading -----
 use vars qw/
-$FoundNotPageList $FoundValidHTTPCodes $FoundValidSMTPCodes
+$FoundNotPageList
 /;
-$FoundNotPageList=$FoundValidHTTPCodes=$FoundValidSMTPCodes=0;
+$FoundNotPageList=0;
 # ----- Config file variables -----
 use vars qw/
 $StaticExt
@@ -1082,14 +1082,10 @@ sub Read_Config {
        if (! $FoundNotPageList) {
                $NotPageList{'gif'}=$NotPageList{'jpg'}=$NotPageList{'jpeg'}=$NotPageList{'png'}=$NotPageList{'bmp'}=1;
        }
-       # If parameter ValidHTTPCodes not found, init for backward compatibility
-       if (! $FoundValidHTTPCodes) {
-               $ValidHTTPCodes{"200"}=$ValidHTTPCodes{"304"}=1;
-       }
-       # If parameter ValidSMTPCodes not found, init for backward compatibility
-       if (! $FoundValidSMTPCodes) {
-               $ValidSMTPCodes{"1"}=$ValidSMTPCodes{"250"}=1;
-       }
+       # If parameter ValidHTTPCodes empty, init for backward compatibility
+       if (! scalar keys %ValidHTTPCodes) { $ValidHTTPCodes{"200"}=$ValidHTTPCodes{"304"}=1; }
+       # If parameter ValidSMTPCodes empty, init for backward compatibility
+       if (! scalar keys %ValidSMTPCodes) { $ValidSMTPCodes{"1"}=$ValidSMTPCodes{"250"}=1; }
 }
 
 #------------------------------------------------------------------------------
@@ -1270,12 +1266,10 @@ sub Parse_Config {
                        }
                if ($param =~ /^ValidHTTPCodes/) {
                        foreach (split(/\s+/,$value))   { $ValidHTTPCodes{$_}=1; }
-                       $FoundValidHTTPCodes=1;
                        next;
                        }
                if ($param =~ /^ValidSMTPCodes/) {
                        foreach (split(/\s+/,$value))   { $ValidSMTPCodes{$_}=1; }
-                       $FoundValidSMTPCodes=1;
                        next;
                        }
                if ($param =~ /^URLWithQueryWithOnlyFollowingParameters$/)      {