From: eldy <>
Date: Wed, 7 Jan 2004 07:09:03 +0000 (+0000)
Subject: Fixed: Removed some Perl warning messages.
X-Git-Tag: AWSTATS_6_0_RELEASE~22
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c718bbb9d82783edbf97e8af67d009e6d84e4979;p=thirdparty%2FAWStats.git

Fixed: Removed some Perl warning messages.
---

diff --git a/wwwroot/cgi-bin/awstats.pl b/wwwroot/cgi-bin/awstats.pl
index b81aa14e..a8cf5cc3 100644
--- a/wwwroot/cgi-bin/awstats.pl
+++ b/wwwroot/cgi-bin/awstats.pl
@@ -859,18 +859,18 @@ sub OptimizeArray {
 			# Search if $i elem is already treated by another elem
 			foreach my $j (0..(scalar @arrayunreg)-1) {
 				if ($i == $j) { next; }
-				my $parami=$notcasesensitive?lc(@arrayunreg[$i]):@arrayunreg[$i];
-				my $paramj=$notcasesensitive?lc(@arrayunreg[$j]):@arrayunreg[$j];
+				my $parami=$notcasesensitive?lc($arrayunreg[$i]):$arrayunreg[$i];
+				my $paramj=$notcasesensitive?lc($arrayunreg[$j]):$arrayunreg[$j];
 				if ($Debug) { debug(" Compare $i ($parami) to $j ($paramj)",4); }
 				if (index($parami,$paramj)>-1) {
-					if ($Debug) { debug(" Elem $i (@arrayunreg[$i]) already treated with elem $j (@arrayunreg[$j])",4); }
+					if ($Debug) { debug(" Elem $i ($arrayunreg[$i]) already treated with elem $j ($arrayunreg[$j])",4); }
 					$elemtoremove=$i;
 					last OPTIMIZELOOP;
 				}
 			}
 		}
 		if ($elemtoremove > -1) {
-			if ($Debug) { debug(" Remove elem $elemtoremove - @arrayunreg[$elemtoremove]",4); }
+			if ($Debug) { debug(" Remove elem $elemtoremove - $arrayunreg[$elemtoremove]",4); }
 			splice @arrayunreg, $elemtoremove, 1;
 			$searchlist=$elemtoremove;
 		}
@@ -1113,7 +1113,7 @@ sub Parse_Config {
 		}
 
 		# Remove comments
-		if ($_ =~ /^#/) { next; }
+		if ($_ =~ /^\s*#/) { next; }
 		$_ =~ s/\s#.*$//;
 
 		# Extract param and value
@@ -6462,8 +6462,7 @@ if ($UpdateStats && $FrameName ne 'index' && $FrameName ne 'mainleft') {	# Updat
 			else {
 				$field[$pos_referer] =~ /$regreferer/o;
 				my $refererprot=$1;
-				my $refererserver=$2.($3 eq ':80'?'':$3);	# refererserver is www.xxx.com or www.xxx.com:81 but not www.xxx.com:80
-
+				my $refererserver=($2||'').(! $3 || $3 eq ':80'?'':$3);	# refererserver is www.xxx.com or www.xxx.com:81 but not www.xxx.com:80
 				# HTML link ?
 				if ($refererprot =~ /^http/i) {
 					#if ($Debug) { debug("  Analyze referer refererprot=$refererprot refererserver=$refererserver",5); }