From 49ccb43799b7eff15796ae858297d7c2c9d1bdb3 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Fri, 8 Nov 2002 06:13:56 +0000
Subject: [PATCH] Added page statistic tracking.

---
 docs/upgrades/upgrade_4.7.0-4.8.0.sql | 13 ++++++++++++-
 lib/WebGUI.pm                         |  7 +++++++
 lib/WebGUI/Operation/Settings.pm      |  2 ++
 3 files changed, 21 insertions(+), 1 deletion(-)

diff --git a/docs/upgrades/upgrade_4.7.0-4.8.0.sql b/docs/upgrades/upgrade_4.7.0-4.8.0.sql
index 85231f60e..cbf029184 100644
--- a/docs/upgrades/upgrade_4.7.0-4.8.0.sql
+++ b/docs/upgrades/upgrade_4.7.0-4.8.0.sql
@@ -15,6 +15,17 @@ INSERT INTO template VALUES (1,'Default Article','<tmpl_if image>\r\n  <table wi
 INSERT INTO template VALUES (2,'Center Image','<tmpl_if image>\r\n  <div align=\"center\"><img src=\"<tmpl_var image>\" border=\"0\"></div>\r\n</tmpl_if>\r\n\r\n<tmpl_if description>\r\n  <tmpl_var description><p/>\r\n</tmpl_if>\r\n\r\n<tmpl_if link.url>\r\n  <tmpl_if link.title>\r\n    <p><a href=\"<tmpl_var linkUrl>\"><tmpl_var linkTitle></a>\r\n  </tmpl_if>\r\n</tmpl_if>\r\n\r\n<tmpl_var attachment.box>\r\n\r\n\r\n<tmpl_if allowDiscussion>\r\n  <p><table width=\"100%\" cellspacing=\"2\" cellpadding=\"1\" border=\"0\">\r\n  <tr><td align=\"center\" width=\"50%\" class=\"tableMenu\"><a href=\"<tmpl_var replies.URL>\"><tmpl_var replies.label> (<tmpl_var replies.count>)</a></td>\r\n  <td align=\"center\" width=\"50%\" class=\"tableMenu\"><a href=\"<tmpl_var post.url>\"><tmpl_var post.label></a></td></tr>\r\n  </table>\r\n</tmpl_if>\r\n','Article');
 INSERT INTO template VALUES (3,'Left Align Image','<tmpl_if image>\r\n  <table width=\"100%\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\"><tr><td class=\"content\">\r\n  <img src=\"<tmpl_var image>\" align=\"left\" border=\"0\">\r\n</tmpl_if>\r\n\r\n<tmpl_if description>\r\n  <tmpl_var description><p/>\r\n</tmpl_if>\r\n\r\n<tmpl_if link.url>\r\n  <tmpl_if link.title>\r\n    <p><a href=\"<tmpl_var linkUrl>\"><tmpl_var linkTitle></a>\r\n  </tmpl_if>\r\n</tmpl_if>\r\n\r\n<tmpl_var attachment.box>\r\n\r\n<tmpl_if image>\r\n  </td></tr></table>\r\n</tmpl_if>\r\n\r\n<tmpl_if allowDiscussion>\r\n  <p><table width=\"100%\" cellspacing=\"2\" cellpadding=\"1\" border=\"0\">\r\n  <tr><td align=\"center\" width=\"50%\" class=\"tableMenu\"><a href=\"<tmpl_var replies.URL>\"><tmpl_var replies.label> (<tmpl_var replies.count>)</a></td>\r\n  <td align=\"center\" width=\"50%\" class=\"tableMenu\"><a href=\"<tmpl_var post.url>\"><tmpl_var post.label></a></td></tr>\r\n  </table>\r\n</tmpl_if>\r\n','Article');
 create table userSessionScratch (sessionId varchar(60), name varchar(35), value varchar(255));
-
+create table pageStatistics (
+dateStamp int,
+userId int,
+username varchar(35),
+ipAddress varchar(15),
+userAgent varchar(255),
+referer text,
+pageId int,
+pageTitle varchar(255)
+);
+insert into international (internationalId,languageId,namespace,message,lastUpdated) values (749,1,'WebGUI','Track page statistics?', 1036736182);
+insert into settings values ("trackPageStatistics",0);
 
 
diff --git a/lib/WebGUI.pm b/lib/WebGUI.pm
index 7045e799d..c21765481 100644
--- a/lib/WebGUI.pm
+++ b/lib/WebGUI.pm
@@ -220,6 +220,13 @@ sub page {
 		$operationOutput = _processOperations();
         	$wobjectOutput = _processFunctions();
 	}
+	if ($wobjectOutput eq "" && $operationOutput eq "" && $session{setting}{trackPageStatistics}) {
+		WebGUI::SQL->write("insert into pageStatistics (dateStamp, userId, username, ipAddress, userAgent, referer,
+			pageId, pageTitle) values (".time().",".$session{user}{userId}.",".quote($session{user}{username}).",
+			".quote($session{env}{REMOTE_ADDR}).", ".quote($session{env}{HTTP_USER_AGENT}).",
+			".quote($session{env}{HTTP_REFERER}).", ".$session{page}{pageId}.", 
+			".quote($session{page}{title}).")");
+	}
 	if ($session{header}{mimetype} ne "text/html") {
 		$httpHeader = WebGUI::Session::httpHeader();
 		WebGUI::Session::close();
diff --git a/lib/WebGUI/Operation/Settings.pm b/lib/WebGUI/Operation/Settings.pm
index 7ae3e70fd..19a55d68a 100644
--- a/lib/WebGUI/Operation/Settings.pm
+++ b/lib/WebGUI/Operation/Settings.pm
@@ -210,6 +210,7 @@ sub www_editMiscSettings {
                 $f->hidden("op","editMiscSettingsSave");
 		$f->yesNo("preventProxyCache",WebGUI::International::get(400),$session{setting}{preventProxyCache});
 		$f->yesNo("showDebug",WebGUI::International::get(707),$session{setting}{showDebug});
+		$f->yesNo("trackPageStatistics",WebGUI::International::get(749),$session{setting}{trackPageStatistics});
 		$f->submit;
 		$output .= $f->print;
         } else {
@@ -223,6 +224,7 @@ sub www_editMiscSettingsSave {
         if (WebGUI::Privilege::isInGroup(3)) {
 		_saveSetting("preventProxyCache");
 		_saveSetting("showDebug");
+		_saveSetting("trackPageStatistics");
                 return www_manageSettings(); 
         } else {
                 return WebGUI::Privilege::adminOnly();