StatisticsAggregationPlugin.inc.php

<?php

/**
 * @file StatisticsAggregationPlugin.inc.php
 *
 * Copyright (c) 2003-2010 John Willinsky
 * Distributed under the GNU GPL v2. For full terms see the file docs/COPYING.
 *
 * @class StatisticsAggregationPlugin
 * @ingroup plugins_generic_statisticsAggregation
 *
 * @brief Statistics Aggregation for Synergies/SUSHI plugin class
 */

// $Id$


import('lib.pkp.classes.plugins.GenericPlugin');

class StatisticsAggregationPlugin extends GenericPlugin {
	/**
	 * Called as a plugin is registered to the registry
	 * @param $category String Name of category plugin was registered to
	 * @return boolean True iff plugin initialized successfully; if false,
	 * 	the plugin will not be registered.
	 */
	function register($category, $path) {
		if (parent::register($category, $path) && $this->getEnabled()) {
			HookRegistry::register('TemplateManager::display', array(&$this, 'callbackSendStatistics'));
			HookRegistry::register('LoadHandler', array(&$this, 'callbackLoadHandler'));
			HookRegistry::register ('Templates::Admin::Index::AdminFunctions', array(&$this, 'displayMenuOption'));
			HookRegistry::register ('Templates::Manager::Index::ManagementPages', array(&$this, 'displayMenuOption'));
			return true;
		} else {
			return false;
		}
	}

	function getDisplayName() {
		return __('plugins.generic.statisticsAggregation.displayName');
	}

	function getDescription() {
		return __('plugins.generic.statisticsAggregation.description');
	}

	/**
	 * Set the page's breadcrumbs, given the plugin's tree of items
	 * to append.
	 * @param $subclass boolean
	 */
	function setBreadcrumbs($isSubclass = false) {
		$templateMgr =& TemplateManager::getManager();
		$pageCrumbs = array(
			array(
				Request::url(null, 'user'),
				'navigation.user'
			),
			array(
				Request::url(null, 'manager'),
				'user.role.manager'
			)
		);
		if ($isSubclass) $pageCrumbs[] = array(
			Request::url(null, 'manager', 'plugins'),
			'manager.plugins'
		);

		$templateMgr->assign('pageHierarchy', $pageCrumbs);
	}

	/**
	 * Display verbs for the management interface.
	 */
	function getManagementVerbs() {
		$verbs = array();
		$verbs[] = array('readme', __('plugins.generic.statisticsAggregation.manager.readme'));
		if ($this->getEnabled()) {
			$verbs[] = array('settings', __('plugins.generic.statisticsAggregation.manager.settings'));
		}
		return parent::getManagementVerbs($verbs);
	}

	/**
	 * build the statistics
	 */
	function callbackSendStatistics($hookName, $params) {

		$templateMgr =& $params[0];
		$template =& $params[1];
		$journal =& Request::getJournal();

		if (!empty($journal) && ! Request::isBot()) {

			$article = $templateMgr->get_template_vars('article');
			$galley = $templateMgr->get_template_vars('galley');
			$statisticsAggregationSiteId = $this->getSetting($journal->getId(), 'statisticsAggregationSiteId');

			switch ($template) {
				case 'article/article.tpl':
				case 'article/interstitial.tpl':
				case 'article/pdfInterstitial.tpl':
				// Log the request as an article view.
					$statsArray = $this->buildStatsArray($galley, $article, $journal->getId());
					$this->sendData($statsArray, $statisticsAggregationSiteId);
				break;
				default:
					$statsArray = $this->buildStatsArray(null, null, $journal->getId()); // regular page view, no galley or article
					if ($statsArray['rp'] != 'manager' && $template != 'rt/rt.tpl') { // do not accumulate stats for journal management pages or research tool bar
						$this->sendData($statsArray, $statisticsAggregationSiteId);
					}
				break;
			}
		}
		return false;
	}

