From: eldy <>
Date: Fri, 2 Nov 2001 02:56:57 +0000 (+0000)
Subject: Cleaner keywords extraction
X-Git-Tag: AWSTATS_1_0~57
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b6869cfc4c42b8475d4fb38ea9ccab1dfd8ec87e;p=thirdparty%2FAWStats.git

Cleaner keywords extraction
---

diff --git a/wwwroot/cgi-bin/awstats.pl b/wwwroot/cgi-bin/awstats.pl
index 20c61430..0950baca 100644
--- a/wwwroot/cgi-bin/awstats.pl
+++ b/wwwroot/cgi-bin/awstats.pl
@@ -82,7 +82,7 @@ $WarningMessages= 1;
 %MonthBytes = %MonthHits = %MonthHostsKnown = %MonthHostsUnknown = %MonthPages = %MonthUnique = %MonthVisits =
 %monthlib = %monthnum = ();
 
-$VERSION="3.2 (build 40)";
+$VERSION="3.2 (build 41)";
 $Lang="en";
 
 # Default value
@@ -252,7 +252,7 @@ sub tab_end {
 }
 
 sub UnescapeURLParam {
-	$_[0] =~ tr/\+\'\(\)\",/     /s;								# "&" and "=" must not be in this list
+	$_[0] =~ tr/\+\'\(\)\",/      /s;								# "&" and "=" must not be in this list
 	$_[0] =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;		# Decode encoded URL
 }
 
@@ -2208,8 +2208,8 @@ if ($UpdateStats) {
 								my @paramlist=split(/&/,$refurl[1]);
 								if ($SearchEnginesKnownUrl{$key}) {		# Search engine with known URL syntax
 									foreach my $param (@paramlist) {
-#										if ($param =~ /^$SearchEnginesKnownUrl{$key}/) { 	# We found good parameter
-#											$param =~ s/^$SearchEnginesKnownUrl{$key}//;	# Cut "xxx="
+										#if ($param =~ /^$SearchEnginesKnownUrl{$key}/) { 	# We found good parameter
+										#	$param =~ s/^$SearchEnginesKnownUrl{$key}//;	# Cut "xxx="
 										if ($param =~ s/^$SearchEnginesKnownUrl{$key}//) { 	# We found good parameter
 											# Ok, "cache:www/zzz+aaa+bbb/ccc+ddd%20eee'fff,ggg" is a search parameter line
 											&UnescapeURLParam($param);			# Change [ cache:www/zzz+aaa+bbb/ccc+ddd%20eee'fff,ggg ] into [ cache:www/zzz aaa bbb/ccc ddd eee fff ggg]
@@ -2222,7 +2222,7 @@ if ($UpdateStats) {
 												}
 											}
 											else {
-												$param =~ s/^ +//; $param =~ s/ +$//; $param =~ tr/\s/+/s;
+												$param =~ s/^ +//; $param =~ s/ +$//; $param =~ tr/ /\+/s;
 												if ((length $param) > 0) { $_keyphrases{$param}++; }
 											}
 											last;
@@ -2248,7 +2248,7 @@ if ($UpdateStats) {
 											}
 										}
 										else {
-											$param =~ s/^ +//; $param =~ s/ +$//; $param =~ tr/\s/+/s;
+											$param =~ s/^ +//; $param =~ s/ +$//; $param =~ tr/ /\+/s;
 											if ((length $param) > 2) { $_keyphrases{$param}++; }
 										}
 									}