<?php
/******************************************************************************
 ShortStat : Short but Sweet
 Functions
 v0.36b
 
 Created: 	04.03.04
 Updated:	05.01.20
 
 By:		Shaun Inman
 			http://www.shauninman.com/
 ******************************************************************************
 Database Connection
 ******************************************************************************/
function SI_pconnect() {
	global $SI_db;
	$horribly = "Could not access the database, please make sure that the appropriate values have been added to the configuration file included in this package.";
	if (@mysql_pconnect($SI_db['server'],$SI_db['username'],$SI_db['password'])) {
		if (@!mysql_select_db($SI_db['database'])) {
			// die($horribly);
			}
		}
	else {
		// die($horribly);
		}
	}


/******************************************************************************
 SI_isIPtoCountryInstalled()
 Confirms the existance of the IP-to-Country database
 ******************************************************************************/
function SI_isIPtoCountryInstalled() {
	global $SI_tables;
	$query="SELECT * FROM $SI_tables[countries] LIMIT 0,1";
	return ($result = mysql_query($query))?mysql_num_rows($result):0;
	}
/******************************************************************************
 SI_determineCountry()
 Determines the viewers country based on their ip address.
 
 This function uses the IP-to-Country Database provided by WebHosting.Info 
 (http://www.webhosting.info), available from 
 http://ip-to-country.webhosting.info.
 ******************************************************************************/
function SI_determineCountry($ip) {
	if (!SI_isIPtoCountryInstalled()) return '';
	
	global $SI_tables;
	$ip = sprintf("%u",ip2long($ip));
	
	$query = "SELECT country_name FROM $SI_tables[countries]
			  WHERE ip_from <= $ip AND
			  ip_to >= $ip";
	if ($result = mysql_query($query)) {
		if ($r = mysql_fetch_array($result)) {
			return trim(ucwords(preg_replace("/([A-Z\xC0-\xDF])/e","chr(ord('\\1')+32)",$r['country_name'])));
			}
		}
	}

/******************************************************************************
 SI_sniffKeywords()
 Sniffs out referrals from search engines (see supported list 
 below) and tries to determine the query string.
 
 Currently supported search engines:
 google.xx
 yahoo.xx
 ******************************************************************************/
function SI_sniffKeywords($url) { // $url should be an array created by parse_url($ref)
	global $SI_tables;	
	
	// Check for google first
	if (preg_match("/google\./i", $url['host'])) {
		parse_str($url['query'],$q);
		// Googles search terms are in "q"
		$searchterms = $q['q'];
		}
	else if (preg_match("/alltheweb\./i", $url['host'])) {
		parse_str($url['query'],$q);
		// All the Web search terms are in "q"
		$searchterms = $q['q'];
		}
	else if (preg_match("/yahoo\./i", $url['host'])) {
		parse_str($url['query'],$q);
		// Yahoo search terms are in "p"
		$searchterms = $q['p'];
		}
	else if (preg_match("/search\.aol\./i", $url['host'])) {
		parse_str($url['query'],$q);
		// Yahoo search terms are in "query"
		$searchterms = $q['query'];
		}
	else if (preg_match("/search\.msn\./i", $url['host'])) {
		parse_str($url['query'],$q);
		// MSN search terms are in "q"
		$searchterms = $q['q'];
		}
	
	if (isset($searchterms) && !empty($searchterms)) {
		// Remove BINARY from the SELECT statement for a case-insensitive comparison
		$exists_query = "SELECT id FROM $SI_tables[searchterms] WHERE searchterms = BINARY '$searchterms'";
		$exists = mysql_query($exists_query);
		
		if (mysql_num_rows($exists)) {
			$e = mysql_fetch_array($exists);
			$query = "UPDATE $SI_tables[searchterms] SET count = (count+1) WHERE id = $e[id]";
			mysql_query($query);
			}
		else {
			$query = "INSERT INTO $SI_tables[searchterms] (searchterms,count) VALUES ('$searchterms',1)";
			mysql_query($query);
			}
		}
	}


