[Summary view] [Print] [Text view]

   1  <?php
   2  // $Id: statistics.admin.inc,v 1.6.2.2 2010/06/02 12:14:48 goba Exp $
   3  
   4  /**
   5   * @file
   6   * Admin page callbacks for the statistics module.
   7   */
   8  
   9  /**
  10   * Menu callback; presents the "recent hits" page.
  11   */
  12  function statistics_recent_hits() {
  13    $header = array(
  14      array('data' => t('Timestamp'), 'field' => 'a.timestamp', 'sort' => 'desc'),
  15      array('data' => t('Page'), 'field' => 'a.path'),
  16      array('data' => t('User'), 'field' => 'u.name'),
  17      array('data' => t('Operations'))
  18    );
  19  
  20    $sql = 'SELECT a.aid, a.path, a.title, a.uid, u.name, a.timestamp FROM {accesslog} a LEFT JOIN {users} u ON u.uid = a.uid'. tablesort_sql($header);
  21  
  22    $result = pager_query($sql, 30);
  23    $rows = array();
  24    while ($log = db_fetch_object($result)) {
  25      $rows[] = array(
  26        array('data' => format_date($log->timestamp, 'small'), 'class' => 'nowrap'),
  27        _statistics_format_item($log->title, $log->path),
  28        theme('username', $log),
  29        l(t('details'), "admin/reports/access/$log->aid"));
  30    }
  31  
  32    if (empty($rows)) {
  33      $rows[] = array(array('data' => t('No statistics available.'), 'colspan' => 4));
  34    }
  35  
  36    $output = theme('table', $header, $rows);
  37    $output .= theme('pager', NULL, 30, 0);
  38    return $output;
  39  }
  40  
  41  /**
  42   * Menu callback; presents the "top pages" page.
  43   */
  44  function statistics_top_pages() {
  45    // MAX(title) avoids having empty node titles which otherwise causes duplicates in the top pages list
  46    $sql = "SELECT COUNT(path) AS hits, path, MAX(title) AS title, AVG(timer) AS average_time, SUM(timer) AS total_time FROM {accesslog} GROUP BY path";
  47    $sql_cnt = "SELECT COUNT(DISTINCT(path)) FROM {accesslog}";
  48  
  49    $header = array(
  50      array('data' => t('Hits'), 'field' => 'hits', 'sort' => 'desc'),
  51      array('data' => t('Page'), 'field' => 'path'),
  52      array('data' => t('Average page generation time'), 'field' => 'average_time'),
  53      array('data' => t('Total page generation time'), 'field' => 'total_time')
  54    );
  55    $sql .= tablesort_sql($header);
  56    $result = pager_query($sql, 30, 0, $sql_cnt);
  57  
  58    $rows = array();
  59    while ($page = db_fetch_object($result)) {
  60      $rows[] = array($page->hits, _statistics_format_item($page->title, $page->path), t('%time ms', array('%time' => round($page->average_time))), format_interval(round($page->total_time / 1000)));
  61    }
  62  
  63    if (empty($rows)) {
  64      $rows[] = array(array('data' => t('No statistics available.'), 'colspan' => 4));
  65    }
  66  
  67    drupal_set_title(t('Top pages in the past %interval', array('%interval' => format_interval(variable_get('statistics_flush_accesslog_timer', 259200)))));
  68    $output = theme('table', $header, $rows);
  69    $output .= theme('pager', NULL, 30, 0);
  70    return $output;
  71  }
  72  
  73  /**
  74   * Menu callback; presents the "top visitors" page.
  75   */
  76  function statistics_top_visitors() {
  77  
  78    $header = array(
  79      array('data' => t('Hits'), 'field' => 'hits', 'sort' => 'desc'),
  80      array('data' => t('Visitor'), 'field' => 'u.name'),
  81      array('data' => t('Total page generation time'), 'field' => 'total'),
  82      array('data' => t('Operations'))
  83    );
  84  
  85    $sql = "SELECT COUNT(a.uid) AS hits, a.uid, u.name, a.hostname, SUM(a.timer) AS total, ac.aid FROM {accesslog} a LEFT JOIN {access} ac ON ac.type = 'host' AND LOWER(a.hostname) LIKE (ac.mask) LEFT JOIN {users} u ON a.uid = u.uid GROUP BY a.hostname, a.uid, u.name, ac.aid". tablesort_sql($header);
  86    $sql_cnt = "SELECT COUNT(*) FROM (SELECT DISTINCT uid, hostname FROM {accesslog}) AS unique_visits";
  87    $result = pager_query($sql, 30, 0, $sql_cnt);
  88  
  89    $rows = array();
  90    while ($account = db_fetch_object($result)) {
  91      $qs = drupal_get_destination();
  92      $ban_link = $account->aid ? l(t('unban'), "admin/user/rules/delete/$account->aid", array('query' => $qs)) : l(t('ban'), "admin/user/rules/add/$account->hostname/host", array('query' => $qs));
  93      $rows[] = array($account->hits, ($account->uid ? theme('username', $account) : $account->hostname), format_interval(round($account->total / 1000)), $ban_link);
  94    }
  95  
  96    if (empty($rows)) {
  97      $rows[] = array(array('data' => t('No statistics available.'), 'colspan' => 4));
  98    }
  99  
 100    drupal_set_title(t('Top visitors in the past %interval', array('%interval' => format_interval(variable_get('statistics_flush_accesslog_timer', 259200)))));
 101    $output = theme('table', $header, $rows);
 102    $output .= theme('pager', NULL, 30, 0);
 103    return $output;
 104  }
 105  
 106  /**
 107   * Menu callback; presents the "referrer" page.
 108   */
 109  function statistics_top_referrers() {
 110    $query = "SELECT url, COUNT(url) AS hits, MAX(timestamp) AS last FROM {accesslog} WHERE url NOT LIKE '%%%s%%' AND url <> '' GROUP BY url";
 111    $query_cnt = "SELECT COUNT(DISTINCT(url)) FROM {accesslog} WHERE url <> '' AND url NOT LIKE '%%%s%%'";
 112    drupal_set_title(t('Top referrers in the past %interval', array('%interval' => format_interval(variable_get('statistics_flush_accesslog_timer', 259200)))));
 113  
 114    $header = array(
 115      array('data' => t('Hits'), 'field' => 'hits', 'sort' => 'desc'),
 116      array('data' => t('Url'), 'field' => 'url'),
 117      array('data' => t('Last visit'), 'field' => 'last'),
 118    );
 119  
 120    $query .= tablesort_sql($header);
 121    $result = pager_query($query, 30, 0, $query_cnt, $_SERVER['HTTP_HOST']);
 122  
 123    $rows = array();
 124    while ($referrer = db_fetch_object($result)) {
 125      $rows[] = array($referrer->hits, _statistics_link($referrer->url), t('@time ago', array('@time' => format_interval(time() - $referrer->last))));
 126    }
 127  
 128    if (empty($rows)) {
 129      $rows[] = array(array('data' => t('No statistics available.'), 'colspan' => 3));
 130    }
 131  
 132    $output = theme('table', $header, $rows);
 133    $output .= theme('pager', NULL, 30, 0);
 134    return $output;
 135  }
 136  
 137  /**
 138   * Menu callback; Displays recent page accesses.
 139   */
 140  function statistics_access_log($aid) {
 141    $result = db_query('SELECT a.*, u.name FROM {accesslog} a LEFT JOIN {users} u ON a.uid = u.uid WHERE aid = %d', $aid);
 142    if ($access = db_fetch_object($result)) {
 143      $rows[] = array(
 144        array('data' => t('URL'), 'header' => TRUE),
 145        l(url($access->path, array('absolute' => TRUE)), $access->path)
 146      );
 147      // It is safe to avoid filtering $access->title through check_plain because
 148      // it comes from drupal_get_title().
 149      $rows[] = array(
 150        array('data' => t('Title'), 'header' => TRUE),
 151        $access->title
 152      );
 153      $rows[] = array(
 154        array('data' => t('Referrer'), 'header' => TRUE),
 155        ($access->url ? l($access->url, $access->url) : '')
 156      );
 157      $rows[] = array(
 158        array('data' => t('Date'), 'header' => TRUE),
 159        format_date($access->timestamp, 'large')
 160      );
 161      $rows[] = array(
 162        array('data' => t('User'), 'header' => TRUE),
 163        theme('username', $access)
 164      );
 165      $rows[] = array(
 166        array('data' => t('Hostname'), 'header' => TRUE),
 167        check_plain($access->hostname)
 168      );
 169  
 170      return theme('table', array(), $rows);
 171    }
 172    else {
 173      drupal_not_found();
 174    }
 175  }
 176  
 177  /**
 178   * Form builder; Configure access logging.
 179   *
 180   * @ingroup forms
 181   * @see system_settings_form()
 182   */
 183  function statistics_access_logging_settings() {
 184    // Access log settings:
 185    $options = array('1' => t('Enabled'), '0' => t('Disabled'));
 186    $form['access'] = array(
 187      '#type' => 'fieldset',
 188      '#title' => t('Access log settings'));
 189    $form['access']['statistics_enable_access_log'] = array(
 190      '#type' => 'radios',
 191      '#title' => t('Enable access log'),
 192      '#default_value' => variable_get('statistics_enable_access_log', 0),
 193      '#options' => $options,
 194      '#description' => t('Log each page access. Required for referrer statistics.'));
 195    $period = array('0' => t('Never')) + drupal_map_assoc(array(3600, 10800, 21600, 32400, 43200, 86400, 172800, 259200, 604800, 1209600, 2419200, 4838400, 9676800), 'format_interval');
 196    $form['access']['statistics_flush_accesslog_timer'] = array(
 197      '#type' => 'select',
 198      '#title' => t('Discard access logs older than'),
 199      '#default_value'   => variable_get('statistics_flush_accesslog_timer', 259200),
 200      '#options' => $period,
 201      '#description' => t('Older access log entries (including referrer statistics) will be automatically discarded. (Requires a correctly configured <a href="@cron">cron maintenance task</a>.)', array('@cron' => url('admin/reports/status'))));
 202  
 203    // count content views settings
 204    $form['content'] = array(
 205      '#type' => 'fieldset',
 206      '#title' => t('Content viewing counter settings'));
 207    $form['content']['statistics_count_content_views'] = array(
 208      '#type' => 'radios',
 209      '#title' => t('Count content views'),
 210      '#default_value' => variable_get('statistics_count_content_views', 0),
 211      '#options' => $options,
 212      '#description' => t('Increment a counter each time content is viewed.'));
 213  
 214    return system_settings_form($form);
 215  }