<?php
/**
 * Copyright (c) 2012-2014, Agence Française Informatique (AFI). All rights reserved.
 *
 * BOKEH is free software; you can redistribute it and/or modify
 * it under the terms of the GNU AFFERO GENERAL PUBLIC LICENSE as published by
 * the Free Software Foundation.
 *
 * There are special exceptions to the terms and conditions of the AGPL as it
 * is applied to this software (see README file).
 *
 * BOKEH is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU AFFERO GENERAL PUBLIC LICENSE for more details.
 *
 * You should have received a copy of the GNU AFFERO GENERAL PUBLIC LICENSE
 * along with BOKEH; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301  USA
 */


class Class_AdminVar_JsStat {
  public function isTrackerSet() {
    return $this->isGoogleAnalytics() || $this->isPiwik();
  }


  public function isGoogleAnalytics() {
    return ($this->_getGoogleAnalyticsId() != '');
  }


  public function isPiwik() {
    return ($this->getPiwikSiteId() != '');
  }


  public function getTrackerId() {
    return
      $this->isGoogleAnalytics()
      ? $this->_getGoogleAnalyticsId()
      : $this->getPiwikSiteId();
  }


  public function getDomainName() {
    return Class_AdminVar::getNomDomaine();
  }


  public function getPiwikUrl() {
    return $this->_extractFromJsStat("/var u=.*(\/\/[^\"]+)\"/i", 1);
  }


  protected function _getGoogleAnalyticsId() {
    return $this->_extractFromJsStat("/(UA|MO)-[0-9]+-[0-9]/", 0);
  }


  protected function _extractFromJsStat($pattern, $match_index) {
    preg_match($pattern,
               Class_AdminVar::get('JS_STAT'),
               $matches);

    return isset($matches[$match_index])
      ? trim($matches[$match_index])
      : '';
  }


  public function getPiwikSiteId() {
    $script = Class_AdminVar::get('JS_STAT');
    preg_match_all("/setSiteId\',([^\]]+)\]\)/i", $script, $matches);
    return isset($matches[1][0]) ? trim($matches[1][0], " \t\n\r\0\x0B'\"") : '';
  }
}