/******************************************************************************
 SI_parseUserAgent()
 Attempts to suss out the browser info from its user agent string.
 It is possible to spoof a string though so don't blame me if something doesn't
 seem right. This will need updating as newer browsers are released.
 ******************************************************************************/
function SI_parseUserAgent($ua) {
	$browser['platform']	= "Indeterminable";
	$browser['browser']		= "Indeterminable";
	$browser['version']		= "Indeterminable";
	$browser['majorver']	= "Indeterminable";
	$browser['minorver']	= "Indeterminable";
	
	
	// Test for platform
	if (eregi('Win',$ua)) {
		$browser['platform'] = "Windows";
		}
	else if (eregi('Mac',$ua)) {
		$browser['platform'] = "Macintosh";
		}
	else if (eregi('Linux',$ua)) {
		$browser['platform'] = "Linux";
		}
	
	
	// Test for browser type
	if (eregi('Mozilla/4',$ua) && !eregi('compatible',$ua)) {
		$browser['browser'] = "Netscape";
		eregi('Mozilla/([[:digit:]\.]+)',$ua,$b);
		$browser['version'] = $b[1];
		}
	if (eregi('Mozilla/5',$ua) || eregi('Gecko',$ua)) {
		$browser['browser'] = "Mozilla";
		eregi('rv(:| )([[:digit:]\.]+)',$ua,$b);
		$browser['version'] = $b[2];
		}
	if (eregi('Safari',$ua)) {
		$browser['browser'] = "Safari";
		$browser['platform'] = "Macintosh";
		eregi('Safari/([[:digit:]\.]+)',$ua,$b);
		$browser['version'] = $b[1];
		
		if (eregi('125',$browser['version'])) {
			$browser['version'] 	= 1.2;
			$browser['majorver']	= 1;
			$browser['minorver']	= 2;
			}
		else if (eregi('100',$browser['version'])) {
			$browser['version'] 	= 1.1;
			$browser['majorver']	= 1;
			$browser['minorver']	= 1;
			}
		else if (eregi('85',$browser['version'])) {
			$browser['version'] 	= 1.0;
			$browser['majorver']	= 1;
			$browser['minorver']	= 0;
			}
		else if ($browser['version']<85) {
			$browser['version'] 	= "Pre-1.0 Beta";
			}
		}
	if (eregi('iCab',$ua)) {
		$browser['browser'] = "iCab";
		eregi('iCab/([[:digit:]\.]+)',$ua,$b);
		$browser['version'] = $b[1];
		}
	if (eregi('Firefox',$ua)) {
		$browser['browser'] = "Firefox";
		eregi('Firefox/([[:digit:]\.]+)',$ua,$b);
		$browser['version'] = $b[1];
		}
	if (eregi('Firebird',$ua)) {
		$browser['browser'] = "Firebird";
		eregi('Firebird/([[:digit:]\.]+)',$ua,$b);
		$browser['version'] = $b[1];
		}
	if (eregi('Phoenix',$ua)) {
		$browser['browser'] = "Phoenix";
		eregi('Phoenix/([[:digit:]\.]+)',$ua,$b);
		$browser['version'] = $b[1];
		}
	if (eregi('Camino',$ua)) {
		$browser['browser'] = "Camino";
		eregi('Camino/([[:digit:]\.]+)',$ua,$b);
		$browser['version'] = $b[1];
		}
	if (eregi('Chimera',$ua)) {
		$browser['browser'] = "Chimera";
		eregi('Chimera/([[:digit:]\.]+)',$ua,$b);
		$browser['version'] = $b[1];
		}
	if (eregi('Netscape',$ua)) {
		$browser['browser'] = "Netscape";
		eregi('Netscape[0-9]?/([[:digit:]\.]+)',$ua,$b);
		$browser['version'] = $b[1];
		}
	if (eregi('MSIE',$ua)) {
		$browser['browser'] = "Internet Explorer";
		eregi('MSIE ([[:digit:]\.]+)',$ua,$b);
		$browser['version'] = $b[1];
		}
	if (eregi('Opera',$ua)) {
		$browser['browser'] = "Opera";
		eregi('Opera( |/)([[:digit:]\.]+)',$ua,$b);
		$browser['version'] = $b[2];
		}
	if (eregi('OmniWeb',$ua)) {
		$browser['browser'] = "OmniWeb";
		eregi('OmniWeb/([[:digit:]\.]+)',$ua,$b);
		$browser['version'] = $b[1];
		}
	if (eregi('Konqueror',$ua)) {
		$browser['platform'] = "Linux";

		$browser['browser'] = "Konqueror";
		eregi('Konqueror/([[:digit:]\.]+)',$ua,$b);
		$browser['version'] = $b[1];
		}
	if (eregi('Crawl',$ua) || eregi('bot',$ua) || eregi('slurp',$ua) || eregi('spider',$ua)) {
		$browser['browser'] = "Crawler/Search Engine";
		}
	if (eregi('Lynx',$ua)) {
		$browser['browser'] = "Lynx";
		eregi('Lynx/([[:digit:]\.]+)',$ua,$b);
		$browser['version'] = $b[1];
		}
	if (eregi('Links',$ua)) {
		$browser['browser'] = "Links";
		eregi('\(([[:digit:]\.]+)',$ua,$b);
		$browser['version'] = $b[1];
		}
	
	
	// Determine browser versions
	if ($browser['browser']!='Safari' && $browser['browser'] != "Indeterminable" && $browser['browser'] != "Crawler/Search Engine" && $browser['version'] != "Indeterminable") {
		// Make sure we have at least .0 for a minor version
		$browser['version'] = (!eregi('\.',$browser['version']))?$browser['version'].".0":$browser['version'];
		
		eregi('^([0-9]*).(.*)$',$browser['version'],$v);
		$browser['majorver'] = $v[1];
		$browser['minorver'] = $v[2];
		}
	if (empty($browser['version']) || $browser['version']=='.0') {
		$browser['version']		= "Indeterminable";
		$browser['majorver']		= "Indeterminable";
		$browser['minorver']		= "Indeterminable";
		}
	
	return $browser;
	}