	/**
	 * This handler intercepts requests for web services offered by the plugin.  In this case, it just processes subscriptionIP lookups for now.
	 * @param $hookName The name of the hook being called.
	 * @param $params an array containing $page, $op, and $sourceFile.
	 */
	function callbackLoadHandler($hookName, $params) {

		$page =& $params[0];
		$op =& $params[1];
		$sourceFile =& $params[2];

		if ($page == 'sa' && $op == 'lookup') {

			define('HANDLER_CLASS', 'StatisticsAggregationPageHandler');
			define('STATS_AGGR_PLUGIN_NAME', $this->getName());
			$this->import('StatisticsAggregationPageHandler');
			return true;
		}
		return false;
	}

	/**
	 * @brief encodes the statsArray into JSON and sends it up to the aggregation server through a Socket object.
	 * @param Array $statsArray the array containing information about the page requested.
	 * @param String $statisticsAggregationSiteId the Hash Code for this Journal.
	 */
	function sendData($statsArray, $statisticsAggregationSiteId) {

		import('classes.core.JSON');
		$json = new JSON();
		$json->setAdditionalAttributes($statsArray);
		$jsonString = $json->getString();
		$this->import('StatisticsSocket');
		$statisticsSocket = new StatisticsSocket();
		$statisticsSocket->setJSONString($jsonString);
		$statisticsSocket->setSiteId($statisticsAggregationSiteId);
	}

	/**
	 * @brief examines the context of the current request and assembles an array containing the relevant bits of info we want to collect
	 * @param Object $galley the galley object (HTML or PDF, usually) for this page view, null if a regular non-article page.
	 * @param Article $article the article object representing the current article being viewed, null if a regular non-article page.
	 * @return Array $statsArray the array of our information.
	 */
	function buildStatsArray($galley, $article, $journalId) {

		$statsArray = array();

		if ($galley) {
			if ($galley->isPdfGalley()) {
				$statsArray['mt'] = 'PDF';
			} else if ($galley->isHTMLGalley()) {
				$statsArray['mt'] = 'HTML';
			}
		} else if ($article) {
			$statsArray['mt'] = 'ABSTRACT';
		} else {
			$statsArray['mt'] = '';
		}

		$remoteDomain =& Request::getRemoteDomain();
		$remoteAddr =& Request::getRemoteAddr();

		$subscriptionId = false;
		$subscriptionName = '';

		$subscriptionDao =& DAORegistry::getDAO('InstitutionalSubscriptionDAO');
		$subscriptionId = $subscriptionDao->isValidInstitutionalSubscription($remoteDomain, $remoteAddr, $journalId);

		if ($subscriptionId) {
			$subscription =& $subscriptionDao->getSubscription($subscriptionId);
			$subscriptionName = $subscription->getInstitutionName();
		}

		if (!$subscriptionId && $article) {

			$user =& Request::getUser();

			if ($user != null){

				$datePublished = $article->getDatePublished();
				if ($datePublished == null) {

					$issueId =& $article->getIssueId();
					$issueDao =& DAORegistry::getDAO('IssueDAO');
					$issue =& $issueDao->getIssueById($issueId);
					$datePublished = $issue->getDatePublished();
				}
				if ($datePublished != null) {

					$subscriptionDao =& DAORegistry::getDAO('IndividualSubscriptionDAO');
					$subscriptionId = $subscriptionDao->isValidIndividualSubscription($user->getId(), $journalId, SUBSCRIPTION_DATE_END, $datePublished);
					if ($subscriptionId) {
						$subscription =& $subscriptionDao->getSubscription($subscriptionId);
						$subscriptionName = $subscription->getUserFullName();
					}
				}
			}
		}

		$statsArray['sub'] = $subscriptionName;
		$statsArray['ip'] =& $remoteAddr;
		$statsArray['rp'] =& Request::getRequestedPage();
		$statsArray['ua'] = isset($_SERVER["HTTP_USER_AGENT"]) ? $_SERVER["HTTP_USER_AGENT"] : '';
		$statsArray['ts'] = date('d/M/Y:H:i:s O', time());

		if ($article) {
			$statsArray['title'] = $article->getLocalizedTitle();
			$statsArray['authors'] = $article->getAuthorString();
		} else {
			$statsArray['title'] = '';
		}
		$statsArray['pr'] =& Request::getProtocol();
		$statsArray['host'] =& Request::getServerHost();

		if (isset($_SERVER['HTTP_REFERER']) && $this->isRemoteReferer($statsArray['pr'] . '://' . $statsArray['host'], $_SERVER['HTTP_REFERER'])) {
			$statsArray['ref'] = $_SERVER['HTTP_REFERER'];
		} else {
			$statsArray['ref'] = '';
		}
		$statsArray['uri'] =& Request::getRequestPath();
		return $statsArray;
	}

