From: eldy <>
Date: Mon, 10 Feb 2003 12:20:25 +0000 (+0000)
Subject: Fix bug of not working domain detection.
X-Git-Tag: AWSTATS_5_4_BETA~3
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f236f52788fc7a92d183e07fec7826d35ff5f5cc;p=thirdparty%2FAWStats.git

Fix bug of not working domain detection.
---

diff --git a/wwwroot/cgi-bin/awstats.pl b/wwwroot/cgi-bin/awstats.pl
index 7f49eebc..375c938d 100644
--- a/wwwroot/cgi-bin/awstats.pl
+++ b/wwwroot/cgi-bin/awstats.pl
@@ -1647,6 +1647,7 @@ sub Check_Config {
 		debug(" DirData='$DirData'",2);
 		debug(" DirCgi='$DirCgi'",2);
 		debug(" DirIcons='$DirIcons'",2);
+		debug(" SiteDomain=$SiteDomain",2);
 	}
 	foreach my $extranum (1..@ExtraName-1) {
 		debug(" ExtraConditionType[$extranum] is array ".join(',',@{$ExtraConditionType[$extranum]}),2);
@@ -4657,7 +4658,6 @@ if ($Debug) {
 	debug("QUERY_STRING=$QueryString",2);
 	debug("HTMLOutput=".join(',',keys %HTMLOutput),1);
 	debug("YearRequired=$YearRequired, MonthRequired=$MonthRequired",2);
-	debug("Site domain to analyze=$SiteDomain",1);
 }
 
 # Force SiteConfig if AWSTATS_FORCE_CONFIG is defined
@@ -5429,7 +5429,7 @@ if ($UpdateStats && $FrameName ne 'index' && $FrameName ne 'mainleft') {	# Updat
 			$HostResolved = lc($HostResolved?$HostResolved:$Host);
 			# Resolve Domain
 			if ($PluginsLoaded{'GetCountryCodeByName'}{'geoip'}) { $Domain=GetCountryCodeByName_geoip($HostResolved); }
-			elsif (/\.(\w+)$/) { $Domain=$1; }
+			elsif ($HostResolved =~ /\.(\w+)$/) { $Domain=$1; }
 		}
 		# Store country
 		if ($PageBool) { $_domener_p{$Domain}++; }