function SI_getKeywords() {
	global $SI_tables;
	$query = "SELECT searchterms, count
			  FROM $SI_tables[searchterms]
			  ORDER BY count DESC
			  LIMIT 0,36";
	
	if ($result = mysql_query($query)) {
		$ul  = "<table cellpadding=\"0\" cellspacing=\"0\" border=\"0\">\n";
		$ul .= "\t<tr><th>Search Strings</th><th class=\"last\">Hits</th></tr>\n";
		while ($r = mysql_fetch_array($result)) {
			$ul .= "\t<tr><td>$r[searchterms]</td><td class=\"last\">$r[count]</td></tr>\n";
			}
		$ul .= "</table>";
		}
	return $ul;
	}


/******************************************************************************
 SI_getReferers()
 Updated 04.06.19 for Andrei Herasimchuk <designbyfire.com>
 Added requested resource as a tooltip
 ******************************************************************************/
function SI_getReferers() {
	global $SI_tables,$SI_display,$tz_offset,$_SERVER;
	
	$query = "SELECT referer, resource, dt 
			  FROM $SI_tables[stats]
			  WHERE referer NOT LIKE '%".SI_trimReferer($_SERVER['SERVER_NAME'])."%' AND 
					referer!='' 
			  ORDER BY dt DESC 
			  LIMIT 0,36";
			  
	if ($result = mysql_query($query)) {
		$ul  = "<table cellpadding=\"0\" cellspacing=\"0\" border=\"0\">\n";
		$ul .= "\t<tr><th>Recent Referrers</th><th class=\"last\">When</th></tr>\n";
		while ($r = mysql_fetch_array($result)) {
			$url = parse_url($r['referer']);
			
			$when = ($r['dt'] >= strtotime(date("j F Y",time())))?gmdate("g:i a",$r['dt']+(((gmdate('I'))?($tz_offset+1):$tz_offset)*3600)):gmdate("M j",$r['dt']+(((gmdate('I'))?($tz_offset+1):$tz_offset)*3600));
			
			$resource = ($r['resource']=="/")?$SI_display["siteshort"]:$r['resource'];
			$ul .= "\t<tr><td><a href=\"$r[referer]\" title=\"$resource\" rel=\"nofollow\">".SI_trimReferer($url['host'])."</a></td><td class=\"last\">$when</td></tr>\n";
			}
		$ul .= "</table>";
		}
	return $ul;
	}