	/**
	 * @brief determines if a referring document is coming from an off-site location.
	 * @param $docHost the base host of this request (e.g., http://your.journals.site).
	 * @param $referer the full referring document, if there was one.
	 * @return boolean true if the referring document has a different base domain.
	 */
	function isRemoteReferer($docHost, $referer) {
		if (!preg_match("{^" . quotemeta($docHost) . "}", $referer)) {
			return true;
		} else {
			return false;
		}
	}

 	/*
 	 * Execute a management verb on this plugin
 	 * @param $verb string
 	 * @param $args array
	 * @param $message string Location for the plugin to put a result msg
 	 * @return boolean
 	 */
	function manage($verb, $args, &$message) {
		if (!parent::manage($verb, $args, $message)) return false;

		$journal =& Request::getJournal();

		switch ($verb) {

			case 'getNewHash':
				$emailAddress = Request::getUserVar('email');
				$journalTitle =& $journal->getLocalizedTitle();
				$primaryLocale =& $journal->getPrimaryLocale();

				$journalTitle = preg_replace("{/}", " ", $journalTitle);

				if ($emailAddress != '')  {
					$jsonResult = file_get_contents('http://warhammer.hil.unb.ca/index.php/getNewHash/0/' . urlencode($emailAddress) . '/' . urlencode($journalTitle) . '/' . urlencode($primaryLocale));
					echo $jsonResult;
					return true;
				} else {
					return false;
				}
			case 'settings':
				$templateMgr =& TemplateManager::getManager();
				$templateMgr->register_function('plugin_url', array(&$this, 'smartyPluginUrl'));

				$this->import('StatisticsAggregationSettingsForm');
				$form = new StatisticsAggregationSettingsForm($this, $journal->getId());
				if (Request::getUserVar('save')) {
					$form->readInputData();
					if ($form->validate()) {
						$form->execute();
						Request::redirect(null, 'manager', 'plugin');
						return false;
					} else {
						$this->setBreadCrumbs(true);
						$form->display();
					}
				} else {
					$this->setBreadCrumbs(true);
					$form->initData();
					$form->display();
				}
				return true;
			case 'readme':
				Request::redirectUrl('http://warhammer.hil.unb.ca/readme.html');
				return true;
			default:
				// Unknown management verb
				assert(false);
				return false;
		}
	}

	function displayMenuOption($hookName, $args) {

		$params =& $args[0];
		$smarty =& $args[1];
		$output =& $args[2];

		$journal =& Request::getJournal();
		$statisticsAggregationSiteId = $this->getSetting($journal->getId(), 'statisticsAggregationSiteId');
		if ($statisticsAggregationSiteId != '') {
			$output .= '<li>&#187; <a href="http://warhammer.hil.unb.ca/stats/' . $statisticsAggregationSiteId . '/landing.php" target="_blank">' . 
					__('plugins.generic.statisticsAggregation.manager.viewstats') . '</a></li>';
		}
		return false;
	}
}
?>