drupal/modules/statistics/statistics.module

729 lines
40 KiB
Plaintext
Raw Normal View History

<?php
// $Id$
function statistics_init() {
global $recent_activity;
/*
** The following logic determines what the current throttle level should
** be, and can be disabled by the admin. If enabled, the rand() function
** returns a number between 0 and N, N being specified by the admin. If
** 0 is returned, the throttle logic is run, adding on additional database
** query. Otherwise, the following logic is skipped. This mechanism is
** referred to in the admin page as the 'probability limiter', roughly
** limiting throttle related database calls to 1 in N.
*/
if ((variable_get("statistics_enable_auto_throttle", 0)) && (!rand(0, variable_get("statistics_probability_limiter", 9)))) {
/*
** Note: The rand() function is supported by PHP 3+. However, prior to
** PHP 4.2.0 it needs to be seeded with a call to srand(). It is important
** that this only happens once, so this should be managed by the Drupal
** engine, not this module. The Drupal engine should use phpversion() to
** detect and automatically seed pre-4.2.0 systems.
*/
$throttle = throttle_status();
// if we're at throttle level 5, we don't do anything
if ($throttle < 5) {
$multiplier = variable_get("statistics_throttle_multiplier", 60);
// count all hits in past sixty seconds
$result = db_query("SELECT COUNT(timestamp) AS hits FROM {accesslog} WHERE timestamp >= %d", (time() - 60));
$recent_activity = db_fetch_array($result);
throttle_update($recent_activity["hits"]);
}
}
}
// Exit hook, runs at the end of every page request
function statistics_exit() {
global $user;
if (variable_get("statistics_count_content_views", 0)) {
// we are counting content views
if ((arg(0) == "node") && (arg(1) == "view") && arg(2)) {
// a node has been viewed, so updated the node's counters
db_query("UPDATE {node_counter} SET daycount = daycount + 1, totalcount = totalcount + 1, timestamp = %d WHERE nid = %d", time(), arg(2));
// if we affected 0 rows, this is the first time viewing the node
if (!db_affected_rows()) {
// must create a new row to store counter's for new node
db_query("INSERT INTO {node_counter} (nid, daycount, totalcount, timestamp) VALUES(%d, 1, 1, %d)", arg(2), time());
}
}
}
if ((variable_get("statistics_enable_access_log", 0)) && (throttle_status() < 5)) {
// statistical logs are enabled
$referrer = referer_uri();
$hostname = getenv("REMOTE_ADDR");
// log this page access
if ((arg(0) == "node") && (arg(1) == "view") && arg(2)) {
db_query("INSERT INTO {accesslog} (nid, url, hostname, uid, timestamp) values(%d, '%s', '%s', %d, %d)", arg(2), $referrer, $hostname, $user->uid, time());
}
else {
db_query("INSERT INTO {accesslog} (url, hostname, uid, timestamp) values('%s', '%s', %d, %d)", $referrer, $hostname, $user->uid, time());
}
}
}
/* Permissions hook, defines module's permissions */
function statistics_perm() {
/*
** statistics module defines the following permissions:
** administer statistics module - full administrative control of module
** administer statistics - view statistics / referrer log
** access statistics - see how many times individual content has
** been viewed (if enabled)
*/
return array("administer statistics module", "administer statistics", "access statistics");
}
/* Link hook, defines module's links */
function statistics_link($type, $node = 0, $main = 0) {
global $id;
$links = array();
if ($type == "node" && user_access("access statistics") && variable_get("statistics_display_counter", 0)) {
$statistics = statistics_get($node->nid);
if ($statistics) {
if (user_access("administer statistics")) {
$links[] = l(format_plural($statistics["totalcount"], "1 read", "%count reads"), "admin/statistics/log/node/$node->nid");
}
else {
$links[] = format_plural($statistics["totalcount"], "1 read", "%count reads");
}
}
}
if ($type == "page" && user_access("access content")) {
$userlink = variable_get("statistics_userpage_link", "");
if ($userlink) {
$links[] = l(t($userlink), "statistics", array("title" => t("View this site's top content.")));
}
}
if ($type == "system") {
if ((user_access("administer statistics module") || (user_access("administer statistics")))) {
menu("admin/statistics", t("statistics"), "statistics_admin", 6);
menu("admin/statistics/referrers", t("referrer log"), "statistics_admin");
menu("admin/statistics/referrers/internal", t("internal referrers only"), "statistics_admin");
menu("admin/statistics/referrers/external", t("external referrers only"), "statistics_admin");
menu("admin/statistics/log", t("access log"), "statistics_admin");
menu("admin/statistics/log/node", t("track node"), "statistics_admin", 0, 1); //hidden
menu("admin/statistics/log/user", t("track user"), "statistics_admin", 0, 1); //hidden
menu("admin/statistics/log/host", t("track host"), "statistics_admin", 0, 1); //hidden
menu("admin/statistics/top nodes page", t("configure 'top nodes' page"), "statistics_admin", 5);
menu("admin/statistics/help", t("help"), "statistics_help_page", 9);
}
if (user_access("access content")) {
menu("statistics", t("view top nodes"), statistics_page, 0, 1);
}
}
return $links;
}
function statistics_help($section = "admin/help#statistics") {
$output = "";
switch ($section) {
case 'admin/help#statistics':
$output .= "<h3>Introduction</h3>";
$output .= "<p>The statistics module keeps track of numerous statistics for your site but be warned, statistical collection does cause a little overhead, thus everything comes <b>disabled</b> by default.<p>";
$output .= "<p>The module counts how many times, and from where -- using HTTP referrer -- each of your nodes is viewed. Once we have that count the module can do the following with it:";
$output .= "<ul>";
$output .= "<li>The count can be displayed in the node's link section next to \"# comments\".</li>";
$output .= "<li>A configurable block can be added which can display the day's top stories, the all time top stories, and the last stories read. Each section in the block has a title, which you can change, as well as being able to change how many node titles will be displayed</li>";
$output .= "<li>A configurable user page can be added, which can display the day's top stories, the all time top stories, and the last stories read. Each section in the page has a title, which you can change, as well as being able to change the number of stories to be displayed.</li>";
$output .= "<li>A configurable block can be added that displays the count of how many users, as well as a list of their names, and guests are currently accessing your site.</li>";
$output .= "<li>An auto-throttle, congestion controling mechanism can be used on your site if you have enabled the %throttle.</li>";
$output .= "</ul>";
$output .= "<p>Notes on using the statistics:</p>";
$output .= "<ul>";
$output .= "<li>If you enable the view counters for content, this adds 1 database query for each node that is viewed (2 queries if it's the first time the node has ever been viewed).</li>";
$output .= "<li>If you enable the access log, this adds 1 database query for each page that Drupal displays. Logged information includes: HTTP referrer (if any), node being accessed (if any), user ID (if any), the IP address of the user, and the time the page was viewed.</li>";
$output .= "</ul>";
$output .= "<p>As with any new module, the statistics module needs to be %modules before you can use it. Also refer to the %permissions, as this module supports four separate permissions.</p>";
$output .= "<h3>%referers</h3><p>This admin page shows you site-wide referrer statistics. You can see '<i>all</i>' statistics, '<i>external</i>' statistics or '<i>internal</i>' statistics. Default is 'all'.</p>";
$output .= "<h3>%access</h3><p>This admin page gives you an at-a-glance look at your top nodes. It is useful for understanding what content on your Drupal site is the most popular. Also on this page are links to the referrer statistics for each listed node.</p>";
$output .= "<h3>Configuring the statistics module</h3><p>There are some configuration options added to the main %configuration section:</p>";
$output .= "<ul>";
$output .= "<li><i>enable access log</i> -- allows you to turn the access log on and off. This log is used to store data about every page accessed, such as the remote host's IP address, where they came from (referrer), what node theyve viewed, and their user name. Enabling the log adds one database call per page displayed by Drupal.</li>";
$output .= "<li><i>discard access logs older than</i> -- allows you to configure how long an access log entry is saved, after which time it is deleted from the database table. To use this you need to run \"cron.php\"</li>";
$output .= "<li><i>enable node view counter</i> -- allows you to turn on and off the node-counting functionality of this module. If it is turned on, an extra database query is added for each node displayed, which increments a counter.</li>";
$output .= "<li><i>display node view counters</i> -- allows you to globally disable the displaying of node view counters. Additionally, a user group must have 'access statistics' permissions to view the counters.</li>";
$output .= "</ul>";
$output .= "<h3>Top nodes block</h3>";
$output .= "<p>This module creates a block that can display the day's top viewed nodes, the all time top viewed nodes and the last nodes viewed. Each of these links can be enabled or disabled individually, and the number of nodes displayed for each can be configured with a drop down menu. If you disable all sections of this block, it will not appear.</p>";
$output .= "<p>The administrative \"top nodes block\" screen also allows you to assign a name to the block.</p>";
$output .= "<p>Don't forget to enable the block %here-block.</p>";
$output .= "<h3>Top nodes page</h3>";
$output .= "<p>This module creates a user page that can display summaries of the day's top viewed nodes, the all time top nodes and the last nodes viewed. Each of these summaries can be enabled or disabled individually, and the number of nodes displayed for each can be configured with a drop down menu.</p>";
$output .= "<p>The administrative \"top nodes page\" screen also allows you to assign a name for the automatically generated link to the user page. If no name is set, the link will not be displayed.</p>";
$output .= "<h3>Permissions</h3><p>This module has four permissions that need to be configured in %permissions.</p>";
$output .= "<ul>";
$output .= "<li><i>access statistics</i> - enable for user roles that get to see view counts for individual content. (This does not define access to the block)</li>";
$output .= "<li><i>administer statistics module</i> - enable for user roles that get to configure the statistics module.</li><li><i>administer statistics</i> - enable for user roles that get to view the referrer statistics.</li>";
$output .= "</ul>";
$output .= "<p>If '<i>administer statistics</i>' and '<i>access statistics</i>' are both enabled, the user will see a link from each node to that node's referrer statistics (if enabled).</p>";
$output .= "<h2>Statistics module (for developers)</h2><h3>Accessing statistics</h3><p>To get a node's \"view statistics\" make a call to the function <i>statistics_get(\$nid)</i>. When you pass in a Node ID (\$nid), the function returns an array with three entires: [0]=totalcount, [1]=daycount, [2]=timestamp. For example, you could use this function call to add node view counts to your theme.</p>";
$output .= "<ul>";
$output .= "<li>The <i>totalcount</i> is a count of the total number of times that node has been viewed.</li>";
$output .= "<li>The <i>daycount</i> is a count of the total number of times that node has been viewed \"today\". For the daycount to be reset, cron must be enabled.</li>";
$output .= "<li>The <i>timestamp</i> is a timestamp of when that node was last viewed.</li>";
$output .= "</ul>";
$output .= "<p>The module automatically adds '# reads' to each node's link section (if enabled).</p>";
$output .= "<h3>Top stories</h3><p>The statistics module provides a function '<i>statistics_title_list(\$dbfield, \$dbrows)</i>' to return an array of links to any of the following: the top viewed nodes of all time, the top viewed nodes of today, the last viewed nodes. You can pass in:</p>";
$output .= "<ul>";
$output .= "<li><i>totalcount</i> - This will return an array with links to the top viewed nodes of all time.<br />Example: <code>statistics_title_list(\"totalcount\", \"5\");</code><br /><br /></li>";
$output .= "<li><i>daycount</i> - This will return an array with links to the top viewed nodes for today.<br />Example: <code>statistics_title_list(\"daycount\",\"5\");</code><br /><br /></li>";
$output .= "<li><i>timestamp</i> - This will return a array with links to the last viewed node.<br />Example: <code>statistics_title_list(\"timestamp\",\"5\");</code></li>";
$output .= "</ul>";
$output .= "<p>\$dbrows is the number or rows you want returned in your array.</p>";
$output .= "<h3>Throttle</h3><p>The function <code>throttle_status()</code> will return a number from 0 to 5. 0 means that there is no throttle enabled at this time. Each number above that is a progressively more throttled system... To disable a feature when a site first begins to get busy, disable it at a throttle of 2 or 3. To hold on to the bitter end, wait until 4 or 5.</p>";
$output .= "<p>To implement the throttle, you should do something like this:<pre> \$throttle = 0;
/* verify that the statitistics module is installed */
if (function_exists(throttle_status) {
\$throttle = throttle_status()
}
if (\$throttle >= \$my_throttle_value) {
// throttle limit reached, disable stuff
}
else {
// throttle limit not reached, execute normally
}</pre></p>";
$output .= "<p>Note: Even though the configuration for the throttle is handled by the throttle module, the throttle logic itself is part of the statistics module. The configuration has been separated in order to make things easier for the average site that will not be utilizing the throttling mechanism. More information about how the throttle works can be found on the throttle module help page. (Find the throttle help page %here-help if you have enabled the throttle module).</p>";
$output = t($output, array("%throttle" => l(t("throttle module"), "admin/system/modules"), "%modules" => l(t("enabled"), "admin/system/modules"), "%permissions" => l(t("permissions section"), "admin/user/permission"), "%referers" => l(t("referrers log"), "admin/statistics/referrers"), "%access" => l(t("access log"), "admin/statistics/log"), "%configuration" => l(t("administer") ." &raquo; ". t("configuration"), "admin/system/modules/statistics"), "%here-block" => l(t("here"), "admin/system/block"), "%here-help" => l(t("here"), "admin/help#throttle")));
break;
case 'admin/system/modules#description':
$output = t("Logs access statistics for your site.");
break;
case 'admin/system/modules/statistics':
$output = t("Settings for the statistical information that Drupal will keep about the site. See %statistics for the actual information.", array("%statistics" => l(t("site statistics"), "admin/statistics")));
break;
case 'admin/statistics':
$output = t("This page gives you an at-a-glance look at your top content. It is useful for understanding what content on your site is the most popular.");
break;
case 'admin/statistics/referrers':
$output = t("This page shows you site-wide referrer statistics. You can see 'all referrers', 'external referrers' or 'internal referrers'. Referrers are web sites, both your site, and other peoples, that point to your web site.");
break;
case 'admin/statistics/referrers/internal':
$output = t("This page shows you only 'internal referrers'. Links pointing to your web site, from within your web site.");
break;
case 'admin/statistics/referrers/external':
$output = t("This page shows you only 'external referrers'. Links pointing to your web site from outside your web site.");
break;
case 'admin/statistics/log':
case 'admin/statistics/log/node':
case 'admin/statistics/log/user':
case 'admin/statistics/log/host':
$output = t("This pages shows you who is accessing your web site. You can see the hostnames, referrers. In particular, it is easy to inspect a user's navigation history/trail by clicking on <i>track user</i>.");
break;
case 'admin/statistics/top nodes page':
$output = t("The statistics module creates a user page that can display summaries of the day's top viewed nodes, the all time top nodes and the last nodes viewed. Each of these summaries can be enabled or disabled individually, and the number of nodes displayed for each can be configured with a drop down menu.");
break;
}
return $output;
}
function statistics_help_page() {
print theme("page", statistics_help());
}
/* Administration hook, defines module's administrative page */
function statistics_admin() {
$op = $_POST["op"];
$edit = $_POST["edit"];
/* Only allow people with sufficient access. */
if ((user_access("administer statistics module")) || (user_access("administer statistics"))) {
if (empty($op)) {
$op = arg(2);
}
/* non-configuration admin pages */
switch ($op) {
case "statistics":
return statistics_admin_topnodes();
case "referrers":
return statistics_top_refer();
case "log":
return statistics_admin_displaylog();
}
/* configuration admin pages */
if (user_access("administer statistics module")) {
switch (stripslashes($op)) {
case t("Submit \"top nodes\" page changes"):
statistics_save_userconfig($edit);
$output .= status(t("saved 'top nodes' page changes."));
break;
case "top nodes page":
$output .= statistics_admin_userpage_config(array(
"statistics_userpage_link" => variable_get("statistics_userpage_link", ""),
"statistics_userpage_day_head" => variable_get("statistics_userpage_day_head", "Todays top"),
"statistics_userpage_day_cnt" => variable_get("statistics_userpage_day_cnt", 0),
"statistics_userpage_all_head" => variable_get("statistics_userpage_all_head", "All time top"),
"statistics_userpage_all_cnt" => variable_get("statistics_userpage_all_cnt", 0),
"statistics_userpage_last_head" => variable_get("statistics_userpage_last_head", "Last read"),
"statistics_userpage_last_cnt" => variable_get("statistics_userpage_last_cnt", 0)
));
break;
default:
$output .= statistics_admin_topnodes();
}
}
print theme("page", $output);
}
else {
print theme("page", message_access());
}
}
function statistics_admin_topnodes_table() {
$header = array(
array("data" => t("title"), "field" => "n.title"),
array("data" => t("today"), "field" => "s.daycount", "sort" => "desc"),
array("data" => t("all time"), "field" => "s.totalcount"),
array("data" => t("last hit"), "field" => "s.timestamp"),
array("data" => t("operations"))
);
$sql = "SELECT s.nid, s.daycount, s.totalcount, s.timestamp, n.title FROM {node_counter} s INNER JOIN {node} n ON s.nid = n.nid";
$sql .= tablesort_sql($header);
$result = pager_query($sql, 20); // WHERE s.%s <> '0'
while ($nid = db_fetch_array($result)) {
$rows[] = array(l($nid["title"], "node/view/". $nid["nid"], array("title" => t("View this posting."))), $nid["daycount"], $nid["totalcount"], format_date($nid["timestamp"], "small"), l("track node", "admin/statistics/log/node/$nid[nid]"));
}
if ($pager = pager_display(NULL, 20, 0, "admin", tablesort_pager())) {
$rows[] = array(array("data" => $pager, "colspan" => 5));
}
2003-11-13 19:52:54 +00:00
return theme("table", $header, $rows);
}
function statistics_admin_accesslog_table($type, $id) {
if ($type == 1) {
/* retrieve user access logs */
if ($id) {
/* retrieve recent access logs for user $id */
$sql = "SELECT a.nid, a.url, a.hostname, a.uid, a.timestamp, n.title FROM {accesslog} a LEFT JOIN {node} n ON a.nid = n.nid WHERE a.uid = ". check_query($id);
}
else {
/* retrieve recent access logs for all users */
$sql = "SELECT a.nid, a.url, a.hostname, a.uid, MAX(a.timestamp) AS timestamp, n.title FROM {accesslog} a LEFT JOIN {node} n ON a.nid = n.nid WHERE a.uid <> '0' GROUP BY a.uid, a.nid, a.url, a.hostname";
}
}
else if ($type == 2) {
/* retrieve recent access logs for node $id */
$sql = "SELECT a.nid, a.url, a.hostname, a.uid, a.timestamp, n.title FROM {accesslog} a INNER JOIN {node} n ON a.nid = n.nid WHERE a.nid = ". check_query($id);
}
else if ($type == 3) {
/* retrieve recent access logs for hostname $id */
$sql = "SELECT a.nid, a.url, a.hostname, a.uid, a.timestamp, n.title FROM {accesslog} a LEFT JOIN {node} n ON a.nid = n.nid WHERE a.hostname = '". check_query($id) ."'";
}
else {
/* retrieve all recent access logs */
$sql = "SELECT a.nid, a.url, a.hostname, a.uid, a.timestamp, n.title FROM {accesslog} a LEFT JOIN {node} n ON a.nid = n.nid";
}
$header = array(
array("data" => t("timestamp"), "field" => "timestamp", "sort" => "desc"),
array("data" => t("post"), "field" => "nid"),
array("data" => t("user"), "field" => "uid"),
array("data" => t("hostname"), "field" => "hostname"),
array("data" => t("referrer"), "field" => "url"),
array("data" => t("operations"), "colspan" => "3")
);
$sql .= tablesort_sql($header);
$result = pager_query($sql, 50);
while ($log = db_fetch_object($result)) {
$user = user_load(array("uid" => $log->uid));
if ($log->url) {
$url = "<a href=\"$log->url\" title=\"$log->url\">". (strlen($log->url) > 28 ? substr($log->url, 0, 28) . '...' : $log->url) ."</a>";
}
else {
$url = message_na();
}
$rows[] = array(array("data" => format_date($log->timestamp, "small"), "nowrap" => "nowrap"), ($log->nid ? l($log->title, "node/view/$log->nid") : message_na()), format_name($user), $log->hostname ? $log->hostname : message_na(), $url, ($log->nid ? l(t("track node"), "admin/statistics/log/node/$log->nid") : ""), ($user->uid ? l(t("track user"), "admin/statistics/log/user/$user->uid") : ""), ($log->hostname ? l(t("track host"), "admin/statistics/log/host/$log->hostname") : ""));
}
if ($pager = pager_display(NULL, 50, 0, "admin", tablesort_pager())) {
$rows[] = array(array("data" => $pager, "colspan" => 8));
}
2003-11-13 19:52:54 +00:00
return theme("table", $header, $rows);
}
function statistics_top_refer() {
$view = arg(3) ? arg(3) : "all";
if ($view == "all") {
$query = "SELECT url, MAX(timestamp) AS last_view, COUNT(url) AS count FROM {accesslog} WHERE url <> '' GROUP BY url";
$query_cnt = "SELECT COUNT(DISTINCT(url)) FROM {accesslog} WHERE url <> ''";
}
elseif ($view == "internal") {
$query = "SELECT url, MAX(timestamp) AS last_view, COUNT(url) AS count FROM {accesslog} WHERE url LIKE '%". check_query($_SERVER["HTTP_HOST"]) ."%' GROUP BY url";
$query_cnt = "SELECT COUNT(DISTINCT(url)) FROM {accesslog} WHERE url <> '' AND url LIKE '%". check_query($_SERVER["HTTP_HOST"]) ."%'";
$describe = "internal ";
}
else {
/* default to external */
$query = "SELECT url, MAX(timestamp) AS last_view, COUNT(url) AS count FROM {accesslog} WHERE url NOT LIKE '%". check_query($_SERVER["HTTP_HOST"]) ."%' AND url <> '' GROUP BY url";
$query_cnt = "SELECT COUNT(DISTINCT(url)) FROM {accesslog} WHERE url <> '' AND url NOT LIKE '%". check_query($_SERVER["HTTP_HOST"]) ."%'";
$describe = "external ";
}
$output = "<h3>". t("Top $describe referrers of the past %interval", array("%interval" => format_interval(variable_get("statistics_flush_accesslog_timer", 259200)))) ."</h3>";
$header = array(
array("data" => t("URL"), "field" => "url"),
array("data" => t("last view"), "field" => "last_view"),
array("data" => t("count"), "field" => "count", "sort" => "desc")
);
$query .= tablesort_sql($header);
$result = pager_query($query, 50, 0, $query_cnt);
while ($referrer = db_fetch_array($result)) {
$rows[] = array("<a href=\"". $referrer["url"] ."\">". substr($referrer["url"], 0, 100) ."</a>", format_date($referrer["last_view"], "small"), $referrer["count"]);
}
if ($pager = pager_display(NULL, 50, 0, "admin", tablesort_pager())) {
$rows[] = array(array("data" => $pager, "colspan" => 3));
}
2003-11-13 19:52:54 +00:00
$output .= theme("table", $header, $rows);
return $output;
}
function statistics_admin_topnodes() {
$output = "<h3>". t("Top nodes") ."</h3>\n";
$output .= statistics_admin_topnodes_table();
return $output;
}
function statistics_admin_displaylog() {
$type = arg(3);
$value = arg(4);
switch ($type) {
case "user":
$user = user_load(array("uid" => $value));
$output = "<h3>". t("Recent access logs for '%name'", array("%name" => $user->name)) ."</h3>\n";
$output .= statistics_admin_accesslog_table(1, $user->uid);
break;
case "node":
$node = node_load(array("nid" => $value));
$output = "<h3>". t("Recent access logs for '%title'", array("%title" => $node->title)) ."</h3>\n";
$output .= statistics_admin_accesslog_table(2, $value);
break;
case "host":
$output = "<h3>". t("Recent access logs for '%hostname'", array("%hostname" => $value)) ."</h3>\n";
$output .= statistics_admin_accesslog_table(3, $value);
break;
default:
$output = "<h3>". t("Recent access logs") ."</h3>\n";
$output .= statistics_admin_accesslog_table(0, 0);
}
return $output;
}
/* Displays the user page configuration administration form */
function statistics_admin_userpage_config($edit) {
$form = form_textfield(t("Name for link to user page"), "statistics_userpage_link", $edit["statistics_userpage_link"], 20, 40, t("This node generates a user page with top nodes. If you wish a link added automatically, specify a name."));
$form .= "<hr />";
$form .= form_textfield(t("Today's top nodes title"), "statistics_userpage_day_head", $edit["statistics_userpage_day_head"], 20, 40, t("Specify a name for the \"day's top\" section of the user page generated by this module."));
$form .= form_select(t("Number of nodes to display for \"day's top\""), "statistics_userpage_day_cnt", $edit["statistics_userpage_day_cnt"], array("0" => t("Disabled"), "1" => "1", "2" => "2", "3" => "3", "4" => "4", "5" => "5", "6" => "6", "7" => "7", "8" => "8", "9" => "9", "10" => "10", "15" => "15", "20" => "20", "25" => "25"), t("Set how many \"day's top\" nodes to display on the user page generated by this module."));
$form .= "<hr />";
$form .= form_textfield(t("All time top nodes title"), "statistics_userpage_all_head", $edit["statistics_userpage_all_head"], 20, 40, t("Specify a name for the \"all time top\" section of the user page generated by this module."));
$form .= form_select(t("Number of nodes to display for \"all time\""), "statistics_userpage_all_cnt", $edit["statistics_userpage_all_cnt"], array("0" => t("Disabled"), "1" => "1", "2" => "2", "3" => "3", "4" => "4", "5" => "5", "6" => "6", "7" => "7", "8" => "8", "9" => "9", "10" => "10", "15" => "15", "20" => "20", "25" => "25"), t("Set how many \"all time top\" nodes to display on the user page generated by this module."));
$form .= "<hr />";
$form .= form_textfield(t("Last viewed nodes title"), "statistics_userpage_last_head", $edit["statistics_userpage_last_head"], 20, 40, t("Specify a name for the \"last viewed\" section of the user page generated by this module."));
$form .= form_select(t("Number of nodes to display for \"last views\""), "statistics_userpage_last_cnt", $edit["statistics_userpage_last_cnt"], array("0" => t("Disabled"), "1" => "1", "2" => "2", "3" => "3", "4" => "4", "5" => "5", "6" => "6", "7" => "7", "8" => "8", "9" => "9", "10" => "10", "15" => "15", "20" => "20", "25" => "25"), t("Set how many \"last viewed\" nodes to display on the user page generated by this module."));
$form .= "<hr />";
$form .= form_submit(t("Submit \"top nodes\" page changes"));
return form($form);
}
// settings for the statistics module
function statistics_settings() {
// access log settings:
$group = form_radios(t("Enable access log"), "statistics_enable_access_log", variable_get("statistics_enable_access_log", 0), array("1" => t("Enabled"), "0" => t("Disabled")), t("Log each page access. Required for referrer statistics."));
$period = array(3600 => format_interval(3600), 10800 => format_interval(10800), 21600 => format_interval(21600), 32400 => format_interval(32400), 43200 => format_interval(43200), 86400 => format_interval(86400), 172800 => format_interval(172800), 259200 => format_interval(259200), 604800 => format_interval(604800), 1209600 => format_interval(1209600), 2419200 => format_interval(2419200), 4838400 => format_interval(4838400), 9676800 => format_interval(9676800));
$group .= form_select(t("Discard access logs older than"), "statistics_flush_accesslog_timer", variable_get("statistics_flush_accesslog_timer", 259200), $period, t("Older access log entries (including referrer statistics) will be automatically discarded. Requires crontab."));
$output = form_group(t("Access log settings"), $group);
// count content views settings
$group = form_radios(t("Count content views"), "statistics_count_content_views", variable_get("statistics_count_content_views", 0), array("1" => t("Enabled"), "0" => t("Disabled")), t("Increment a counter each time content is viewed."));
$group .= form_radios(t("Display content view counts"), "statistics_display_counter", variable_get("statistics_display_counter", ""), array("1" => t("Enabled"), "0" => t("Disabled")), t("Display how many times given content has been viewed. User must have the \"access statistics\" permissions to be able to view these counts."));
$output .= form_group(t("Content viewing counter settings"), $group);
// Top content block settings
$group = form_select(t("Number of day's top views to display"), "statistics_block_top_day_num", $edit["statistics_block_top_day_num"], array("0" => t("Disabled"), "1" => "1", "2" => "2", "3" => "3", "4" => "4", "5" => "5", "6" => "6", "7" => "7", "8" => "8", "9" => "9", "10" => "10", "15" => "15", "20" => "20", "25" => "25", "30" => "30", "40" => "40"), t("Affects \"Top content\" block. How many content items to display in \"day\" list. Requires content viewing counters."));
$group .= form_select(t("Number of all time views to display"), "statistics_block_top_all_num", $edit["statistics_block_top_all_num"], array("0" => t("Disabled"), "1" => "1", "2" => "2", "3" => "3", "4" => "4", "5" => "5", "6" => "6", "7" => "7", "8" => "8", "9" => "9", "10" => "10", "15" => "15", "20" => "20", "25" => "25", "30" => "30", "40" => "40"), t("Affects \"Top content\" block. How many content items to display in \"all time\" list. Requires content viewing counters."));
$group .= form_select(t("Number of most recent views to display"), "statistics_block_top_last_num", $edit["statistics_block_top_last_num"], array("0" => t("Disabled"), "1" => "1", "2" => "2", "3" => "3", "4" => "4", "5" => "5", "6" => "6", "7" => "7", "8" => "8", "9" => "9", "10" => "10", "15" => "15", "20" => "20", "25" => "25", "30" => "30", "40" => "40"), t("Affects \"Top content\" block. How many content items to display in \"recently viewed\" list. Requires content viewing counters."));
$output .= form_group(t("Top content block settings"), $group);
return $output;
}
/* Saves the values entered in the "userpage" administration form */
function statistics_save_userconfig($edit) {
variable_set("statistics_userpage_link", $edit["statistics_userpage_link"]);
variable_set("statistics_userpage_day_head", $edit["statistics_userpage_day_head"]);
variable_set("statistics_userpage_day_cnt", $edit["statistics_userpage_day_cnt"]);
variable_set("statistics_userpage_all_head", $edit["statistics_userpage_all_head"]);
variable_set("statistics_userpage_all_cnt", $edit["statistics_userpage_all_cnt"]);
variable_set("statistics_userpage_last_head", $edit["statistics_userpage_last_head"]);
variable_set("statistics_userpage_last_cnt", $edit["statistics_userpage_last_cnt"]);
}
/* Saves the values entered in the "config statistics" administration form */
function statistics_save_statistics($edit) {
variable_set("statistics_display_counter", $edit["statistics_display_counter"]);
}
/* cron hook, performs automatic functions */
function statistics_cron() {
$statistics_timestamp = variable_get("statistics_day_timestamp", "");
if ((time() - $statistics_timestamp) >= 86400) {
/* reset day counts */
db_query("UPDATE {node_counter} SET daycount = '0'");
variable_set("statistics_day_timestamp", time());
}
/* clean expired access logs */
db_query("DELETE FROM {accesslog} WHERE ". time() ." - timestamp > ". variable_get("statistics_flush_accesslog_timer", 259200));
$throttle = variable_get("statistics_throttle_level", 0);
/* check if throttle is currently on and if it's time to drop level */
if (($throttle) && ((time() - variable_get("statistics_throttle_cron_timer", 10800)) > variable_get("statistics_throttle_cron_timestamp", 0))) {
/* If throttle is on, back off one notch to test server load */
variable_set("statistics_throttle_level", $throttle - 1);
variable_set("statistics_throttle_cron_timestamp", time());
watchdog("warning", t("cron: decreasing throttle to level '%level' to test server load.", array("%level" => ($throttle - 1))));
}
}
/* Display linked title based on field name */
function statistics_title_list($dbfield, $dbrows) {
/* valid dbfields: totalcount, daycount, timestamp */
return db_query_range("SELECT s.nid, n.title, u.uid, u.name FROM {node_counter} s INNER JOIN {node} n ON s.nid = n.nid INNER JOIN {users} u ON n.uid = u.uid WHERE %s <> '0' AND n.status = 1 ORDER BY %s DESC", "s.". $dbfield, "s.". $dbfield, 0, $dbrows);
}
/* Function to retreive current page counter value. */
function statistics_get($nid) {
if ($nid > 0) {
/* retrieves an array with both totalcount and daycount */
$statistics = db_fetch_array(db_query("SELECT totalcount, daycount, timestamp FROM {node_counter} WHERE nid = %d", $nid));
}
return $statistics;
}
/* Block hook */
function statistics_block($op = "list", $delta = 0) {
if ($op == "list") {
if (variable_get("statistics_count_content_views", 0)) {
$blocks[0]["info"] = t("Top content");
}
return $blocks;
}
else if (user_access("access content")) {
switch ($delta) {
case 0:
$content = array();
$daytop = variable_get("statistics_block_top_day_num", "");
if ($daytop) {
$content[] = node_title_list(statistics_title_list("daycount", $daytop), variable_get("statistics_block_top_day_head", ""));
}
$alltimetop = variable_get("statistics_block_top_all_num", "");
if ($alltimetop) {
$content[] = node_title_list(statistics_title_list("totalcount", $alltimetop), variable_get("statistics_block_top_all_head", ""));
}
$lasttop = variable_get("statistics_block_top_last_num", "");
if ($lasttop) {
$content[] = node_title_list(statistics_title_list("timestamp", $lasttop), variable_get("statistics_block_top_last_head", ""));
}
$output = implode($content, "<br />");
$block["subject"] = variable_get("statistics_block_top_title", t("Popular content"));
$block["content"] = $output;
break;
}
return $block;
}
}
function statistics_page() {
if (user_access("access content")) {
print theme("page", statistics_page_user());
}
else {
print theme("page", message_access());
}
}
/* Generates the statistics user page */
function statistics_page_user($uid = 0, $date = 0, $all = 0) {
if (!$date) {
$date = time();
}
if ($displaycount = variable_get("statistics_userpage_day_cnt", 10)) {
$table = "<table border=\"0\" cellpadding=\"4\" cellspacing=\"4\" style=\"width: 100%;\">";
$table .= statistics_summary("daycount", $displaycount);
$table .= "</table>";
$output .= theme("box", t(variable_get("statistics_userpage_day_head", "")), $table, "main");
}
if ($displaycount = variable_get("statistics_userpage_all_cnt", "10")) {
$table = "<table border=\"0\" cellpadding=\"4\" cellspacing=\"4\" style=\"width: 100%;\">";
$table .= statistics_summary("totalcount", $displaycount);
$table .= "</table>";
$output .= theme("box", t(variable_get("statistics_userpage_all_head", "")), $table, "main");
}
if ($displaycount = variable_get("statistics_userpage_last_cnt", "10")) {
$table = "<table border=\"0\" cellpadding=\"4\" cellspacing=\"4\" style=\"width: 100%;\">";
$table .= statistics_summary("timestamp", $displaycount);
$table .= "</table>";
$output .= theme("box", t(variable_get("statistics_userpage_last_head", "")), $table, "main");
}
return $output;
}
function statistics_summary($dbfield, $dbrows) {
/* valid dbfields: totalcount, daycount, timestamp */
$output = "";
$result = db_query_range("SELECT n.nid, n.title FROM {node_counter} s INNER JOIN {node} n ON s.nid = n.nid ORDER BY %s DESC", $dbfield, 0, $dbrows);
while ($nid = db_fetch_array($result)) {
$content = node_load(array("nid" => $nid["nid"]));
$links = link_node($content, 1);
$output .= "<tr><td><b>". l($nid["title"], "node/view/". $nid["nid"], array("title" => t("View this posting."))) ."</b></td><td style=\"text-align: right;\"><small>". t("Submitted by %a on %b", array("%a" => format_name($content), "%b" => format_date($content->created, "large"))) ."</small></td></tr>";
$output .= "<tr><td colspan=\"2\"><div style=\"margin-left: 20px;\">". check_output($content->teaser) ."</div></td></tr>";
$output .= "<tr><td style=\"text-align: right;\" colspan=\"2\">[ ". theme("links", $links) ." ]<br /><br /></td></tr>";
}
return $output;
}
function statistics_nodeapi(&$node, $op, $arg = 0) {
switch ($op) {
case "delete":
// clean up statistics table when node is deleted
db_query("DELETE FROM {node_counter} WHERE nid = %d", $node->nid);
}
}
/* internal throttle function - do not call from other modules */
function throttle_update($recent_activity) {
$throttle = throttle_status();
$multiplier = variable_get("statistics_throttle_multiplier", 60);
for ($i = 0; $i <= 5; $i++) {
if (($i * $multiplier) <= $recent_activity) {
$throttle_new = $i;
}
}
if ($throttle_new != $throttle) {
/*
** reduce throttle if new throttle would be 3+ less than current throttle,
** (all other throttle reduction done by _cron hook), increase throttle if
** new throttle would be greater than current throttle.
*/
if (($throttle_new < ($throttle - 2)) || ($throttle_new > $throttle)) {
/* update throttle level */
variable_set("statistics_throttle_level", $throttle_new);
/*
** update the global timestamp, preventing cron.php from jumping in
** too quickly, allowing for user defined period to first pass.
*/
variable_set("statistics_throttle_cron_timestamp", time());
/* log the change */
if ($throttle_new < $throttle) {
watchdog("message", "message: '". $recent_activity ."' hits in past minute; throttle decreased to level ". $throttle_new);
}
else {
watchdog("warning", "warning: '". $recent_activity ."' hits in past minute; throttle increased to level ". $throttle_new);
}
}
}
}
/***********************
* Auto-throttle API *
***********************/
/* external throttle functions - call this from other modules, themes, etc */
function throttle_status() {
static $throttle;
$throttle = variable_get("statistics_throttle_level", 0);
return $throttle;
}
?>