/******************************************************************************
 SI_getDomains()
 Updated 04.06.19 for Andrei Herasimchuk <designbyfire.com>
 Added requested resource as a tooltip
 ******************************************************************************/
function SI_getDomains() {
	global $SI_tables,$SI_display,$_SERVER;
	
	$query = "SELECT domain, referer, resource, COUNT(domain) AS 'total' 
			  FROM $SI_tables[stats]
			  WHERE domain !='".SI_trimReferer($_SERVER['SERVER_NAME'])."' AND 
					domain!='' 
			  GROUP BY domain 
			  ORDER BY total DESC, dt DESC";
	
	if ($result = mysql_query($query)) {
		$ul  = "<table cellpadding=\"0\" cellspacing=\"0\" border=\"0\">\n";
		$ul .= "\t<tr><th>Repeat Referrers</th><th class=\"last\">Hits</th></tr>\n";
		$i=0;
		while ($r = mysql_fetch_array($result)) {
			if ($i < 36) {
				$resource = ($r['resource']=="/")?$SI_display["siteshort"]:$r['resource'];
				$ul .= "\t<tr><td><a href=\"$r[referer]\" title=\"$resource\" rel=\"nofollow\">$r[domain]</a></td><td class=\"last\">$r[total]</td></tr>\n";
				$i++;
				}
			}
		$ul .= "</table>";
		}
	return $ul;
	}


function SI_getCountries() {
	global $SI_tables,$_SERVER;
	
	$query = "SELECT country, COUNT(country) AS 'total' 
			  FROM $SI_tables[stats]
			  WHERE country!='' 
			  GROUP BY country 
			  ORDER BY total DESC";
	
	if ($result = mysql_query($query)) {
		$ul  = "<table cellpadding=\"0\" cellspacing=\"0\" border=\"0\">\n";
		$ul .= "\t<tr><th>Country</th><th class=\"last\">Visits</th></tr>\n";
		$i=0;
		while ($r = mysql_fetch_array($result)) {
			if ($i < 36) {
				$url = parse_url($r['referer']);
				$ul .= "\t<tr><td>$r[country]</td><td class=\"last\">$r[total]</td></tr>\n";
				$i++;
				}
			}
		$ul .= "</table>";
		}
	return $ul;
	}


/******************************************************************************
 SI_getResources()
 Updated 04.06.19 for Andrei Herasimchuk <designbyfire.com>
 Added requesting referrer as a tooltip
 ******************************************************************************/
function SI_getResources() {
	global $SI_tables, $SI_display;
	
	$query = "SELECT resource, referer, COUNT(resource) AS 'requests' 
			  FROM $SI_tables[stats]
			  WHERE 
			  resource NOT LIKE '%/inc/%' 
			  GROUP BY resource
			  ORDER BY requests DESC 
			  LIMIT 0,100";
	
	if ($result = mysql_query($query)) {
		$ul  = "<table cellpadding=\"0\" cellspacing=\"0\" border=\"0\">\n";
		$ul .= "\t<tr><th>Resource</th><th class=\"last\">Requests</th></tr>\n";
		while ($r = mysql_fetch_array($result)) {
			$resource = ($r['resource']=="/")?$SI_display["siteshort"]:SI_truncate($r['resource'],30);
			$referer = (!empty($r['referer']))?$r['referer']:'No referrer';
			$ul .= "\t<tr><td><a href=\"http://".SI_trimReferer($_SERVER['SERVER_NAME'])."$r[resource]\" title=\"$referer\">".$resource."</a></td><td class=\"last\">$r[requests]</td></tr>\n";
			}
		$ul .= "</table>";
		}
	return $ul;
	}


