|
1 <?php |
|
2 // $Id: statistics.admin.inc,v 1.6 2008/01/08 10:35:42 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(DISTINCT(CONCAT(uid, hostname))) FROM {accesslog}"; |
|
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 = 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 } |