function SI_getPlatforms() {
	global $SI_tables;
	$th = SI_getTotalHits();
	$query = "SELECT platform, COUNT(platform) AS 'total' 
			  FROM $SI_tables[stats]
			  GROUP BY platform
			  ORDER BY total DESC";
	if ($result = mysql_query($query)) {
		$ul  = "<table cellpadding=\"0\" cellspacing=\"0\" border=\"0\">\n";
		$ul .= "\t<tr><th>Platform</th><th class=\"last\">%</th></tr>\n";
		while ($r = mysql_fetch_array($result)) {
			$ul .= "\t<tr><td>$r[platform]</td><td class=\"last\">".number_format(($r['total']/$th)*100)."%</td></tr>\n";
			}
		$ul .= "</table>";
		}
	return $ul;
	}

/******************************************************************************
 SI_getBrowsers()
 Updated 04.06.19 for Andrei Herasimchuk <designbyfire.com>
 Removed distinguishing between browser version
 Will develop better approach for v4
 ******************************************************************************/
function SI_getBrowsers() {
	global $SI_tables,$SI_display;
	$collapse = ($SI_display['collapse'])?'browser':'browser, version';
	$th = SI_getTotalHits();
	$query = "SELECT browser, version, COUNT(*) AS 'total' 
			  FROM $SI_tables[stats]
			  WHERE browser != 'Indeterminable' 
			  GROUP BY $collapse
			  ORDER BY total DESC";
	if ($result = mysql_query($query)) {
		$ul  = "<table cellpadding=\"0\" cellspacing=\"0\" border=\"0\">\n";
		$ul .= "\t<tr><th>Browser</th><th>Version</th><th class=\"last\">%</th></tr>\n";
		while ($r = mysql_fetch_array($result)) {
			$p = number_format(($r['total']/$th)*100);
			// $p = ($p==0)?"&lt;1":$p;
			if ($p>=1) {
				$ul .= "\t<tr><td>$r[browser]</td><td>$r[version]</td><td class=\"last\">$p%</td></tr>\n";
				}
			}
		$ul .= "</table>";
		}
	return $ul;
	}

function SI_getTotalHits() {
	global $SI_tables;
	$query = "SELECT COUNT(*) AS 'total' FROM $SI_tables[stats]";
	if ($result = mysql_query($query)) {
		if ($count = mysql_fetch_array($result)) {
			return $count['total'];
			}
		}
	}
function SI_getFirstHit() {
	global $SI_tables;
	$query = "SELECT dt FROM $SI_tables[stats] ORDER BY dt ASC LIMIT 0,1";
	if ($result = mysql_query($query)) {
		if ($r = mysql_fetch_array($result)) {
			return $r['dt'];
			}
		}
	}
function SI_getUniqueHits() {
	global $SI_tables;
	$query = "SELECT COUNT(DISTINCT remote_ip) AS 'total' FROM $SI_tables[stats]";
	if ($result = mysql_query($query)) {
		if ($count = mysql_fetch_array($result)) {
			return $count['total'];
			}
		}
	}
function SI_getTodaysHits() {
	global $SI_tables,$tz_offset;
	$dt = strtotime(gmdate("j F Y",time()+(((gmdate('I'))?($tz_offset+1):$tz_offset)*3600)));
	$dt = $dt-(3600*2); // The above is off by two hours. Don't know why yet...
	$query = "SELECT COUNT(*) AS 'total' FROM $SI_tables[stats] WHERE dt >= $dt";
	if ($result = mysql_query($query)) {
		if ($count = mysql_fetch_array($result)) {
			return $count['total'];
			}
		}
	}
	
function SI_getTodaysUniqueHits() {
	global $SI_tables,$tz_offset;
	$dt = strtotime(gmdate("j F Y",time()+(((gmdate('I'))?($tz_offset+1):$tz_offset)*3600)));
	$dt = $dt-(3600*2); // The above is off by two hours. Don't know why yet...
	$query = "SELECT COUNT(DISTINCT remote_ip) AS 'total' FROM $SI_tables[stats] WHERE dt >= $dt";
	if ($result = mysql_query($query)) {
		if ($count = mysql_fetch_array($result)) {
			return $count['total'];
			}
		}
	}

/******************************************************************************
 SI_getWeeksHits()
 Created 04.04.24 v0.4b
 Integrated 04.06.19  v0.31b for Andrei Herasimchuk
 ******************************************************************************/
function SI_getWeeksHits() {
	global $SI_tables,$tz_offset;
	
	$dt = strtotime(gmdate("j F Y",time()+(((gmdate('I'))?($tz_offset+1):$tz_offset)*3600)));
	$dt = $dt-(3600*2); // The above is off by two hours. Don't know why yet...
	
	$tmp = "";
	$dt_start = time();
	
	$tmp  = "<table cellpadding=\"0\" cellspacing=\"0\" border=\"0\">\n";
	$tmp .= "\t<tr><th colspan=\"2\">Hits in the last week</th></tr>\n";
	$tmp .= "\t<tr><td class=\"accent\">Day</td><td class=\"accent last\">Hits</td></tr>\n";
	
	for ($i=1; $i<8; $i++) {
		$dt_stop = $dt_start;
		$dt_start = $dt - ($i * 60 * 60 * 24);
		$day = ($i)?gmdate("l, j M Y",$dt_start):"Today, ".gmdate("j M Y",$dt_start);
		$query = "SELECT COUNT(*) AS 'total' FROM $SI_tables[stats] WHERE dt > $dt_start AND dt <=$dt_stop";
		if ($result = mysql_query($query)) {
			if ($count = mysql_fetch_array($result)) {
				$tmp .= "\t<tr><td>$day</td><td class=\"last\">$count[total]</td></tr>\n";
				}
			}
		}
	$tmp .= "</table>";
	return $tmp;
	}

/******************************************************************************
 SI_determineLanguage()
 Added 04.06.27
 Based on code submitted by Gerhard Schoder <buero-schoder.de>
 ******************************************************************************/
function SI_determineLanguage() {
	global $_SERVER;
	if (isset($_SERVER["HTTP_ACCEPT_LANGUAGE"])) {
		// Capture up to the first delimiter (, found in Safari)
		preg_match("/([^,;]*)/",$_SERVER["HTTP_ACCEPT_LANGUAGE"],$langs);
		$lang_choice=$langs[0];
		}
	else { $lang_choice="empty"; }
	return $lang_choice;
	}
/******************************************************************************
 SI_getLanguage()
 Added 04.06.27
 Based on code submitted by Gerhard Schoder <buero-schoder.de>
 ******************************************************************************/
function SI_getLanguage() {
	include_once("languages.php");
	global $SI_tables;
	
	$query = "SELECT COUNT(*) AS 'total' FROM $SI_tables[stats] WHERE language != '' AND language != 'empty'";
	if ($result = mysql_query($query)) {
		if ($count = mysql_fetch_array($result)) {
			$th = $count['total'];
			}
		}
	$query = "SELECT language, COUNT(language) AS 'total' 
			  FROM $SI_tables[stats] 
			  WHERE language != '' AND 
			  language != 'empty' 
			  GROUP BY language
			  ORDER BY total DESC";
	if ($result = mysql_query($query)) {
		$html  = "<table cellpadding=\"0\" cellspacing=\"0\" border=\"0\">\n";
		$html .= "\t<tr><th>Language</th><th class=\"last\">%</th></tr>\n";
		while ($r = mysql_fetch_array($result)) {
			$l = $r['language'];
			$lang = (isset($SI_languages[$l]))?$SI_languages[$l]:$l;
			$per = number_format(($r['total']/$th)*100);
			$per = ($per)?$per:'<1';
			$html .= "\t<tr><td>$lang</td><td class=\"last\">$per%</td></tr>\n";
			}
		$html .= "</table>";
		}
	return $html;
	}

function SI_truncate($var, $len = 120) {
	if (empty ($var)) { return ""; }
	if (strlen ($var) < $len) { return $var; }
	if (preg_match ("/(.{1,$len})\s./ms", $var, $match)) { return $match [1] . "..."; }
	else { return substr ($var, 0, $len) . "..."; }
	}
function SI_trimReferer($r) {
	$r = eregi_replace("http://","",$r);
	$r = eregi_replace("^www.","",$r);
	$r = SI_truncate($r,36);
	
	return $r;
	}
?>