- Committed Jeremy's incarnation of the statistics module. Last minutes
changes include:
* a couple of coding style changes, renamed some "stats" into
"statistics", etc.
* removed the "Who's online" block from the user module.
* added db_affected_rows() to the resp. database abstraction
layers and made the statistics module use db_affected_rows()
instead.
* added update logic to "update.php".
4.1.x
Dries Buytaert
parent
30315c40c0
commit
fcae7030cc
|
|
@ -108,4 +108,8 @@ function db_next_id($name) {
|
|||
return $id;
|
||||
}
|
||||
|
||||
?>
|
||||
function db_affected_rows() {
|
||||
return mysql_affected_rows();
|
||||
}
|
||||
|
||||
?>
|
||||
|
|
|
|||
|
|
@ -106,4 +106,10 @@ function db_next_id($name) {
|
|||
return $db_handle->nextID($name);
|
||||
}
|
||||
|
||||
function db_affected_rows() {
|
||||
global $db_handle;
|
||||
|
||||
return $db_handle->affectedRows();
|
||||
}
|
||||
|
||||
?>
|
||||
|
|
|
|||
|
|
@ -1,64 +1,50 @@
|
|||
<?php
|
||||
/*********************************************************************
|
||||
* Description: This module provides simple statistics for your site:
|
||||
* - access counts for each node
|
||||
* - referrer logs to see where web traffic originates
|
||||
* - number of users/guests accessing your site
|
||||
* It also generates a block displaying and user page
|
||||
* displaying:
|
||||
* - top viewed nodes over last 24 hour period
|
||||
* - top viewed nodes over all time
|
||||
* - last nodes viewed
|
||||
* It also displays a block displaying how many users
|
||||
* and guest are currently accessing your site
|
||||
* It also provides a throttling mechanism
|
||||
* This module is highly configurable. Once installed
|
||||
* review the 'help' page for more details.
|
||||
* Created: July 13, 2002 - Jeremy Andrews - jeremy@kerneltrap.org
|
||||
*********************************************************************/
|
||||
|
||||
global $id, $mod, $nid, $user, $recent_activity;
|
||||
|
||||
if (variable_get("stats enable node counts", 0)) {
|
||||
/* node counters are enabled */
|
||||
if (variable_get("statistics_enable_node_counter", 0)) {
|
||||
/* node view counters are enabled */
|
||||
if ($id > 0 && (!$mod)) {
|
||||
/* a node has been viewed, so updated the node's counters */
|
||||
@db_query("UPDATE statistics SET daycount=daycount+1,totalcount=totalcount+1,timestamp='%s' WHERE nid = '%s'", time(), $id);
|
||||
db_query("UPDATE statistics SET daycount = daycount + 1, totalcount = totalcount + 1, timestamp = '%s' WHERE nid = '%s'", time(), $id);
|
||||
/* if we affected 0 rows, this is the first time viewing the node */
|
||||
if (!mysql_affected_rows()) { // Drupal needs generic db_affected_rows()
|
||||
if (!db_affected_rows()) {
|
||||
/* must create a new row to store counter's for new node */
|
||||
db_query("INSERT INTO statistics (nid,daycount,totalcount) VALUES('%s',daycount+1,totalcount+1)", $id);
|
||||
db_query("INSERT INTO statistics (nid, daycount, totalcount) VALUES('%s', daycount + 1, totalcount + 1)", $id);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if (variable_get("stats enable log", 0)) {
|
||||
if ((variable_get("statistics_enable_access_log", 0)) && (throttle_status() < 5)) {
|
||||
/* statistical logs are enabled */
|
||||
$referrer = getenv("HTTP_REFERER");
|
||||
$hostname = getenv("REMOTE_ADDR");
|
||||
/* log this page access */
|
||||
db_query("INSERT INTO accesslog (nid,url,hostname,uid,timestamp) values('%s','%s','%s','%s','%s')", $id, $referrer, $hostname, $user->uid, time());
|
||||
db_query("INSERT INTO accesslog (nid, url, hostname, uid, timestamp) values('%s', '%s', '%s', '%s', '%s')", $id, $referrer, $hostname, $user->uid, time());
|
||||
}
|
||||
|
||||
/* 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("stats enable throttle", 0)) && (!rand(0, variable_get("stats 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. Perhaps Drupal could detect pre-4.2.0 systems,
|
||||
or if not, this could be made a configurable option. */
|
||||
/* see if we need to adjust the throttle */
|
||||
$throttle = throttle_status();
|
||||
/*
|
||||
** 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("stats throttle multiplier", 60);
|
||||
$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 >= %s", (time() - 60));
|
||||
$recent_activity = db_fetch_array($result);
|
||||
|
|
@ -76,11 +62,14 @@ function statistics_system($field) {
|
|||
|
||||
/* Permissions hook, defines module's permissions */
|
||||
function statistics_perm() {
|
||||
/* administer statistics module - full administrative control of module
|
||||
administer stats - view statistics / referrers
|
||||
access statistics - see counts per node (if enabled)
|
||||
access userlist - see list of online users */
|
||||
return array("administer statistics module", "administer stats", "access statistics", "access userlist");
|
||||
/*
|
||||
** statistics module defines the following permissions:
|
||||
** administer statistics module - full administrative control of module
|
||||
** administer statistics - view statistics / referrers
|
||||
** access statistics - see counts per node (if enabled)
|
||||
** access userlist - see list of online users
|
||||
*/
|
||||
return array("administer statistics module", "administer statistics", "access statistics", "access userlist");
|
||||
}
|
||||
|
||||
|
||||
|
|
@ -88,14 +77,14 @@ function statistics_perm() {
|
|||
function statistics_link($type, $node = 0, $main = 0) {
|
||||
global $id;
|
||||
|
||||
if ($type == "admin" && (user_access("administer statistics module") || (user_access("administer stats")))) {
|
||||
if ($type == "admin" && (user_access("administer statistics module") || (user_access("administer statistics")))) {
|
||||
$links[] = la(t("statistics"), array("mod" => "statistics"));
|
||||
}
|
||||
|
||||
if ($type == "node" && user_access("access statistics") && variable_get("statistics display status", 0)) {
|
||||
if ($type == "node" && user_access("access statistics") && variable_get("statistics_display_counter", 0)) {
|
||||
$statistics = statistics_get($node->nid);
|
||||
if ($statistics) {
|
||||
if (user_access("administer stats")) {
|
||||
if (user_access("administer statistics")) {
|
||||
$links[] = la(format_plural($statistics[totalcount], "read", "reads"), array("mod" => "statistics", "op" => "referrers", "nid" => $node->nid));
|
||||
}
|
||||
else {
|
||||
|
|
@ -105,7 +94,7 @@ function statistics_link($type, $node = 0, $main = 0) {
|
|||
}
|
||||
|
||||
if ($type == "page" && user_access("access content")) {
|
||||
$userlink = variable_get("statistics up link", "");
|
||||
$userlink = variable_get("statistics_userpage_link", "");
|
||||
if ($userlink) {
|
||||
$links[] = lm(t($userlink), array("mod" => "statistics"), "", array("title" => "View the top nodes for this site"));
|
||||
}
|
||||
|
|
@ -130,52 +119,21 @@ function statistics_help() {
|
|||
|
||||
<p>This module also adds a configurable block that displays counts of how many users and guests are currently accessing your site, as well as a list of the names of the users currently accessing your site.</p>
|
||||
|
||||
<p>This module also adds an admin viewable block that displays the current status of the throttle. You must have "administer site configuration" priveleges to view the block.</p>
|
||||
<p>If you enable the node view counters, 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).</p>
|
||||
|
||||
<p>If you enable the node counters, 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).</p>
|
||||
<p>Finally, the statistics.module allows for a congestion controlling auto-throttle mechanism. If you have enabled the throttle.module, you can read more about this mechanism <?php print l("here", array("mod" => "help"), "admin", "throttle"); ?>.</p>
|
||||
|
||||
<p>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.</p>
|
||||
|
||||
<p>If you enable the auto-throttle, this adds 1 database query for each page that is displayed (until the maximum throttle is reached, then the query is automatically disabled until the site is less busy). This requires cron.</p>
|
||||
|
||||
<p><b>For efficiency, the statistics module requires the <code>mysql_affected_rows()</code> function, currently tieing it to MySQL.</b></p>
|
||||
|
||||
<p>As with any new module, <i>statistics.module</i> needs to be enabled <?php print l("here", array("mod" => "system", "op" => "modules"), "admin"); ?> before you can use it. Also refer to the permissions section below, as this module supports four separate permissions.</p>
|
||||
|
||||
<h3>MySQL table</h3>
|
||||
|
||||
<p>To use this module you need to create the 'statistics' and 'accesslog' MySQL tables. The easiest way to do this is with the included 'statistics.mysql' script. Type something like:
|
||||
<pre> mysql -u<username> -p<password> <database> < statistics.mysql</pre></p>
|
||||
|
||||
<p>If you'd prefer to add the table manually, you can cut and paste the following lines into the MySQL command line:
|
||||
<pre> DROP TABLE IF EXISTS statistics;
|
||||
CREATE TABLE statistics (
|
||||
nid int(11) NOT NULL,
|
||||
totalcount bigint UNSIGNED DEFAULT '0' NOT NULL,
|
||||
daycount mediumint UNSIGNED DEFAULT '0' NOT NULL,
|
||||
timestamp int(11) UNSIGNED DEFAULT '0' NOT NULL,
|
||||
PRIMARY KEY (nid),
|
||||
INDEX (totalcount),
|
||||
INDEX (daycount),
|
||||
INDEX (timestamp)
|
||||
);
|
||||
|
||||
DROP TABLE IF EXISTS accesslog;
|
||||
CREATE TABLE accesslog (
|
||||
nid int(11) UNSIGNED DEFAULT '0',
|
||||
url varchar(255),
|
||||
hostname varchar(128),
|
||||
uid int(10) UNSIGNED DEFAULT '0',
|
||||
timestamp int(11) UNSIGNED NOT NULL
|
||||
);</pre></p>
|
||||
|
||||
<h3>View statistics</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>
|
||||
|
||||
<h3>View referrers</h3>
|
||||
|
||||
<p>This admin page shows you site-wide referrer statistics. You can see '<i>all</i>' stats, '<i>external</i>' statistics or '<i>internal</i>' stats. (Default is 'external')</p>
|
||||
<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 'external'.</p>
|
||||
|
||||
<h3>Configuring the statistics module</h3>
|
||||
|
||||
|
|
@ -185,15 +143,9 @@ function statistics_help() {
|
|||
|
||||
<p>The second option, <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.</p>
|
||||
|
||||
<p>The third option, <i>enable auto-throttle</i>, allows you to turn the auto-throttle feature on and off. The access log must also be enabled for the auto-throttle to function.</p>
|
||||
<p>The next option, <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, as a counter is incremented with each node view.</p>
|
||||
|
||||
<p>The next option, <i>auto-throttle multiplier</i>, selects a multiplier to calculate each auto-throttle level. For example, with a multiplier of '10', level one starts when 10 users hit your site in 60 seconds, level 2 starts when 20 users hit your site in 60 seconds, so on up to level 5 which starts when 50 users hit your site in 60 seconds.</p>
|
||||
|
||||
<p>The next option, <i>auto-throttle probability limiter</i>, allows you to specify roughly how often the throttle level is updated. Each time it gets updated, it adds a database query to that pages generation, so it's a good idea to keep the probability limiter down at 20% or lower.</p>
|
||||
|
||||
<p>The next option, <i>enable node 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, as a counter is incremented with each node view.</p>
|
||||
|
||||
<p>The next option, <i>display node counters</i>, allows you to globally disable the displaying of node counters. Additionally, a user group must have 'access statistics' permissions to view the counters.</p>
|
||||
<p>The next option, <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.</p>
|
||||
|
||||
<p>The final option is to <i>reset the day counter</i>. Every twenty four hours, all the day's totals are automatically reset to 0, and started again. Whatever time you click this link is the time each day that the day's totals will be reset. This requires cron. Note that clicking this link will reload the site configuration page <i>without</i> saving any other changes you might have made.</p>
|
||||
|
||||
|
|
@ -224,12 +176,11 @@ function statistics_help() {
|
|||
<li><i>access statistics</i> - enable for user roles that get to see individual node counts. (This does not define access to the block)</li>
|
||||
<li><i>access userlist</i> - enable for user roles that get to see the list of user's that are currently online within the "Who's online" block.</li>
|
||||
<li><i>administer statistics module</i> - enable for user roles that get to configure the statistics module.</li>
|
||||
<li><i>administer stats</i> - enable for user roles that get to view the referrer statistics.</li>
|
||||
<li><i>administer statistics</i> - enable for user roles that get to view the referrer statistics.</li>
|
||||
</ul>
|
||||
If '<i>administer stats</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).
|
||||
<hr>
|
||||
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).
|
||||
|
||||
<h2>Statistics for developers</h2>
|
||||
<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 $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>
|
||||
|
|
@ -241,14 +192,14 @@ If '<i>administer stats</i>' and '<i>access statistics</i>' are both enabled, th
|
|||
<p>The module automatically adds '# reads' to each node's link section (if enabled).</p>
|
||||
|
||||
<h3>Top stories</h3>
|
||||
<p>The statistics.module provides a function '<i>statistics_display_ltitle($type)</i>' to return a linked title of any of the following: the top viewed node of all time, the top viewed node of today, the last viewed node. You can pass in:
|
||||
<p>The statistics.module provides a function '<i>statistics_display_linked_title($type)</i>' to return a linked title of any of the following: the top viewed node of all time, the top viewed node of today, the last viewed node. You can pass in:
|
||||
<ul>
|
||||
<li><i>totalcount</i> - This will return a link to the top viewed node of all time.<br />
|
||||
Example: <code>statistics_display_ltitle("totalcount");</code><br /><br /></li>
|
||||
Example: <code>statistics_display_linked_title("totalcount");</code><br /><br /></li>
|
||||
<li><i>daycount</i> - This will return a link to the top viewed node for today.<br />
|
||||
Example: <code>statistics_display_ltitle("daycount");</code><br /><br /></li>
|
||||
Example: <code>statistics_display_linked_title("daycount");</code><br /><br /></li>
|
||||
<li><i>timestamp</i> - This will return a link to the last viewed node.<br />
|
||||
Example: <code>statistics_display_ltitle("timestamp");</code></li>
|
||||
Example: <code>statistics_display_linked_title("timestamp");</code></li>
|
||||
</ul>
|
||||
|
||||
<h3>Throttle</h3>
|
||||
|
|
@ -265,6 +216,7 @@ If '<i>administer stats</i>' and '<i>access statistics</i>' are both enabled, th
|
|||
else {
|
||||
// throttle limit not reached, execute normally
|
||||
}</pre></p>
|
||||
<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 <?php print l("here", array("mod" => "help"), "admin", "throttle"); ?> if you have enabled the throttle.module).</p>
|
||||
|
||||
<?php
|
||||
}
|
||||
|
|
@ -275,16 +227,16 @@ function statistics_admin() {
|
|||
global $op, $id, $edit, $nid;
|
||||
|
||||
/* Only allow people with sufficient access. */
|
||||
if ((user_access("administer statistics module")) || (user_access("administer stats"))) {
|
||||
if ((user_access("administer statistics module")) || (user_access("administer statistics"))) {
|
||||
|
||||
/* Display the second level admin links */
|
||||
$links[] = la(t("view statistics"), array("mod" => "statistics", "op" => "statistics"));
|
||||
$links[] = la(t("view referrers"), array("mod" => "statistics", "op" => "referrers"));
|
||||
$links[] = la(t("view access log"), array("mod" => "statistics", "op" => "log"));
|
||||
if (user_access("administer statistics module")) {
|
||||
$links[] = la(t("top nodes block"), array("mod" => "statistics", "op" => "block0"));
|
||||
$links[] = la(t("top nodes page"), array("mod" => "statistics", "op" => "page0"));
|
||||
$links[] = la(t("who's online block"), array("mod" => "statistics", "op" => "block1"));
|
||||
$links[] = la(t("top nodes block"), array("mod" => "statistics", "op" => "top nodes block"));
|
||||
$links[] = la(t("top nodes page"), array("mod" => "statistics", "op" => "top nodes page"));
|
||||
$links[] = la(t("who's online block"), array("mod" => "statistics", "op" => "whos online block"));
|
||||
}
|
||||
$links[] .= la(t("help"), array("mod" => "statistics", "op" => "help"));
|
||||
print "<small>". implode(" · ", $links) ."</small><hr />";
|
||||
|
|
@ -311,43 +263,43 @@ function statistics_admin() {
|
|||
$op = stripslashes($op);
|
||||
switch ($op) {
|
||||
case "Submit \"top nodes\" block changes":
|
||||
print status(statistics_save_block0($edit));
|
||||
print status(statistics_save_topnodes_block($edit));
|
||||
break;
|
||||
case "Submit \"who's online\" block changes":
|
||||
print status(statistics_save_block1($edit));
|
||||
print status(statistics_save_online_block($edit));
|
||||
break;
|
||||
case "Submit \"top nodes\" page changes":
|
||||
print status(statistics_save_userconfig($edit));
|
||||
break;
|
||||
case "block0":
|
||||
print statistics_config_block0(array(
|
||||
"stats b0 title0" => variable_get("stats b0 title0", "Top nodes"),
|
||||
"stats b0 days head" => variable_get("stats b0 days head", "<b>Today's top:</b>"),
|
||||
"stats b0 days top" => variable_get("stats b0 days top", 0),
|
||||
"stats b0 alltime head" => variable_get("stats b0 alltime head", "<b>All time top:</b>"),
|
||||
"stats b0 alltime top" => variable_get("stats b0 alltime top", 0),
|
||||
"stats b0 last head" => variable_get("stats b0 last head" ,"<b>Last:</b>"),
|
||||
"stats b0 last top" => variable_get("stats b0 last top", 0)
|
||||
case "top nodes block":
|
||||
print statistics_config_topnodes_block(array(
|
||||
"statistics_block_top_title" => variable_get("statistics_block_top_title", "Top nodes"),
|
||||
"statistics_block_top_day_head" => variable_get("statistics_block_top_day_head", "<b>Todays top:</b>"),
|
||||
"statistics_block_top_day_num" => variable_get("statistics_block_top_day_num", 0),
|
||||
"statistics_block_top_all_head" => variable_get("statistics_block_top_all_head", "<b>All time top:</b>"),
|
||||
"statistics_block_top_all_num" => variable_get("statistics_block_top_all_num", 0),
|
||||
"statistics_block_top_last_head" => variable_get("statistics_block_top_last_head" ,"<b>Last:</b>"),
|
||||
"statistics_block_top_last_num" => variable_get("statistics_block_top_last_num", 0)
|
||||
));
|
||||
break;
|
||||
case "block1":
|
||||
print statistics_config_block1(array(
|
||||
"stats b1 title0" => variable_get("stats b1 title0", "Who's online"),
|
||||
"stats b1 title1" => variable_get("stats b1 title1", "Online users:"),
|
||||
"stats b1 time" => variable_get("stats b1 time", 2700),
|
||||
"stats b1 maxname len" => variable_get("stats b1 maxname len", 15),
|
||||
"stats b1 max names" => variable_get("stats b1 max names", 10)
|
||||
case "whos online block":
|
||||
print statistics_config_online_block(array(
|
||||
"statistics_block_online_title" => variable_get("statistics_block_online_title", "Whos online"),
|
||||
"statistics_block_online_subtitle" => variable_get("statistics_block_online_subtitle", "Online users:"),
|
||||
"statistics_block_online_time" => variable_get("statistics_block_online_time", 2700),
|
||||
"statistics_block_online_max_len" => variable_get("statistics_block_online_max_len", 15),
|
||||
"statistics_block_online_max_cnt" => variable_get("statistics_block_online_max_cnt", 10)
|
||||
));
|
||||
break;
|
||||
case "page0":
|
||||
print statistics_display_userconfig(array(
|
||||
"statistics up link" => variable_get("statistics up link", ""),
|
||||
"statistics up days head" => variable_get("statistics up days head", "Today's top"),
|
||||
"statistics up days top" => variable_get("statistics up days top", 0),
|
||||
"statistics up alltime head" => variable_get("statistics up alltime head", 0),
|
||||
"statistics up alltime top" => variable_get("statistics up alltime top", "All time top"),
|
||||
"statistics up last head" => variable_get("statistics up last head", 0),
|
||||
"statistics up last top" => variable_get("statistics up last top", "Last")
|
||||
case "top nodes page":
|
||||
print 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;
|
||||
case "submit statistics config":
|
||||
|
|
@ -356,7 +308,7 @@ function statistics_admin() {
|
|||
break;
|
||||
case "reset day counter":
|
||||
db_query("UPDATE statistics SET daycount='0'");
|
||||
variable_set("statistics timestamp", time());
|
||||
variable_set("statistics_day_timestamp", time());
|
||||
break;
|
||||
default:
|
||||
print statistics_admin_displaycounts();
|
||||
|
|
@ -368,13 +320,13 @@ function statistics_admin() {
|
|||
|
||||
|
||||
/* Displays the various admin tables */
|
||||
function statistics_admin_table0($dbfield, $dbrows) {
|
||||
$result = db_query("SELECT statistics.nid,statistics.daycount,statistics.totalcount,statistics.timestamp,node.title FROM statistics LEFT JOIN node USING (nid) ORDER BY statistics.%s DESC LIMIT %s", $dbfield, $dbrows);
|
||||
function statistics_admin_count_table($dbfield, $dbrows) {
|
||||
$result = db_query("SELECT statistics.nid, statistics.daycount, statistics.totalcount, statistics.timestamp, node.title FROM statistics LEFT JOIN node USING (nid) ORDER BY statistics.%s DESC LIMIT %s", $dbfield, $dbrows);
|
||||
|
||||
$output .= "<table border=\"1\" cellpadding=\"3\" cellspacing =\"0\"><tr><th>title</th><th>today</th><th>all time</th><th>last hit</th><th>referrers</th></tr>\n";
|
||||
|
||||
while ($nid = db_fetch_array($result)) {
|
||||
$output .= "<tr><td>". l($nid["title"], array("id" => $nid["nid"]), "node", "", array("title" => t("View this story and all of its comments."))) ."</td><td>". $nid["daycount"] ."</td><td>". $nid["totalcount"] ."</td><td>". format_date($nid["timestamp"], "small") ."</td><td><center>";
|
||||
$output .= "<tr><td>". l($nid["title"], array("id" => $nid["nid"]), "node", "", array("title" => t("View this posting."))) ."</td><td>". $nid["daycount"] ."</td><td>". $nid["totalcount"] ."</td><td>". format_date($nid["timestamp"], "small") ."</td><td><center>";
|
||||
$output .= la("view", array("mod" => "statistics", "op" => "referrers", "nid" => $nid["nid"], "title" => "$nid[title]"));
|
||||
$output .= "</center></td></tr>";
|
||||
}
|
||||
|
|
@ -384,7 +336,7 @@ function statistics_admin_table0($dbfield, $dbrows) {
|
|||
}
|
||||
|
||||
|
||||
function statistics_admin_table1($type, $id) {
|
||||
function statistics_admin_accesslog_table($type, $id) {
|
||||
/* overview limit */
|
||||
$limit0 = 50;
|
||||
/* detail limit */
|
||||
|
|
@ -394,26 +346,26 @@ function statistics_admin_table1($type, $id) {
|
|||
/* retrieve user access logs */
|
||||
if ($id) {
|
||||
/* retrieve recent access logs for user $id */
|
||||
$result = db_query("SELECT nid,url,hostname,uid,timestamp FROM accesslog WHERE uid = '%s' ORDER BY timestamp DESC LIMIT %s", $id, $limit1);
|
||||
$result = db_query("SELECT nid, url, hostname, uid, timestamp FROM accesslog WHERE uid = '%s' ORDER BY timestamp DESC LIMIT %s", $id, $limit1);
|
||||
}
|
||||
else {
|
||||
/* retrieve recent access logs for all users */
|
||||
$result = db_query("SELECT nid,url,hostname,uid,MAX(timestamp) AS timestamp FROM accesslog WHERE uid != '0' GROUP BY uid ORDER BY timestamp DESC LIMIT %s", $limit1);
|
||||
$result = db_query("SELECT nid, url, hostname, uid, MAX(timestamp) AS timestamp FROM accesslog WHERE uid != '0' GROUP BY uid ORDER BY timestamp DESC LIMIT %s", $limit1);
|
||||
}
|
||||
}
|
||||
else if ($type == 2) {
|
||||
/* retrieve recent access logs for node $id */
|
||||
$result = db_query("SELECT nid,url,hostname,uid,timestamp FROM accesslog WHERE nid = '%s' ORDER BY timestamp DESC LIMIT %s", $id, $limit1);
|
||||
$result = db_query("SELECT nid, url, hostname, uid, timestamp FROM accesslog WHERE nid = '%s' ORDER BY timestamp DESC LIMIT %s", $id, $limit1);
|
||||
|
||||
}
|
||||
else if ($type == 3) {
|
||||
/* retrieve recent access logs for hostname $id */
|
||||
$result = db_query("SELECT nid,url,hostname,uid,timestamp FROM accesslog WHERE hostname = '%s' ORDER BY timestamp DESC LIMIT %s", $id, $limit1);
|
||||
$result = db_query("SELECT nid, url, hostname, uid, timestamp FROM accesslog WHERE hostname = '%s' ORDER BY timestamp DESC LIMIT %s", $id, $limit1);
|
||||
|
||||
}
|
||||
else {
|
||||
/* retrieve all recent access logs */
|
||||
$result = db_query("SELECT nid,url,hostname,uid,timestamp FROM accesslog ORDER BY timestamp DESC LIMIT %s", $limit0);
|
||||
$result = db_query("SELECT nid, url, hostname, uid, timestamp FROM accesslog ORDER BY timestamp DESC LIMIT %s", $limit0);
|
||||
}
|
||||
|
||||
$output .= "<table border=\"1\" cellpadding=\"3\" cellspacing =\"0\"><tr><th>timestamp</th><th>title</th><th>user</th><th>hostname</th><th>referrer</th></tr>\n";
|
||||
|
|
@ -423,7 +375,14 @@ function statistics_admin_table1($type, $id) {
|
|||
$node->nid = 0;
|
||||
}
|
||||
$user = user_load(array("uid" => $log["uid"]));
|
||||
$output .= "<tr><td>". format_date($log["timestamp"], "small") ."</td><td>". la(($node->nid ? $node->title : ""), array("mod" => "statistics", "op" => "log", "nid" => $node->nid), "") ."</td><td>". la((strlen($user->name) > 18 ? substr($user->name, 0, 18) . '...' : $user->name), array("mod" => "statistics", "op" => "log", "uid" => $user->uid), "") ."</td><td>". la($log["hostname"], array("mod" => "statistics", "op" => "log", "hostname" => $log["hostname"]), "") ."</td><td><a href=\"$log[url]\" title=\"$log[url]\">". ($log["url"] ? (strlen($log["url"]) > 28 ? substr($log["url"], 0, 28) . '...' : $log["url"]) : "") ."</a></td></tr>";
|
||||
$output .= "<tr><td>". format_date($log["timestamp"], "small") ."</td><td>". ($node->nid ? la($node->title, array("mod" => "statistics", "op" => "log", "nid" => $node->nid), "") : "n/a") ."</td><td>". ($user->name ? la((strlen($user->name) > 18 ? substr($user->name, 0, 18) . '...' : $user->name), array("mod" => "statistics", "op" => "log", "uid" => $user->uid), "") : "n/a") ."</td><td>". ($log["hostname"] ? la($log["hostname"], array("mod" => "statistics", "op" => "log", "hostname" => $log["hostname"]), "") : "n/a") ."</td><td>";
|
||||
if ($log["url"]) {
|
||||
$output .= "<a href=\"$log[url]\" title=\"$log[url]\">". (strlen($log["url"]) > 28 ? substr($log["url"], 0, 28) . '...' : $log["url"]) ."</a></td></tr>";
|
||||
}
|
||||
else {
|
||||
$output .= "n/a</td></tr>";
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
$output .= "</table>";
|
||||
|
|
@ -458,7 +417,7 @@ function statistics_recent_refer($nid = 0) {
|
|||
}
|
||||
|
||||
$result = db_query($query);
|
||||
$output = "<h3>Most recent ". $describe ."referrers for node \"". l($node->title, array("id" => "$nid"), "node", "", array("title" => t("View this story and all of its comments."))) ."\"</h3>";
|
||||
$output = "<h3>Most recent ". $describe ."referrers for node \"". l($node->title, array("id" => "$nid"), "node", "", array("title" => t("View this posting."))) ."\"</h3>";
|
||||
}
|
||||
else {
|
||||
if ($view == "all") {
|
||||
|
|
@ -496,19 +455,19 @@ function statistics_top_refer($nid = 0) {
|
|||
|
||||
if ($nid > 0) {
|
||||
if ($view == "all") {
|
||||
$query = "SELECT url, COUNT(url) AS count FROM accesslog WHERE nid='$nid' AND url != '' GROUP BY url ORDER BY count DESC";
|
||||
$query = "SELECT url, COUNT(url) AS count FROM accesslog WHERE nid = '$nid' AND url != '' GROUP BY url ORDER BY count DESC";
|
||||
}
|
||||
elseif ($view == "internal") {
|
||||
$query = "SELECT url, COUNT(url) AS count FROM accesslog WHERE nid='$nid' AND url LIKE '%". check_input($HTTP_HOST) ."%' GROUP BY url ORDER BY count DESC";
|
||||
$query = "SELECT url, COUNT(url) AS count FROM accesslog WHERE nid = '$nid' AND url LIKE '%". check_input($HTTP_HOST) ."%' GROUP BY url ORDER BY count DESC";
|
||||
$describe = "internal ";
|
||||
}
|
||||
else {
|
||||
/* default to external */
|
||||
$query = "SELECT url, COUNT(url) AS count FROM accesslog WHERE nid='$nid' AND url NOT LIKE '%". check_input($HTTP_HOST) ."%' AND url != '' GROUP BY url ORDER BY count DESC";
|
||||
$query = "SELECT url, COUNT(url) AS count FROM accesslog WHERE nid = '$nid' AND url NOT LIKE '%". check_input($HTTP_HOST) ."%' AND url != '' GROUP BY url ORDER BY count DESC";
|
||||
$describe = "external ";
|
||||
}
|
||||
|
||||
$output = "<h3>Top ". $describe ."referrers of the past ". format_interval(variable_get("stats flush log", 259200)) ." for node \"". l($node->title, array("id" => "$nid"), "node", "", array("title" => t("View this story and all of its comments."))) ."\"</h3>";
|
||||
$output = "<h3>Top ". $describe ."referrers of the past ". format_interval(variable_get("statistics_flush_accesslog_timer", 259200)) ." for node \"". l($node->title, array("id" => "$nid"), "node", "", array("title" => t("View this posting."))) ."\"</h3>";
|
||||
}
|
||||
else {
|
||||
if ($view == "all") {
|
||||
|
|
@ -524,7 +483,7 @@ function statistics_top_refer($nid = 0) {
|
|||
$describe = "external ";
|
||||
}
|
||||
|
||||
$output = "<h3>Top ". $describe ."referrers of the past ". format_interval(variable_get("stats flush log", 259200)) ."</h3>";
|
||||
$output = "<h3>Top ". $describe ."referrers of the past ". format_interval(variable_get("statistics_flush_accesslog_timer", 259200)) ."</h3>";
|
||||
}
|
||||
|
||||
$result = db_query($query);
|
||||
|
|
@ -544,17 +503,17 @@ function statistics_top_refer($nid = 0) {
|
|||
function statistics_admin_displaycounts() {
|
||||
|
||||
$output .= "<h3>Today's top nodes</h3>\n";
|
||||
$output .= statistics_admin_table0("daycount", 15);
|
||||
$output .= statistics_admin_count_table("daycount", 15);
|
||||
|
||||
$output .= "<br />";
|
||||
|
||||
$output .= "<h3>All time top nodes</h3>\n";
|
||||
$output .= statistics_admin_table0("totalcount", 15);
|
||||
$output .= statistics_admin_count_table("totalcount", 15);
|
||||
|
||||
$output .= "<br />";
|
||||
|
||||
$output .= "<h3>Last nodes viewed</h3>\n";
|
||||
$output .= statistics_admin_table0("timestamp", 15);
|
||||
$output .= statistics_admin_count_table("timestamp", 15);
|
||||
|
||||
return $output;
|
||||
}
|
||||
|
|
@ -566,25 +525,25 @@ function statistics_admin_displaylog() {
|
|||
if ($uid) {
|
||||
$user = user_load(array("uid" => $uid));
|
||||
$output .= "<h3>Recent access logs for '$user->name'</h3>\n";
|
||||
$output .= statistics_admin_table1(1, $user->uid);
|
||||
$output .= statistics_admin_accesslog_table(1, $user->uid);
|
||||
}
|
||||
else if ($nid) {
|
||||
$node = node_load(array("nid" => $nid));
|
||||
$output .= "<h3>Recent access logs for '$node->title'</h3>\n";
|
||||
$output .= statistics_admin_table1(2, $node->nid);
|
||||
$output .= statistics_admin_accesslog_table(2, $node->nid);
|
||||
}
|
||||
else if ($hostname) {
|
||||
$output .= "<h3>Recent access logs for '$hostname'</h3>\n";
|
||||
$output .= statistics_admin_table1(3, $hostname);
|
||||
$output .= statistics_admin_accesslog_table(3, $hostname);
|
||||
}
|
||||
else {
|
||||
$output .= "<h3>Recent access logs</h3>\n";
|
||||
$output .= statistics_admin_table1(0, 0);
|
||||
$output .= statistics_admin_accesslog_table(0, 0);
|
||||
|
||||
$output .= "<br />";
|
||||
|
||||
$output .= "<h3>Recent users</h3>\n";
|
||||
$output .= statistics_admin_table1(1, 0);
|
||||
$output .= statistics_admin_accesslog_table(1, 0);
|
||||
|
||||
$output .= "<br />";
|
||||
}
|
||||
|
|
@ -594,24 +553,24 @@ function statistics_admin_displaylog() {
|
|||
|
||||
|
||||
/* Displays the block configuration administration form */
|
||||
function statistics_config_block0($edit) {
|
||||
function statistics_config_topnodes_block($edit) {
|
||||
|
||||
$form = form_textfield(t("Block name"), "stats b0 title0", $edit["stats b0 title0"], 20, 40, "This module generates a block with top nodes. You may assign a name for this block.");
|
||||
$form = form_textfield(t("Block name"), "statistics_block_top_title", $edit["statistics_block_top_title"], 20, 40, "This module generates a block with top nodes. You may assign a name for this block.");
|
||||
|
||||
$form .= "<hr />";
|
||||
|
||||
$form .= form_textfield(t("Today's top nodes title"), "stats b0 days head", $edit["stats b0 days head"], 20, 40, "Specify a name for the \"day's top\" section of the block generated by this module. (HTML tags permitted)");
|
||||
$form .= form_select(t("Number of day's top views to display"), "stats b0 days top", $edit["stats b0 days top"], 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"), "Set how many \"today's top\" nodes to display on the block generated by this module.");
|
||||
$form .= form_textfield(t("Today's top nodes title"), "statistics_block_top_day_head", $edit["statistics_block_top_day_head"], 20, 40, "Specify a name for the \"day's top\" section of the block generated by this module. (HTML tags permitted)");
|
||||
$form .= 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"), "Set how many \"today's top\" nodes to display on the block generated by this module.");
|
||||
|
||||
$form .= "<hr />";
|
||||
|
||||
$form .= form_textfield(t("All time top nodes title"), "stats b0 alltime head", $edit["stats b0 alltime head"], 20, 40, "Specify a name for the \"all time top\" section of the block generated by this module. (HTML tags permitted)");
|
||||
$form .= form_select(t("Number of all time views to display"), "stats b0 alltime top", $edit["stats b0 alltime top"], 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"), "Set how many \"all time top\" nodes to display on the block generated by this module.");
|
||||
$form .= form_textfield(t("All time top nodes title"), "statistics_block_top_all_head", $edit["statistics_block_top_all_head"], 20, 40, "Specify a name for the \"all time top\" section of the block generated by this module. (HTML tags permitted)");
|
||||
$form .= 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"), "Set how many \"all time top\" nodes to display on the block generated by this module.");
|
||||
|
||||
$form .= "<hr>";
|
||||
|
||||
$form .= form_textfield(t("Most recent views heading"), "stats b0 last head", $edit["stats b0 last head"], 20, 40, "Specify a name for the \"last views\" section of the block generated by this module. (HTML tags permitted)");
|
||||
$form .= form_select(t("Number of most recent views to display"), "stats b0 last top", $edit["stats b0 last top"], 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"), "Set how many \"last viewed\" nodes to display on the block generated by this module.");
|
||||
$form .= form_textfield(t("Most recent views heading"), "statistics_block_top_last_head", $edit["statistics_block_top_last_head"], 20, 40, "Specify a name for the \"last views\" section of the block generated by this module. (HTML tags permitted)");
|
||||
$form .= 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"), "Set how many \"last viewed\" nodes to display on the block generated by this module.");
|
||||
|
||||
$form .= "<hr>";
|
||||
|
||||
|
|
@ -624,15 +583,15 @@ function statistics_config_block0($edit) {
|
|||
|
||||
|
||||
/* Displays the block configuration administration form */
|
||||
function statistics_config_block1($edit) {
|
||||
function statistics_config_online_block($edit) {
|
||||
|
||||
$form .= form_textfield(t("Block name"), "stats b1 title0", $edit["stats b1 title0"], 20, 40, "This module generates a block displaying how many users/guests are online. You may assign a name for this block.");
|
||||
$form .= form_textfield(t("Sub-block name"), "stats b1 title1", $edit["stats b1 title1"], 20, 40, "This module generates a sub-block listing the names of currently online users. You may assign a name for this block.");
|
||||
$form .= form_textfield(t("Block name"), "statistics_block_online_title", $edit["statistics_block_online_title"], 20, 40, "This module generates a block displaying how many users/guests are online. You may assign a name for this block.");
|
||||
$form .= form_textfield(t("Sub-block name"), "statistics_block_online_subtitle", $edit["statistics_block_online_subtitle"], 20, 40, "This module generates a sub-block listing the names of currently online users. You may assign a name for this block.");
|
||||
|
||||
$period = array(30 => format_interval(30), 60 => format_interval(60), 120 => format_interval(120), 180 => format_interval(180), 300 => format_interval(300), 600 => format_interval(600), 900 => format_interval(900), 1800 => format_interval(1800), 2700 => format_interval(2700), 3600 => format_interval(3600), 5400 => format_interval(5400), 7200 => format_interval(7200), 10800 => format_interval(10800), 21600 => format_interval(21600), 43200 => format_interval(43200), 86400 => format_interval(86400));
|
||||
$form .= form_select(t("Activity trheshold"), "stats b1 time", $edit["stats b1 time"], $period, "How long ago a user (or guest) must have been active to be considered online.");
|
||||
$form .= form_select(t("Maximum characters of user's name to display"), "stats b1 maxname len", $edit["stats b1 maxname len"], array("1" => "1", "5" => "5", "10" => "10", "15" => "15", "20" => "20", "25" => "25", "30" => "30", "35" => "35", "40" => "40", "45" => "45", "50" => "50", "55" => "55", "60" => "60"), "What is the maximum characters of a user's name to to display in the sub-block.");
|
||||
$form .= form_select(t("How many online users to list"), "stats b1 max names", $edit["stats b1 max names"], array("0" => "0", "1" => "1", "2" => "2", "3" => "3", "4" => "4", "5" => "5", "6" => "6", "7" => "7", "8" => "8", "9" => "9", "10" => "10", "15" => "15", "20" => "20", "50" => "50", "100" => "100"), "How many online user's names to display in the sub-block.");
|
||||
$form .= form_select(t("Activity threshold"), "statistics_block_online_time", $edit["statistics_block_online_time"], $period, "How long ago a user (or guest) must have been active to be considered online.");
|
||||
$form .= form_select(t("Maximum characters of user's name to display"), "statistics_block_online_max_len", $edit["statistics_block_online_max_len"], array("1" => "1", "5" => "5", "10" => "10", "15" => "15", "20" => "20", "25" => "25", "30" => "30", "35" => "35", "40" => "40", "45" => "45", "50" => "50", "55" => "55", "60" => "60"), "What is the maximum characters of a user's name to to display in the sub-block.");
|
||||
$form .= form_select(t("How many online users to list"), "statistics_block_online_max_cnt", $edit["statistics_block_online_max_cnt"], array("0" => "0", "1" => "1", "2" => "2", "3" => "3", "4" => "4", "5" => "5", "6" => "6", "7" => "7", "8" => "8", "9" => "9", "10" => "10", "15" => "15", "20" => "20", "50" => "50", "100" => "100"), "How many online user's names to display in the sub-block.");
|
||||
|
||||
$form .= form_submit("Submit \"who's online\" block changes");
|
||||
|
||||
|
|
@ -642,21 +601,21 @@ function statistics_config_block1($edit) {
|
|||
|
||||
|
||||
/* Displays the user page configuration administration form */
|
||||
function statistics_display_userconfig($edit) {
|
||||
function statistics_admin_userpage_config($edit) {
|
||||
|
||||
$form = form_textfield(t("Name for link to user page"), "statistics up link", $edit["statistics up link"], 20, 40, "This node generates a user page with top nodes. If you wish a link added automatically, specify a name.");
|
||||
$form = form_textfield(t("Name for link to user page"), "statistics_userpage_link", $edit["statistics_userpage_link"], 20, 40, "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 up days head", $edit["statistics up days head"], 20, 40, "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 up days top", $edit["statistics up days top"], 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"), "Set how many \"day's top\" nodes to display on the user page generated by this module.");
|
||||
$form .= form_textfield(t("Today's top nodes title"), "statistics_userpage_day_head", $edit["statistics_userpage_day_head"], 20, 40, "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"), "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 up alltime head", $edit["statistics up alltime head"], 20, 40, "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 up alltime top", $edit["statistics up alltime top"], 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"), "Set how many \"all time top\" nodes to display on the user page generated by this module.");
|
||||
$form .= form_textfield(t("All time top nodes title"), "statistics_userpage_all_head", $edit["statistics_userpage_all_head"], 20, 40, "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"), "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 up last head", $edit["statistics up last head"], 20, 40, "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 up last top", $edit["statistics up last top"], 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"), "Set how many \"last viewed\" nodes to display on the user page generated by this module.");
|
||||
$form .= form_textfield(t("Last viewed nodes title"), "statistics_userpage_last_head", $edit["statistics_userpage_last_head"], 20, 40, "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"), "Set how many \"last viewed\" nodes to display on the user page generated by this module.");
|
||||
$form .= "<hr />";
|
||||
|
||||
$form .= form_submit("Submit \"top nodes\" page changes");
|
||||
|
|
@ -670,87 +629,76 @@ function statistics_display_userconfig($edit) {
|
|||
/* Adds configure option to the main configure site admin page */
|
||||
function statistics_conf_options() {
|
||||
/* access log options */
|
||||
$output .= "<h4>[ access log: ]</h4>";
|
||||
$output .= form_select(t("enable access log"), "stats enable log", variable_get("stats enable log", 0), array("1" => t("enabled"), "0" => t("disabled")), "Log each page access. (required for referrer statistics and auto-throttling)");
|
||||
$output .= form_select(t("Enable access log"), "statistics_enable_access_log", variable_get("statistics_enable_access_log", 0), array("1" => t("enabled"), "0" => t("disabled")), "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));
|
||||
$output .= form_select(t("discard access logs older than"), "stats flush log", variable_get("stats flush log", 259200), $period, "Older access log entries (including referrer statistics) will be automatically discarded. Requires crontab.");
|
||||
$output .= form_select(t("Discard access logs older than"), "statistics_flush_accesslog_timer", variable_get("statistics_flush_accesslog_timer", 259200), $period, "Older access log entries (including referrer statistics) will be automatically discarded. Requires crontab.");
|
||||
|
||||
$output .= "<h4>[ auto-throttle: ]</h4>";
|
||||
$output .= form_select(t("enable auto-throttle"), "stats enable throttle", variable_get("stats enable throttle", 0), array("1" => t("enabled"), "0" => t("disabled")), "Throttle (minimize) site when receiving too many hits. (requires that 'access log' be enabled)");
|
||||
$throttles = array(1 => "1 (0,1,2,3,4,5)", 5 => "5 (0,5,10,15,20,25)", 10 => "10 (0,10,20,30,40,50)", 20 => "20 (0,20,40,60,80,100)", 30 => "30 (0,30,60,90,120,150)", 50 => "50 (0,50,100,150,200,250)", 60 => "60 (0,60,120,180,240,300)", 100 => "100 (0,100,200,300,400,500", 500 => "500 (0,500,1000,1500,2000,2500", 1000 => "1000 (0,1000,2000,3000,4000,5000)");
|
||||
$output .= form_select(t("auto-throttle multiplier"), "stats throttle multiplier", variable_get("stats throttle multiplier", 60), $throttles, "Multiplier to define the number of page accesses made in past minute to trigger each throttle level (0-5).");
|
||||
$probabilities = array(0 => "100%", 1 => "50%", 2 => "33.3%", 3 => "25%", 4 => "20%", 5 => "16.6%", 7 => "12.5%", 9 => "10%", 19 => "5%", 99 => "1%");
|
||||
$output .= form_select(t("auto-throttle probability limiter"), "stats probability limiter", variable_get("stats probability limiter", 9), $probabilities, "Probability based efficiency mechanism. Specify the approximate % of hits that will update the throttle level. (Updates add one DB query)");
|
||||
$output .= form_select(t("Enable node view counters"), "statistics_enable_node_counter", variable_get("statistics_enable_node_counter", 0), array("1" => t("enabled"), "0" => t("disabled")), "Increment node view counter each time a node is viewed.");
|
||||
$output .= form_select(t("Display node view counters"), "statistics_display_counter", variable_get("statistics_display_counter", ""), array("1" => t("enabled"), "0" => t("disabled")), "Display how many times each node has been viewed. User must have the 'access statistics' permissions.");
|
||||
|
||||
$output .= "<h4>[ node view counters: ]</h4>";
|
||||
$output .= form_select(t("enable node counters"), "stats enable node counts", variable_get("stats enable node counts", 0), array("1" => t("enabled"), "0" => t("disabled")), "Increment node counter each time node is viewed.");
|
||||
$output .= form_select(t("display node counters"), "statistics display status", variable_get("statistics display status", ""), array("1" => t("enabled"), "0" => t("disabled")), "Display how many times each node has been viewed. User must have 'access statistics' permissions.");
|
||||
|
||||
$output .= "<b>day counter last reset on:</b><br />". format_date(variable_get("statistics timestamp", "large")) ."<br /><br />";
|
||||
$output .= la(t("<b>reset day counter</b>"), array("mod" => "statistics", "op" => "reset day counter"));
|
||||
$output .= "<br /><i>Clicking this link will reload this page without saving any other changes you've made. It will reset the day counter to now.</i>";
|
||||
return $output;
|
||||
}
|
||||
|
||||
|
||||
/* Saves the values entered in the "blockconfig" administration form */
|
||||
function statistics_save_block0($edit) {
|
||||
variable_set("stats b0 title0", $edit["stats b0 title0"]);
|
||||
variable_set("stats b0 days head", $edit["stats b0 days head"]);
|
||||
variable_set("stats b0 days top", $edit["stats b0 days top"]);
|
||||
variable_set("stats b0 alltime head", $edit["stats b0 alltime head"]);
|
||||
variable_set("stats b0 alltime top", $edit["stats b0 alltime top"]);
|
||||
variable_set("stats b0 last head", $edit["stats b0 last head"]);
|
||||
variable_set("stats b0 last top", $edit["stats b0 last top"]);
|
||||
function statistics_save_topnodes_block($edit) {
|
||||
variable_set("statistics_block_top_title", $edit["statistics_block_top_title"]);
|
||||
variable_set("statistics_block_top_day_head", $edit["statistics_block_top_day_head"]);
|
||||
variable_set("statistics_block_top_day_num", $edit["statistics_block_top_day_num"]);
|
||||
variable_set("statistics_block_top_all_head", $edit["statistics_block_top_all_head"]);
|
||||
variable_set("statistics_block_top_all_num", $edit["statistics_block_top_all_num"]);
|
||||
variable_set("statistics_block_top_last_head", $edit["statistics_block_top_last_head"]);
|
||||
variable_set("statistics_block_top_last_num", $edit["statistics_block_top_last_num"]);
|
||||
}
|
||||
|
||||
|
||||
/* Saves the values entered in the "blockconfig" administration form */
|
||||
function statistics_save_block1($edit) {
|
||||
variable_set("stats b1 title0", $edit["stats b1 title0"]);
|
||||
variable_set("stats b1 title1", $edit["stats b1 title1"]);
|
||||
variable_set("stats b1 time", $edit["stats b1 time"]);
|
||||
variable_set("stats b1 maxname len", $edit["stats b1 maxname len"]);
|
||||
variable_set("stats b1 max names", $edit["stats b1 max names"]);
|
||||
function statistics_save_online_block($edit) {
|
||||
variable_set("statistics_block_online_title", $edit["statistics_block_online_title"]);
|
||||
variable_set("statistics_block_online_subtitle", $edit["statistics_block_online_subtitle"]);
|
||||
variable_set("statistics_block_online_time", $edit["statistics_block_online_time"]);
|
||||
variable_set("statistics_block_online_max_len", $edit["statistics_block_online_max_len"]);
|
||||
variable_set("statistics_block_online_max_cnt", $edit["statistics_block_online_max_cnt"]);
|
||||
}
|
||||
|
||||
|
||||
/* Saves the values entered in the "userpage" administration form */
|
||||
function statistics_save_userconfig($edit) {
|
||||
variable_set("statistics up link", $edit["statistics up link"]);
|
||||
variable_set("statistics up days head", $edit["statistics up days head"]);
|
||||
variable_set("statistics up days top", $edit["statistics up days top"]);
|
||||
variable_set("statistics up alltime head", $edit["statistics up alltime head"]);
|
||||
variable_set("statistics up alltime top", $edit["statistics up alltime top"]);
|
||||
variable_set("statistics up last head", $edit["statistics up last head"]);
|
||||
variable_set("statistics up last top", $edit["statistics up last top"]);
|
||||
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 status", $edit["statistics display status"]);
|
||||
variable_set("statistics_display_counter", $edit["statistics_display_counter"]);
|
||||
}
|
||||
|
||||
|
||||
/* cron hook, performs automatic functions */
|
||||
function statistics_cron() {
|
||||
$statistics_timestamp = variable_get("statistics timestamp", "");
|
||||
$statistics_timestamp = variable_get("statistics_day_timestamp", "");
|
||||
|
||||
if ((time() - $statistics_timestamp) >= 86400) {
|
||||
/* reset day counts */
|
||||
db_query("UPDATE statistics SET daycount='0'");
|
||||
variable_set("statistics timestamp", time());
|
||||
variable_set("statistics_day_timestamp", time());
|
||||
}
|
||||
|
||||
/* clean expired access logs */
|
||||
db_query("DELETE FROM accesslog WHERE ". time() ." - timestamp > ". variable_get("stats flush log", 259200));
|
||||
db_query("DELETE FROM accesslog WHERE ". time() ." - timestamp > ". variable_get("statistics_flush_accesslog_timer", 259200));
|
||||
|
||||
$throttle = variable_get("stats throttle", 5);
|
||||
/* check if throttle is currently on */
|
||||
if ($throttle) {
|
||||
$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("stats throttle", $throttle - 1);
|
||||
variable_set("statistics_throttle_level", $throttle - 1);
|
||||
variable_set("statistics_throttle_cron_timestamp", time());
|
||||
if (function_exists("watchdog")) {
|
||||
watchdog("warning", "cron: decreasing throttle to level '". ($throttle - 1) ."' to test server load.");
|
||||
}
|
||||
|
|
@ -759,54 +707,54 @@ function statistics_cron() {
|
|||
|
||||
|
||||
/* Displays the "Top nodes" block */
|
||||
function statistics_displayblock0() {
|
||||
function statistics_display_topnodes_block() {
|
||||
global $id;
|
||||
|
||||
$daytop = variable_get("stats b0 days top", "");
|
||||
$daytop = variable_get("statistics_block_top_day_num", "");
|
||||
if ($daytop) {
|
||||
$dayheading = variable_get("stats b0 days head", "");
|
||||
$dayheading = variable_get("statistics_block_top_day_head", "");
|
||||
if ($dayheading) {
|
||||
$output .= "". $dayheading ."<br />";
|
||||
$output .= $dayheading ."<br />";
|
||||
}
|
||||
$output .= "". statistics_display_ltitle("daycount", $daytop) ."<br />";
|
||||
$output .= statistics_display_linked_title("daycount", $daytop) ."<br />";
|
||||
}
|
||||
$alltimetop = variable_get("stats b0 alltime top", "");
|
||||
$alltimetop = variable_get("statistics_block_top_all_num", "");
|
||||
if ($alltimetop) {
|
||||
$alltimeheading = variable_get("stats b0 alltime head", "");
|
||||
$alltimeheading = variable_get("statistics_block_top_all_head", "");
|
||||
if ($alltimeheading) {
|
||||
$output .= "". $alltimeheading ."<br />";
|
||||
$output .= $alltimeheading ."<br />";
|
||||
}
|
||||
$output .= "". statistics_display_ltitle("totalcount", $alltimetop) ."<br />";
|
||||
$output .= statistics_display_linked_title("totalcount", $alltimetop) ."<br />";
|
||||
}
|
||||
$lasttop = variable_get("stats b0 last top", "");
|
||||
$lasttop = variable_get("statistics_block_top_last_num", "");
|
||||
if ($lasttop) {
|
||||
$lastheading = variable_get("stats b0 last head", "");
|
||||
$lastheading = variable_get("statistics_block_top_last_head", "");
|
||||
if ($lastheading) {
|
||||
$output .= "". $lastheading ."<br />";
|
||||
$output .= $lastheading ."<br />";
|
||||
}
|
||||
$output .= "". statistics_display_ltitle("timestamp", $lasttop);
|
||||
$output .= statistics_display_linked_title("timestamp", $lasttop);
|
||||
}
|
||||
return $output;
|
||||
}
|
||||
|
||||
|
||||
/* This displays the "Who's online" block */
|
||||
function statistics_displayblock1() {
|
||||
function statistics_display_online_block() {
|
||||
global $id, $recent_activity;
|
||||
|
||||
$throttle = throttle_status();
|
||||
$multiplier = variable_get("stats throttle multiplier", 60);
|
||||
$multiplier = variable_get("statistics_throttle_multiplier", 60);
|
||||
|
||||
/* don't do any database lookups if on maximum throttle */
|
||||
if ($throttle < 5) {
|
||||
/* count users with activity in the past defined period */
|
||||
$time_period = variable_get("stats b1 time", 2700);
|
||||
$time_period = variable_get("statistics_block_online_time", 2700);
|
||||
|
||||
/*
|
||||
* This call gathers all the info we need on users/guests in a single
|
||||
* database call, thus is quite efficient.
|
||||
*/
|
||||
$result = db_query("SELECT COUNT(DISTINCT hostname) AS count,uid,MAX(timestamp) as timestamp FROM accesslog WHERE timestamp >= '%s' GROUP BY uid ORDER BY timestamp DESC", (time() - $time_period));
|
||||
** This call gathers all the info we need on users/guests in a single
|
||||
** database call, thus is quite efficient.
|
||||
*/
|
||||
$result = db_query("SELECT COUNT(DISTINCT hostname) AS count, uid, MAX(timestamp) as timestamp FROM accesslog WHERE timestamp >= '%s' GROUP BY uid ORDER BY timestamp DESC", (time() - $time_period));
|
||||
|
||||
$users = $guests = 0;
|
||||
/* Count number of users & guests currently online based on db query */
|
||||
|
|
@ -818,9 +766,10 @@ function statistics_displayblock1() {
|
|||
}
|
||||
else {
|
||||
/*
|
||||
* There's only going to be one return with a uid of 0, and that's the guest.
|
||||
* Hence, the count of this field is the total number of guests currently online.
|
||||
*/
|
||||
** There's only going to be one return with a uid of 0, and that's
|
||||
** the guest(s). Hence, the count of this field is the total number
|
||||
** of guests currently online.
|
||||
*/
|
||||
$guests = $users_online["count"];
|
||||
}
|
||||
}
|
||||
|
|
@ -838,16 +787,19 @@ function statistics_displayblock1() {
|
|||
|
||||
if (user_access("access userlist") && $users) {
|
||||
/* Display a list of currently online users */
|
||||
$max_users = variable_get("stats b1 max names", 10);
|
||||
$max_name_len = variable_get("stats b1 maxname len", 15);
|
||||
$output .= "<br /><br />\n<b>". variable_get("stats b1 title1", "Online users:") ."</b><br />\n";
|
||||
$max_users = variable_get("statistics_block_online_max_cnt", 10);
|
||||
$max_name_len = variable_get("statistics_block_online_max_len", 15);
|
||||
$output .= "<br /><br />\n<b>". variable_get("statistics_block_online_subtitle", "Online users:") ."</b><br />\n";
|
||||
$uid = reset($user_list);
|
||||
while (($uid) && ($max_users)) {
|
||||
$user = user_load(array("uid" => $uid));
|
||||
/* When displaying name, be sure it's not more than defined max length */
|
||||
$output .= " - ". lm((strlen($user->name) > $max_name_len ? substr($user->name, 0, $max_name_len) . '...' : $user->name), array("mod" => "user", "op" => "view", "id" => $user->uid)) ."<br />";
|
||||
$uid = next($user_list);
|
||||
/* When $max_users reaches zero, we break out even if there are more online */
|
||||
/*
|
||||
** When $max_users reaches zero, we break out even if there are
|
||||
** more online (as defined by the admin)
|
||||
*/
|
||||
$max_users--;
|
||||
}
|
||||
}
|
||||
|
|
@ -860,50 +812,13 @@ function statistics_displayblock1() {
|
|||
}
|
||||
|
||||
|
||||
/* This displays admin oriented "Throttle status" block */
|
||||
function statistics_displayblock2() {
|
||||
global $recent_activity;
|
||||
|
||||
/* information in this block is only for the admin of the site */
|
||||
if (user_access("administer site configuration")) {
|
||||
if (variable_get("stats enable throttle", 0)) {
|
||||
/* the throttle is enabled: display the status of all throttle config */
|
||||
$throttle = throttle_status();
|
||||
$multiplier = variable_get("stats throttle multiplier", 60);
|
||||
$minimum = $throttle * $multiplier;
|
||||
$limiter = variable_get("stats probability limiter", 9);
|
||||
/* calculate probability limiter's odds of updating throttle */
|
||||
$probability = substr((($limiter / ($limiter + 1) * 100) - 100) * -1, 0, 4);
|
||||
|
||||
$output .= "Throttle: ". l("Enabled", array("mod" => "system"), "admin", "statistics") ."<br />\n";
|
||||
if ($throttle < 5) {
|
||||
$maximum = (($throttle + 1) * $multiplier) - 1;
|
||||
$output .= "Current Level: $throttle ($minimum - $maximum)<br />\n";
|
||||
}
|
||||
else {
|
||||
$output .= "Current Level: $throttle ($minimum+)<br />\n";
|
||||
}
|
||||
$output .= "Probability: $probability%<br />\n";
|
||||
if ($recent_activity["hits"]) {
|
||||
$output .= "<br />This site has served ";
|
||||
$output .= format_plural($recent_activity["hits"] , " page", " pages");
|
||||
$output .= " in the past minute.";
|
||||
}
|
||||
}
|
||||
else {
|
||||
$output .= "Throttle: ". l("Disabled", array("mod" => "system"), "admin", "statistics") ."<br />\n";
|
||||
}
|
||||
}
|
||||
return $output;
|
||||
}
|
||||
|
||||
/* Display linked title based on field name */
|
||||
function statistics_display_ltitle($dbfield, $dbrows) {
|
||||
function statistics_display_linked_title($dbfield, $dbrows) {
|
||||
/* valid dbfields: totalcount, daycount, timestamp */
|
||||
|
||||
$result = db_query("SELECT statistics.nid,node.title FROM statistics LEFT JOIN node ON statistics.nid = node.nid ORDER BY %s DESC LIMIT %s", $dbfield, $dbrows);
|
||||
$result = db_query("SELECT statistics.nid, node.title FROM statistics LEFT JOIN node ON statistics.nid = node.nid ORDER BY %s DESC LIMIT %s", $dbfield, $dbrows);
|
||||
while ($nid = db_fetch_array($result)) {
|
||||
$output .= " - ". l($nid["title"], array("id" => $nid["nid"]), "node", "", array("title" => t("View this story and all of its comments."))) ."<br />";
|
||||
$output .= " - ". l($nid["title"], array("id" => $nid["nid"]), "node", "", array("title" => t("View this posting."))) ."<br />";
|
||||
}
|
||||
|
||||
return $output;
|
||||
|
|
@ -915,7 +830,7 @@ 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 statistics WHERE nid = '%s'", $nid));
|
||||
$statistics = db_fetch_array(db_query("SELECT totalcount, daycount, timestamp FROM statistics WHERE nid = '%s'", $nid));
|
||||
}
|
||||
|
||||
return $statistics;
|
||||
|
|
@ -926,18 +841,14 @@ function statistics_get($nid) {
|
|||
/* Block hook */
|
||||
function statistics_block() {
|
||||
|
||||
$block[0]["subject"] = variable_get("stats b0 title0", "Top nodes");
|
||||
$block[0]["content"] = statistics_displayblock0();
|
||||
$block[0]["subject"] = variable_get("statistics_block_top_title", "Top nodes");
|
||||
$block[0]["content"] = statistics_display_topnodes_block();
|
||||
$block[0]["info"] = "Top nodes";
|
||||
|
||||
$block[1]["subject"] = variable_get("stats b1 title0", "Who's online");
|
||||
$block[1]["content"] = statistics_displayblock1();
|
||||
$block[1]["subject"] = variable_get("statistics_block_online_title", "Who's online");
|
||||
$block[1]["content"] = statistics_display_online_block();
|
||||
$block[1]["info"] = "Who's online";
|
||||
|
||||
$block[2]["subject"] = "Throttle status";
|
||||
$block[2]["content"] = statistics_displayblock2();
|
||||
$block[2]["info"] = "Throttle status";
|
||||
|
||||
return $block;
|
||||
}
|
||||
|
||||
|
|
@ -966,37 +877,37 @@ function statistics_page_user($uid = 0, $date = 0, $all = 0) {
|
|||
$date = time();
|
||||
}
|
||||
|
||||
$displaycount = variable_get("statistics up days top", 10);
|
||||
$displaycount = variable_get("statistics_userpage_day_cnt", 10);
|
||||
if ($displaycount) {
|
||||
$output .= "<table border=\"0\" cellpadding=\"4\" cellspacing=\"4\" width=\"100%\">";
|
||||
$output .= statistics_storysummary("daycount", $displaycount);
|
||||
$output .= statistics_summary("daycount", $displaycount);
|
||||
$output .= "</table>";
|
||||
|
||||
$theme->box(t(variable_get("statistics up days head", "")), $output, "main");
|
||||
$theme->box(t(variable_get("statistics_userpage_day_head", "")), $output, "main");
|
||||
}
|
||||
|
||||
|
||||
$displaycount = variable_get("statistics up alltime top", "10");
|
||||
$displaycount = variable_get("statistics_userpage_all_cnt", "10");
|
||||
if ($displaycount) {
|
||||
$output = "<table border=\"0\" cellpadding=\"4\" cellspacing=\"4\" width=\100%\">";
|
||||
$output .= statistics_storysummary("totalcount", $displaycount);
|
||||
$output .= statistics_summary("totalcount", $displaycount);
|
||||
$output .= "</table>";
|
||||
|
||||
$theme->box(t(variable_get("statistics up alltime head", "")), $output, "main");
|
||||
$theme->box(t(variable_get("statistics_userpage_all_head", "")), $output, "main");
|
||||
}
|
||||
|
||||
$displaycount = variable_get("statistics up last top", "10");
|
||||
$displaycount = variable_get("statistics_userpage_last_cnt", "10");
|
||||
if ($displaycount) {
|
||||
$output = "<table border=\"0\" cellpadding=\"4\" cellspacing=\"4\" width=\100%\">";
|
||||
$output .= statistics_storysummary("timestamp", $displaycount);
|
||||
$output .= statistics_summary("timestamp", $displaycount);
|
||||
$output .= "</table>";
|
||||
|
||||
$theme->box(t(variable_get("statistics up last head", "")), $output, "main");
|
||||
$theme->box(t(variable_get("statistics_userpage_last_head", "")), $output, "main");
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
function statistics_storysummary($dbfield, $dbrows) {
|
||||
function statistics_summary($dbfield, $dbrows) {
|
||||
/* valid dbfields: totalcount, daycount, timestamp */
|
||||
global $theme;
|
||||
|
||||
|
|
@ -1005,7 +916,7 @@ function statistics_storysummary($dbfield, $dbrows) {
|
|||
$content = node_load(array("nid" => $nid["nid"]));
|
||||
$links = link_node($content, 1);
|
||||
|
||||
$output .= "<tr><td><b>". l($nid["title"], array("id" => $nid["nid"]), "node", "", array("title" => t("View this story and all of its comments."))) ."</b></td><td align=\"right\"><small>". t("Submitted by %a on %b", array("%a" => format_name($content), "%b" => format_date($content->created, "large"))) ."</td></tr>";
|
||||
$output .= "<tr><td><b>". l($nid["title"], array("id" => $nid["nid"]), "node", "", array("title" => t("View this posting."))) ."</b></td><td align=\"right\"><small>". t("Submitted by %a on %b", array("%a" => format_name($content), "%b" => format_date($content->created, "large"))) ."</td></tr>";
|
||||
$output .= "</small><tr><td colspan=\"2\"><div style=\"margin-left: 20px;\">". check_output($content->teaser, 1) ."</div></td></tr>";
|
||||
$output .= "<tr><td align=\"right\" colspan=\"2\">[ ". $theme->links($links) ." ]<br /><br /></td></tr>";
|
||||
}
|
||||
|
|
@ -1017,7 +928,7 @@ function statistics_storysummary($dbfield, $dbrows) {
|
|||
/* internal throttle function - do not call from other modules */
|
||||
function throttle_update($recent_activity) {
|
||||
$throttle = throttle_status();
|
||||
$multiplier = variable_get("stats throttle multiplier", 60);
|
||||
$multiplier = variable_get("statistics_throttle_multiplier", 60);
|
||||
|
||||
for ($i = 0; $i <= 5; $i++) {
|
||||
if (($i * $multiplier) <= $recent_activity) {
|
||||
|
|
@ -1027,13 +938,18 @@ function throttle_update($recent_activity) {
|
|||
|
||||
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.
|
||||
*/
|
||||
** 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("stats throttle", $throttle_new);
|
||||
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 (function_exists(watchdog)) {
|
||||
if ($throttle_new < $throttle) {
|
||||
|
|
@ -1055,7 +971,7 @@ function throttle_update($recent_activity) {
|
|||
function throttle_status() {
|
||||
static $throttle;
|
||||
|
||||
$throttle = variable_get("stats throttle", 0);
|
||||
$throttle = variable_get("statistics_throttle_level", 0);
|
||||
|
||||
return $throttle;
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,64 +1,50 @@
|
|||
<?php
|
||||
/*********************************************************************
|
||||
* Description: This module provides simple statistics for your site:
|
||||
* - access counts for each node
|
||||
* - referrer logs to see where web traffic originates
|
||||
* - number of users/guests accessing your site
|
||||
* It also generates a block displaying and user page
|
||||
* displaying:
|
||||
* - top viewed nodes over last 24 hour period
|
||||
* - top viewed nodes over all time
|
||||
* - last nodes viewed
|
||||
* It also displays a block displaying how many users
|
||||
* and guest are currently accessing your site
|
||||
* It also provides a throttling mechanism
|
||||
* This module is highly configurable. Once installed
|
||||
* review the 'help' page for more details.
|
||||
* Created: July 13, 2002 - Jeremy Andrews - jeremy@kerneltrap.org
|
||||
*********************************************************************/
|
||||
|
||||
global $id, $mod, $nid, $user, $recent_activity;
|
||||
|
||||
if (variable_get("stats enable node counts", 0)) {
|
||||
/* node counters are enabled */
|
||||
if (variable_get("statistics_enable_node_counter", 0)) {
|
||||
/* node view counters are enabled */
|
||||
if ($id > 0 && (!$mod)) {
|
||||
/* a node has been viewed, so updated the node's counters */
|
||||
@db_query("UPDATE statistics SET daycount=daycount+1,totalcount=totalcount+1,timestamp='%s' WHERE nid = '%s'", time(), $id);
|
||||
db_query("UPDATE statistics SET daycount = daycount + 1, totalcount = totalcount + 1, timestamp = '%s' WHERE nid = '%s'", time(), $id);
|
||||
/* if we affected 0 rows, this is the first time viewing the node */
|
||||
if (!mysql_affected_rows()) { // Drupal needs generic db_affected_rows()
|
||||
if (!db_affected_rows()) {
|
||||
/* must create a new row to store counter's for new node */
|
||||
db_query("INSERT INTO statistics (nid,daycount,totalcount) VALUES('%s',daycount+1,totalcount+1)", $id);
|
||||
db_query("INSERT INTO statistics (nid, daycount, totalcount) VALUES('%s', daycount + 1, totalcount + 1)", $id);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if (variable_get("stats enable log", 0)) {
|
||||
if ((variable_get("statistics_enable_access_log", 0)) && (throttle_status() < 5)) {
|
||||
/* statistical logs are enabled */
|
||||
$referrer = getenv("HTTP_REFERER");
|
||||
$hostname = getenv("REMOTE_ADDR");
|
||||
/* log this page access */
|
||||
db_query("INSERT INTO accesslog (nid,url,hostname,uid,timestamp) values('%s','%s','%s','%s','%s')", $id, $referrer, $hostname, $user->uid, time());
|
||||
db_query("INSERT INTO accesslog (nid, url, hostname, uid, timestamp) values('%s', '%s', '%s', '%s', '%s')", $id, $referrer, $hostname, $user->uid, time());
|
||||
}
|
||||
|
||||
/* 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("stats enable throttle", 0)) && (!rand(0, variable_get("stats 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. Perhaps Drupal could detect pre-4.2.0 systems,
|
||||
or if not, this could be made a configurable option. */
|
||||
/* see if we need to adjust the throttle */
|
||||
$throttle = throttle_status();
|
||||
/*
|
||||
** 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("stats throttle multiplier", 60);
|
||||
$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 >= %s", (time() - 60));
|
||||
$recent_activity = db_fetch_array($result);
|
||||
|
|
@ -76,11 +62,14 @@ function statistics_system($field) {
|
|||
|
||||
/* Permissions hook, defines module's permissions */
|
||||
function statistics_perm() {
|
||||
/* administer statistics module - full administrative control of module
|
||||
administer stats - view statistics / referrers
|
||||
access statistics - see counts per node (if enabled)
|
||||
access userlist - see list of online users */
|
||||
return array("administer statistics module", "administer stats", "access statistics", "access userlist");
|
||||
/*
|
||||
** statistics module defines the following permissions:
|
||||
** administer statistics module - full administrative control of module
|
||||
** administer statistics - view statistics / referrers
|
||||
** access statistics - see counts per node (if enabled)
|
||||
** access userlist - see list of online users
|
||||
*/
|
||||
return array("administer statistics module", "administer statistics", "access statistics", "access userlist");
|
||||
}
|
||||
|
||||
|
||||
|
|
@ -88,14 +77,14 @@ function statistics_perm() {
|
|||
function statistics_link($type, $node = 0, $main = 0) {
|
||||
global $id;
|
||||
|
||||
if ($type == "admin" && (user_access("administer statistics module") || (user_access("administer stats")))) {
|
||||
if ($type == "admin" && (user_access("administer statistics module") || (user_access("administer statistics")))) {
|
||||
$links[] = la(t("statistics"), array("mod" => "statistics"));
|
||||
}
|
||||
|
||||
if ($type == "node" && user_access("access statistics") && variable_get("statistics display status", 0)) {
|
||||
if ($type == "node" && user_access("access statistics") && variable_get("statistics_display_counter", 0)) {
|
||||
$statistics = statistics_get($node->nid);
|
||||
if ($statistics) {
|
||||
if (user_access("administer stats")) {
|
||||
if (user_access("administer statistics")) {
|
||||
$links[] = la(format_plural($statistics[totalcount], "read", "reads"), array("mod" => "statistics", "op" => "referrers", "nid" => $node->nid));
|
||||
}
|
||||
else {
|
||||
|
|
@ -105,7 +94,7 @@ function statistics_link($type, $node = 0, $main = 0) {
|
|||
}
|
||||
|
||||
if ($type == "page" && user_access("access content")) {
|
||||
$userlink = variable_get("statistics up link", "");
|
||||
$userlink = variable_get("statistics_userpage_link", "");
|
||||
if ($userlink) {
|
||||
$links[] = lm(t($userlink), array("mod" => "statistics"), "", array("title" => "View the top nodes for this site"));
|
||||
}
|
||||
|
|
@ -130,52 +119,21 @@ function statistics_help() {
|
|||
|
||||
<p>This module also adds a configurable block that displays counts of how many users and guests are currently accessing your site, as well as a list of the names of the users currently accessing your site.</p>
|
||||
|
||||
<p>This module also adds an admin viewable block that displays the current status of the throttle. You must have "administer site configuration" priveleges to view the block.</p>
|
||||
<p>If you enable the node view counters, 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).</p>
|
||||
|
||||
<p>If you enable the node counters, 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).</p>
|
||||
<p>Finally, the statistics.module allows for a congestion controlling auto-throttle mechanism. If you have enabled the throttle.module, you can read more about this mechanism <?php print l("here", array("mod" => "help"), "admin", "throttle"); ?>.</p>
|
||||
|
||||
<p>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.</p>
|
||||
|
||||
<p>If you enable the auto-throttle, this adds 1 database query for each page that is displayed (until the maximum throttle is reached, then the query is automatically disabled until the site is less busy). This requires cron.</p>
|
||||
|
||||
<p><b>For efficiency, the statistics module requires the <code>mysql_affected_rows()</code> function, currently tieing it to MySQL.</b></p>
|
||||
|
||||
<p>As with any new module, <i>statistics.module</i> needs to be enabled <?php print l("here", array("mod" => "system", "op" => "modules"), "admin"); ?> before you can use it. Also refer to the permissions section below, as this module supports four separate permissions.</p>
|
||||
|
||||
<h3>MySQL table</h3>
|
||||
|
||||
<p>To use this module you need to create the 'statistics' and 'accesslog' MySQL tables. The easiest way to do this is with the included 'statistics.mysql' script. Type something like:
|
||||
<pre> mysql -u<username> -p<password> <database> < statistics.mysql</pre></p>
|
||||
|
||||
<p>If you'd prefer to add the table manually, you can cut and paste the following lines into the MySQL command line:
|
||||
<pre> DROP TABLE IF EXISTS statistics;
|
||||
CREATE TABLE statistics (
|
||||
nid int(11) NOT NULL,
|
||||
totalcount bigint UNSIGNED DEFAULT '0' NOT NULL,
|
||||
daycount mediumint UNSIGNED DEFAULT '0' NOT NULL,
|
||||
timestamp int(11) UNSIGNED DEFAULT '0' NOT NULL,
|
||||
PRIMARY KEY (nid),
|
||||
INDEX (totalcount),
|
||||
INDEX (daycount),
|
||||
INDEX (timestamp)
|
||||
);
|
||||
|
||||
DROP TABLE IF EXISTS accesslog;
|
||||
CREATE TABLE accesslog (
|
||||
nid int(11) UNSIGNED DEFAULT '0',
|
||||
url varchar(255),
|
||||
hostname varchar(128),
|
||||
uid int(10) UNSIGNED DEFAULT '0',
|
||||
timestamp int(11) UNSIGNED NOT NULL
|
||||
);</pre></p>
|
||||
|
||||
<h3>View statistics</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>
|
||||
|
||||
<h3>View referrers</h3>
|
||||
|
||||
<p>This admin page shows you site-wide referrer statistics. You can see '<i>all</i>' stats, '<i>external</i>' statistics or '<i>internal</i>' stats. (Default is 'external')</p>
|
||||
<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 'external'.</p>
|
||||
|
||||
<h3>Configuring the statistics module</h3>
|
||||
|
||||
|
|
@ -185,15 +143,9 @@ function statistics_help() {
|
|||
|
||||
<p>The second option, <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.</p>
|
||||
|
||||
<p>The third option, <i>enable auto-throttle</i>, allows you to turn the auto-throttle feature on and off. The access log must also be enabled for the auto-throttle to function.</p>
|
||||
<p>The next option, <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, as a counter is incremented with each node view.</p>
|
||||
|
||||
<p>The next option, <i>auto-throttle multiplier</i>, selects a multiplier to calculate each auto-throttle level. For example, with a multiplier of '10', level one starts when 10 users hit your site in 60 seconds, level 2 starts when 20 users hit your site in 60 seconds, so on up to level 5 which starts when 50 users hit your site in 60 seconds.</p>
|
||||
|
||||
<p>The next option, <i>auto-throttle probability limiter</i>, allows you to specify roughly how often the throttle level is updated. Each time it gets updated, it adds a database query to that pages generation, so it's a good idea to keep the probability limiter down at 20% or lower.</p>
|
||||
|
||||
<p>The next option, <i>enable node 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, as a counter is incremented with each node view.</p>
|
||||
|
||||
<p>The next option, <i>display node counters</i>, allows you to globally disable the displaying of node counters. Additionally, a user group must have 'access statistics' permissions to view the counters.</p>
|
||||
<p>The next option, <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.</p>
|
||||
|
||||
<p>The final option is to <i>reset the day counter</i>. Every twenty four hours, all the day's totals are automatically reset to 0, and started again. Whatever time you click this link is the time each day that the day's totals will be reset. This requires cron. Note that clicking this link will reload the site configuration page <i>without</i> saving any other changes you might have made.</p>
|
||||
|
||||
|
|
@ -224,12 +176,11 @@ function statistics_help() {
|
|||
<li><i>access statistics</i> - enable for user roles that get to see individual node counts. (This does not define access to the block)</li>
|
||||
<li><i>access userlist</i> - enable for user roles that get to see the list of user's that are currently online within the "Who's online" block.</li>
|
||||
<li><i>administer statistics module</i> - enable for user roles that get to configure the statistics module.</li>
|
||||
<li><i>administer stats</i> - enable for user roles that get to view the referrer statistics.</li>
|
||||
<li><i>administer statistics</i> - enable for user roles that get to view the referrer statistics.</li>
|
||||
</ul>
|
||||
If '<i>administer stats</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).
|
||||
<hr>
|
||||
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).
|
||||
|
||||
<h2>Statistics for developers</h2>
|
||||
<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 $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>
|
||||
|
|
@ -241,14 +192,14 @@ If '<i>administer stats</i>' and '<i>access statistics</i>' are both enabled, th
|
|||
<p>The module automatically adds '# reads' to each node's link section (if enabled).</p>
|
||||
|
||||
<h3>Top stories</h3>
|
||||
<p>The statistics.module provides a function '<i>statistics_display_ltitle($type)</i>' to return a linked title of any of the following: the top viewed node of all time, the top viewed node of today, the last viewed node. You can pass in:
|
||||
<p>The statistics.module provides a function '<i>statistics_display_linked_title($type)</i>' to return a linked title of any of the following: the top viewed node of all time, the top viewed node of today, the last viewed node. You can pass in:
|
||||
<ul>
|
||||
<li><i>totalcount</i> - This will return a link to the top viewed node of all time.<br />
|
||||
Example: <code>statistics_display_ltitle("totalcount");</code><br /><br /></li>
|
||||
Example: <code>statistics_display_linked_title("totalcount");</code><br /><br /></li>
|
||||
<li><i>daycount</i> - This will return a link to the top viewed node for today.<br />
|
||||
Example: <code>statistics_display_ltitle("daycount");</code><br /><br /></li>
|
||||
Example: <code>statistics_display_linked_title("daycount");</code><br /><br /></li>
|
||||
<li><i>timestamp</i> - This will return a link to the last viewed node.<br />
|
||||
Example: <code>statistics_display_ltitle("timestamp");</code></li>
|
||||
Example: <code>statistics_display_linked_title("timestamp");</code></li>
|
||||
</ul>
|
||||
|
||||
<h3>Throttle</h3>
|
||||
|
|
@ -265,6 +216,7 @@ If '<i>administer stats</i>' and '<i>access statistics</i>' are both enabled, th
|
|||
else {
|
||||
// throttle limit not reached, execute normally
|
||||
}</pre></p>
|
||||
<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 <?php print l("here", array("mod" => "help"), "admin", "throttle"); ?> if you have enabled the throttle.module).</p>
|
||||
|
||||
<?php
|
||||
}
|
||||
|
|
@ -275,16 +227,16 @@ function statistics_admin() {
|
|||
global $op, $id, $edit, $nid;
|
||||
|
||||
/* Only allow people with sufficient access. */
|
||||
if ((user_access("administer statistics module")) || (user_access("administer stats"))) {
|
||||
if ((user_access("administer statistics module")) || (user_access("administer statistics"))) {
|
||||
|
||||
/* Display the second level admin links */
|
||||
$links[] = la(t("view statistics"), array("mod" => "statistics", "op" => "statistics"));
|
||||
$links[] = la(t("view referrers"), array("mod" => "statistics", "op" => "referrers"));
|
||||
$links[] = la(t("view access log"), array("mod" => "statistics", "op" => "log"));
|
||||
if (user_access("administer statistics module")) {
|
||||
$links[] = la(t("top nodes block"), array("mod" => "statistics", "op" => "block0"));
|
||||
$links[] = la(t("top nodes page"), array("mod" => "statistics", "op" => "page0"));
|
||||
$links[] = la(t("who's online block"), array("mod" => "statistics", "op" => "block1"));
|
||||
$links[] = la(t("top nodes block"), array("mod" => "statistics", "op" => "top nodes block"));
|
||||
$links[] = la(t("top nodes page"), array("mod" => "statistics", "op" => "top nodes page"));
|
||||
$links[] = la(t("who's online block"), array("mod" => "statistics", "op" => "whos online block"));
|
||||
}
|
||||
$links[] .= la(t("help"), array("mod" => "statistics", "op" => "help"));
|
||||
print "<small>". implode(" · ", $links) ."</small><hr />";
|
||||
|
|
@ -311,43 +263,43 @@ function statistics_admin() {
|
|||
$op = stripslashes($op);
|
||||
switch ($op) {
|
||||
case "Submit \"top nodes\" block changes":
|
||||
print status(statistics_save_block0($edit));
|
||||
print status(statistics_save_topnodes_block($edit));
|
||||
break;
|
||||
case "Submit \"who's online\" block changes":
|
||||
print status(statistics_save_block1($edit));
|
||||
print status(statistics_save_online_block($edit));
|
||||
break;
|
||||
case "Submit \"top nodes\" page changes":
|
||||
print status(statistics_save_userconfig($edit));
|
||||
break;
|
||||
case "block0":
|
||||
print statistics_config_block0(array(
|
||||
"stats b0 title0" => variable_get("stats b0 title0", "Top nodes"),
|
||||
"stats b0 days head" => variable_get("stats b0 days head", "<b>Today's top:</b>"),
|
||||
"stats b0 days top" => variable_get("stats b0 days top", 0),
|
||||
"stats b0 alltime head" => variable_get("stats b0 alltime head", "<b>All time top:</b>"),
|
||||
"stats b0 alltime top" => variable_get("stats b0 alltime top", 0),
|
||||
"stats b0 last head" => variable_get("stats b0 last head" ,"<b>Last:</b>"),
|
||||
"stats b0 last top" => variable_get("stats b0 last top", 0)
|
||||
case "top nodes block":
|
||||
print statistics_config_topnodes_block(array(
|
||||
"statistics_block_top_title" => variable_get("statistics_block_top_title", "Top nodes"),
|
||||
"statistics_block_top_day_head" => variable_get("statistics_block_top_day_head", "<b>Todays top:</b>"),
|
||||
"statistics_block_top_day_num" => variable_get("statistics_block_top_day_num", 0),
|
||||
"statistics_block_top_all_head" => variable_get("statistics_block_top_all_head", "<b>All time top:</b>"),
|
||||
"statistics_block_top_all_num" => variable_get("statistics_block_top_all_num", 0),
|
||||
"statistics_block_top_last_head" => variable_get("statistics_block_top_last_head" ,"<b>Last:</b>"),
|
||||
"statistics_block_top_last_num" => variable_get("statistics_block_top_last_num", 0)
|
||||
));
|
||||
break;
|
||||
case "block1":
|
||||
print statistics_config_block1(array(
|
||||
"stats b1 title0" => variable_get("stats b1 title0", "Who's online"),
|
||||
"stats b1 title1" => variable_get("stats b1 title1", "Online users:"),
|
||||
"stats b1 time" => variable_get("stats b1 time", 2700),
|
||||
"stats b1 maxname len" => variable_get("stats b1 maxname len", 15),
|
||||
"stats b1 max names" => variable_get("stats b1 max names", 10)
|
||||
case "whos online block":
|
||||
print statistics_config_online_block(array(
|
||||
"statistics_block_online_title" => variable_get("statistics_block_online_title", "Whos online"),
|
||||
"statistics_block_online_subtitle" => variable_get("statistics_block_online_subtitle", "Online users:"),
|
||||
"statistics_block_online_time" => variable_get("statistics_block_online_time", 2700),
|
||||
"statistics_block_online_max_len" => variable_get("statistics_block_online_max_len", 15),
|
||||
"statistics_block_online_max_cnt" => variable_get("statistics_block_online_max_cnt", 10)
|
||||
));
|
||||
break;
|
||||
case "page0":
|
||||
print statistics_display_userconfig(array(
|
||||
"statistics up link" => variable_get("statistics up link", ""),
|
||||
"statistics up days head" => variable_get("statistics up days head", "Today's top"),
|
||||
"statistics up days top" => variable_get("statistics up days top", 0),
|
||||
"statistics up alltime head" => variable_get("statistics up alltime head", 0),
|
||||
"statistics up alltime top" => variable_get("statistics up alltime top", "All time top"),
|
||||
"statistics up last head" => variable_get("statistics up last head", 0),
|
||||
"statistics up last top" => variable_get("statistics up last top", "Last")
|
||||
case "top nodes page":
|
||||
print 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;
|
||||
case "submit statistics config":
|
||||
|
|
@ -356,7 +308,7 @@ function statistics_admin() {
|
|||
break;
|
||||
case "reset day counter":
|
||||
db_query("UPDATE statistics SET daycount='0'");
|
||||
variable_set("statistics timestamp", time());
|
||||
variable_set("statistics_day_timestamp", time());
|
||||
break;
|
||||
default:
|
||||
print statistics_admin_displaycounts();
|
||||
|
|
@ -368,13 +320,13 @@ function statistics_admin() {
|
|||
|
||||
|
||||
/* Displays the various admin tables */
|
||||
function statistics_admin_table0($dbfield, $dbrows) {
|
||||
$result = db_query("SELECT statistics.nid,statistics.daycount,statistics.totalcount,statistics.timestamp,node.title FROM statistics LEFT JOIN node USING (nid) ORDER BY statistics.%s DESC LIMIT %s", $dbfield, $dbrows);
|
||||
function statistics_admin_count_table($dbfield, $dbrows) {
|
||||
$result = db_query("SELECT statistics.nid, statistics.daycount, statistics.totalcount, statistics.timestamp, node.title FROM statistics LEFT JOIN node USING (nid) ORDER BY statistics.%s DESC LIMIT %s", $dbfield, $dbrows);
|
||||
|
||||
$output .= "<table border=\"1\" cellpadding=\"3\" cellspacing =\"0\"><tr><th>title</th><th>today</th><th>all time</th><th>last hit</th><th>referrers</th></tr>\n";
|
||||
|
||||
while ($nid = db_fetch_array($result)) {
|
||||
$output .= "<tr><td>". l($nid["title"], array("id" => $nid["nid"]), "node", "", array("title" => t("View this story and all of its comments."))) ."</td><td>". $nid["daycount"] ."</td><td>". $nid["totalcount"] ."</td><td>". format_date($nid["timestamp"], "small") ."</td><td><center>";
|
||||
$output .= "<tr><td>". l($nid["title"], array("id" => $nid["nid"]), "node", "", array("title" => t("View this posting."))) ."</td><td>". $nid["daycount"] ."</td><td>". $nid["totalcount"] ."</td><td>". format_date($nid["timestamp"], "small") ."</td><td><center>";
|
||||
$output .= la("view", array("mod" => "statistics", "op" => "referrers", "nid" => $nid["nid"], "title" => "$nid[title]"));
|
||||
$output .= "</center></td></tr>";
|
||||
}
|
||||
|
|
@ -384,7 +336,7 @@ function statistics_admin_table0($dbfield, $dbrows) {
|
|||
}
|
||||
|
||||
|
||||
function statistics_admin_table1($type, $id) {
|
||||
function statistics_admin_accesslog_table($type, $id) {
|
||||
/* overview limit */
|
||||
$limit0 = 50;
|
||||
/* detail limit */
|
||||
|
|
@ -394,26 +346,26 @@ function statistics_admin_table1($type, $id) {
|
|||
/* retrieve user access logs */
|
||||
if ($id) {
|
||||
/* retrieve recent access logs for user $id */
|
||||
$result = db_query("SELECT nid,url,hostname,uid,timestamp FROM accesslog WHERE uid = '%s' ORDER BY timestamp DESC LIMIT %s", $id, $limit1);
|
||||
$result = db_query("SELECT nid, url, hostname, uid, timestamp FROM accesslog WHERE uid = '%s' ORDER BY timestamp DESC LIMIT %s", $id, $limit1);
|
||||
}
|
||||
else {
|
||||
/* retrieve recent access logs for all users */
|
||||
$result = db_query("SELECT nid,url,hostname,uid,MAX(timestamp) AS timestamp FROM accesslog WHERE uid != '0' GROUP BY uid ORDER BY timestamp DESC LIMIT %s", $limit1);
|
||||
$result = db_query("SELECT nid, url, hostname, uid, MAX(timestamp) AS timestamp FROM accesslog WHERE uid != '0' GROUP BY uid ORDER BY timestamp DESC LIMIT %s", $limit1);
|
||||
}
|
||||
}
|
||||
else if ($type == 2) {
|
||||
/* retrieve recent access logs for node $id */
|
||||
$result = db_query("SELECT nid,url,hostname,uid,timestamp FROM accesslog WHERE nid = '%s' ORDER BY timestamp DESC LIMIT %s", $id, $limit1);
|
||||
$result = db_query("SELECT nid, url, hostname, uid, timestamp FROM accesslog WHERE nid = '%s' ORDER BY timestamp DESC LIMIT %s", $id, $limit1);
|
||||
|
||||
}
|
||||
else if ($type == 3) {
|
||||
/* retrieve recent access logs for hostname $id */
|
||||
$result = db_query("SELECT nid,url,hostname,uid,timestamp FROM accesslog WHERE hostname = '%s' ORDER BY timestamp DESC LIMIT %s", $id, $limit1);
|
||||
$result = db_query("SELECT nid, url, hostname, uid, timestamp FROM accesslog WHERE hostname = '%s' ORDER BY timestamp DESC LIMIT %s", $id, $limit1);
|
||||
|
||||
}
|
||||
else {
|
||||
/* retrieve all recent access logs */
|
||||
$result = db_query("SELECT nid,url,hostname,uid,timestamp FROM accesslog ORDER BY timestamp DESC LIMIT %s", $limit0);
|
||||
$result = db_query("SELECT nid, url, hostname, uid, timestamp FROM accesslog ORDER BY timestamp DESC LIMIT %s", $limit0);
|
||||
}
|
||||
|
||||
$output .= "<table border=\"1\" cellpadding=\"3\" cellspacing =\"0\"><tr><th>timestamp</th><th>title</th><th>user</th><th>hostname</th><th>referrer</th></tr>\n";
|
||||
|
|
@ -423,7 +375,14 @@ function statistics_admin_table1($type, $id) {
|
|||
$node->nid = 0;
|
||||
}
|
||||
$user = user_load(array("uid" => $log["uid"]));
|
||||
$output .= "<tr><td>". format_date($log["timestamp"], "small") ."</td><td>". la(($node->nid ? $node->title : ""), array("mod" => "statistics", "op" => "log", "nid" => $node->nid), "") ."</td><td>". la((strlen($user->name) > 18 ? substr($user->name, 0, 18) . '...' : $user->name), array("mod" => "statistics", "op" => "log", "uid" => $user->uid), "") ."</td><td>". la($log["hostname"], array("mod" => "statistics", "op" => "log", "hostname" => $log["hostname"]), "") ."</td><td><a href=\"$log[url]\" title=\"$log[url]\">". ($log["url"] ? (strlen($log["url"]) > 28 ? substr($log["url"], 0, 28) . '...' : $log["url"]) : "") ."</a></td></tr>";
|
||||
$output .= "<tr><td>". format_date($log["timestamp"], "small") ."</td><td>". ($node->nid ? la($node->title, array("mod" => "statistics", "op" => "log", "nid" => $node->nid), "") : "n/a") ."</td><td>". ($user->name ? la((strlen($user->name) > 18 ? substr($user->name, 0, 18) . '...' : $user->name), array("mod" => "statistics", "op" => "log", "uid" => $user->uid), "") : "n/a") ."</td><td>". ($log["hostname"] ? la($log["hostname"], array("mod" => "statistics", "op" => "log", "hostname" => $log["hostname"]), "") : "n/a") ."</td><td>";
|
||||
if ($log["url"]) {
|
||||
$output .= "<a href=\"$log[url]\" title=\"$log[url]\">". (strlen($log["url"]) > 28 ? substr($log["url"], 0, 28) . '...' : $log["url"]) ."</a></td></tr>";
|
||||
}
|
||||
else {
|
||||
$output .= "n/a</td></tr>";
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
$output .= "</table>";
|
||||
|
|
@ -458,7 +417,7 @@ function statistics_recent_refer($nid = 0) {
|
|||
}
|
||||
|
||||
$result = db_query($query);
|
||||
$output = "<h3>Most recent ". $describe ."referrers for node \"". l($node->title, array("id" => "$nid"), "node", "", array("title" => t("View this story and all of its comments."))) ."\"</h3>";
|
||||
$output = "<h3>Most recent ". $describe ."referrers for node \"". l($node->title, array("id" => "$nid"), "node", "", array("title" => t("View this posting."))) ."\"</h3>";
|
||||
}
|
||||
else {
|
||||
if ($view == "all") {
|
||||
|
|
@ -496,19 +455,19 @@ function statistics_top_refer($nid = 0) {
|
|||
|
||||
if ($nid > 0) {
|
||||
if ($view == "all") {
|
||||
$query = "SELECT url, COUNT(url) AS count FROM accesslog WHERE nid='$nid' AND url != '' GROUP BY url ORDER BY count DESC";
|
||||
$query = "SELECT url, COUNT(url) AS count FROM accesslog WHERE nid = '$nid' AND url != '' GROUP BY url ORDER BY count DESC";
|
||||
}
|
||||
elseif ($view == "internal") {
|
||||
$query = "SELECT url, COUNT(url) AS count FROM accesslog WHERE nid='$nid' AND url LIKE '%". check_input($HTTP_HOST) ."%' GROUP BY url ORDER BY count DESC";
|
||||
$query = "SELECT url, COUNT(url) AS count FROM accesslog WHERE nid = '$nid' AND url LIKE '%". check_input($HTTP_HOST) ."%' GROUP BY url ORDER BY count DESC";
|
||||
$describe = "internal ";
|
||||
}
|
||||
else {
|
||||
/* default to external */
|
||||
$query = "SELECT url, COUNT(url) AS count FROM accesslog WHERE nid='$nid' AND url NOT LIKE '%". check_input($HTTP_HOST) ."%' AND url != '' GROUP BY url ORDER BY count DESC";
|
||||
$query = "SELECT url, COUNT(url) AS count FROM accesslog WHERE nid = '$nid' AND url NOT LIKE '%". check_input($HTTP_HOST) ."%' AND url != '' GROUP BY url ORDER BY count DESC";
|
||||
$describe = "external ";
|
||||
}
|
||||
|
||||
$output = "<h3>Top ". $describe ."referrers of the past ". format_interval(variable_get("stats flush log", 259200)) ." for node \"". l($node->title, array("id" => "$nid"), "node", "", array("title" => t("View this story and all of its comments."))) ."\"</h3>";
|
||||
$output = "<h3>Top ". $describe ."referrers of the past ". format_interval(variable_get("statistics_flush_accesslog_timer", 259200)) ." for node \"". l($node->title, array("id" => "$nid"), "node", "", array("title" => t("View this posting."))) ."\"</h3>";
|
||||
}
|
||||
else {
|
||||
if ($view == "all") {
|
||||
|
|
@ -524,7 +483,7 @@ function statistics_top_refer($nid = 0) {
|
|||
$describe = "external ";
|
||||
}
|
||||
|
||||
$output = "<h3>Top ". $describe ."referrers of the past ". format_interval(variable_get("stats flush log", 259200)) ."</h3>";
|
||||
$output = "<h3>Top ". $describe ."referrers of the past ". format_interval(variable_get("statistics_flush_accesslog_timer", 259200)) ."</h3>";
|
||||
}
|
||||
|
||||
$result = db_query($query);
|
||||
|
|
@ -544,17 +503,17 @@ function statistics_top_refer($nid = 0) {
|
|||
function statistics_admin_displaycounts() {
|
||||
|
||||
$output .= "<h3>Today's top nodes</h3>\n";
|
||||
$output .= statistics_admin_table0("daycount", 15);
|
||||
$output .= statistics_admin_count_table("daycount", 15);
|
||||
|
||||
$output .= "<br />";
|
||||
|
||||
$output .= "<h3>All time top nodes</h3>\n";
|
||||
$output .= statistics_admin_table0("totalcount", 15);
|
||||
$output .= statistics_admin_count_table("totalcount", 15);
|
||||
|
||||
$output .= "<br />";
|
||||
|
||||
$output .= "<h3>Last nodes viewed</h3>\n";
|
||||
$output .= statistics_admin_table0("timestamp", 15);
|
||||
$output .= statistics_admin_count_table("timestamp", 15);
|
||||
|
||||
return $output;
|
||||
}
|
||||
|
|
@ -566,25 +525,25 @@ function statistics_admin_displaylog() {
|
|||
if ($uid) {
|
||||
$user = user_load(array("uid" => $uid));
|
||||
$output .= "<h3>Recent access logs for '$user->name'</h3>\n";
|
||||
$output .= statistics_admin_table1(1, $user->uid);
|
||||
$output .= statistics_admin_accesslog_table(1, $user->uid);
|
||||
}
|
||||
else if ($nid) {
|
||||
$node = node_load(array("nid" => $nid));
|
||||
$output .= "<h3>Recent access logs for '$node->title'</h3>\n";
|
||||
$output .= statistics_admin_table1(2, $node->nid);
|
||||
$output .= statistics_admin_accesslog_table(2, $node->nid);
|
||||
}
|
||||
else if ($hostname) {
|
||||
$output .= "<h3>Recent access logs for '$hostname'</h3>\n";
|
||||
$output .= statistics_admin_table1(3, $hostname);
|
||||
$output .= statistics_admin_accesslog_table(3, $hostname);
|
||||
}
|
||||
else {
|
||||
$output .= "<h3>Recent access logs</h3>\n";
|
||||
$output .= statistics_admin_table1(0, 0);
|
||||
$output .= statistics_admin_accesslog_table(0, 0);
|
||||
|
||||
$output .= "<br />";
|
||||
|
||||
$output .= "<h3>Recent users</h3>\n";
|
||||
$output .= statistics_admin_table1(1, 0);
|
||||
$output .= statistics_admin_accesslog_table(1, 0);
|
||||
|
||||
$output .= "<br />";
|
||||
}
|
||||
|
|
@ -594,24 +553,24 @@ function statistics_admin_displaylog() {
|
|||
|
||||
|
||||
/* Displays the block configuration administration form */
|
||||
function statistics_config_block0($edit) {
|
||||
function statistics_config_topnodes_block($edit) {
|
||||
|
||||
$form = form_textfield(t("Block name"), "stats b0 title0", $edit["stats b0 title0"], 20, 40, "This module generates a block with top nodes. You may assign a name for this block.");
|
||||
$form = form_textfield(t("Block name"), "statistics_block_top_title", $edit["statistics_block_top_title"], 20, 40, "This module generates a block with top nodes. You may assign a name for this block.");
|
||||
|
||||
$form .= "<hr />";
|
||||
|
||||
$form .= form_textfield(t("Today's top nodes title"), "stats b0 days head", $edit["stats b0 days head"], 20, 40, "Specify a name for the \"day's top\" section of the block generated by this module. (HTML tags permitted)");
|
||||
$form .= form_select(t("Number of day's top views to display"), "stats b0 days top", $edit["stats b0 days top"], 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"), "Set how many \"today's top\" nodes to display on the block generated by this module.");
|
||||
$form .= form_textfield(t("Today's top nodes title"), "statistics_block_top_day_head", $edit["statistics_block_top_day_head"], 20, 40, "Specify a name for the \"day's top\" section of the block generated by this module. (HTML tags permitted)");
|
||||
$form .= 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"), "Set how many \"today's top\" nodes to display on the block generated by this module.");
|
||||
|
||||
$form .= "<hr />";
|
||||
|
||||
$form .= form_textfield(t("All time top nodes title"), "stats b0 alltime head", $edit["stats b0 alltime head"], 20, 40, "Specify a name for the \"all time top\" section of the block generated by this module. (HTML tags permitted)");
|
||||
$form .= form_select(t("Number of all time views to display"), "stats b0 alltime top", $edit["stats b0 alltime top"], 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"), "Set how many \"all time top\" nodes to display on the block generated by this module.");
|
||||
$form .= form_textfield(t("All time top nodes title"), "statistics_block_top_all_head", $edit["statistics_block_top_all_head"], 20, 40, "Specify a name for the \"all time top\" section of the block generated by this module. (HTML tags permitted)");
|
||||
$form .= 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"), "Set how many \"all time top\" nodes to display on the block generated by this module.");
|
||||
|
||||
$form .= "<hr>";
|
||||
|
||||
$form .= form_textfield(t("Most recent views heading"), "stats b0 last head", $edit["stats b0 last head"], 20, 40, "Specify a name for the \"last views\" section of the block generated by this module. (HTML tags permitted)");
|
||||
$form .= form_select(t("Number of most recent views to display"), "stats b0 last top", $edit["stats b0 last top"], 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"), "Set how many \"last viewed\" nodes to display on the block generated by this module.");
|
||||
$form .= form_textfield(t("Most recent views heading"), "statistics_block_top_last_head", $edit["statistics_block_top_last_head"], 20, 40, "Specify a name for the \"last views\" section of the block generated by this module. (HTML tags permitted)");
|
||||
$form .= 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"), "Set how many \"last viewed\" nodes to display on the block generated by this module.");
|
||||
|
||||
$form .= "<hr>";
|
||||
|
||||
|
|
@ -624,15 +583,15 @@ function statistics_config_block0($edit) {
|
|||
|
||||
|
||||
/* Displays the block configuration administration form */
|
||||
function statistics_config_block1($edit) {
|
||||
function statistics_config_online_block($edit) {
|
||||
|
||||
$form .= form_textfield(t("Block name"), "stats b1 title0", $edit["stats b1 title0"], 20, 40, "This module generates a block displaying how many users/guests are online. You may assign a name for this block.");
|
||||
$form .= form_textfield(t("Sub-block name"), "stats b1 title1", $edit["stats b1 title1"], 20, 40, "This module generates a sub-block listing the names of currently online users. You may assign a name for this block.");
|
||||
$form .= form_textfield(t("Block name"), "statistics_block_online_title", $edit["statistics_block_online_title"], 20, 40, "This module generates a block displaying how many users/guests are online. You may assign a name for this block.");
|
||||
$form .= form_textfield(t("Sub-block name"), "statistics_block_online_subtitle", $edit["statistics_block_online_subtitle"], 20, 40, "This module generates a sub-block listing the names of currently online users. You may assign a name for this block.");
|
||||
|
||||
$period = array(30 => format_interval(30), 60 => format_interval(60), 120 => format_interval(120), 180 => format_interval(180), 300 => format_interval(300), 600 => format_interval(600), 900 => format_interval(900), 1800 => format_interval(1800), 2700 => format_interval(2700), 3600 => format_interval(3600), 5400 => format_interval(5400), 7200 => format_interval(7200), 10800 => format_interval(10800), 21600 => format_interval(21600), 43200 => format_interval(43200), 86400 => format_interval(86400));
|
||||
$form .= form_select(t("Activity trheshold"), "stats b1 time", $edit["stats b1 time"], $period, "How long ago a user (or guest) must have been active to be considered online.");
|
||||
$form .= form_select(t("Maximum characters of user's name to display"), "stats b1 maxname len", $edit["stats b1 maxname len"], array("1" => "1", "5" => "5", "10" => "10", "15" => "15", "20" => "20", "25" => "25", "30" => "30", "35" => "35", "40" => "40", "45" => "45", "50" => "50", "55" => "55", "60" => "60"), "What is the maximum characters of a user's name to to display in the sub-block.");
|
||||
$form .= form_select(t("How many online users to list"), "stats b1 max names", $edit["stats b1 max names"], array("0" => "0", "1" => "1", "2" => "2", "3" => "3", "4" => "4", "5" => "5", "6" => "6", "7" => "7", "8" => "8", "9" => "9", "10" => "10", "15" => "15", "20" => "20", "50" => "50", "100" => "100"), "How many online user's names to display in the sub-block.");
|
||||
$form .= form_select(t("Activity threshold"), "statistics_block_online_time", $edit["statistics_block_online_time"], $period, "How long ago a user (or guest) must have been active to be considered online.");
|
||||
$form .= form_select(t("Maximum characters of user's name to display"), "statistics_block_online_max_len", $edit["statistics_block_online_max_len"], array("1" => "1", "5" => "5", "10" => "10", "15" => "15", "20" => "20", "25" => "25", "30" => "30", "35" => "35", "40" => "40", "45" => "45", "50" => "50", "55" => "55", "60" => "60"), "What is the maximum characters of a user's name to to display in the sub-block.");
|
||||
$form .= form_select(t("How many online users to list"), "statistics_block_online_max_cnt", $edit["statistics_block_online_max_cnt"], array("0" => "0", "1" => "1", "2" => "2", "3" => "3", "4" => "4", "5" => "5", "6" => "6", "7" => "7", "8" => "8", "9" => "9", "10" => "10", "15" => "15", "20" => "20", "50" => "50", "100" => "100"), "How many online user's names to display in the sub-block.");
|
||||
|
||||
$form .= form_submit("Submit \"who's online\" block changes");
|
||||
|
||||
|
|
@ -642,21 +601,21 @@ function statistics_config_block1($edit) {
|
|||
|
||||
|
||||
/* Displays the user page configuration administration form */
|
||||
function statistics_display_userconfig($edit) {
|
||||
function statistics_admin_userpage_config($edit) {
|
||||
|
||||
$form = form_textfield(t("Name for link to user page"), "statistics up link", $edit["statistics up link"], 20, 40, "This node generates a user page with top nodes. If you wish a link added automatically, specify a name.");
|
||||
$form = form_textfield(t("Name for link to user page"), "statistics_userpage_link", $edit["statistics_userpage_link"], 20, 40, "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 up days head", $edit["statistics up days head"], 20, 40, "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 up days top", $edit["statistics up days top"], 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"), "Set how many \"day's top\" nodes to display on the user page generated by this module.");
|
||||
$form .= form_textfield(t("Today's top nodes title"), "statistics_userpage_day_head", $edit["statistics_userpage_day_head"], 20, 40, "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"), "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 up alltime head", $edit["statistics up alltime head"], 20, 40, "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 up alltime top", $edit["statistics up alltime top"], 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"), "Set how many \"all time top\" nodes to display on the user page generated by this module.");
|
||||
$form .= form_textfield(t("All time top nodes title"), "statistics_userpage_all_head", $edit["statistics_userpage_all_head"], 20, 40, "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"), "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 up last head", $edit["statistics up last head"], 20, 40, "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 up last top", $edit["statistics up last top"], 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"), "Set how many \"last viewed\" nodes to display on the user page generated by this module.");
|
||||
$form .= form_textfield(t("Last viewed nodes title"), "statistics_userpage_last_head", $edit["statistics_userpage_last_head"], 20, 40, "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"), "Set how many \"last viewed\" nodes to display on the user page generated by this module.");
|
||||
$form .= "<hr />";
|
||||
|
||||
$form .= form_submit("Submit \"top nodes\" page changes");
|
||||
|
|
@ -670,87 +629,76 @@ function statistics_display_userconfig($edit) {
|
|||
/* Adds configure option to the main configure site admin page */
|
||||
function statistics_conf_options() {
|
||||
/* access log options */
|
||||
$output .= "<h4>[ access log: ]</h4>";
|
||||
$output .= form_select(t("enable access log"), "stats enable log", variable_get("stats enable log", 0), array("1" => t("enabled"), "0" => t("disabled")), "Log each page access. (required for referrer statistics and auto-throttling)");
|
||||
$output .= form_select(t("Enable access log"), "statistics_enable_access_log", variable_get("statistics_enable_access_log", 0), array("1" => t("enabled"), "0" => t("disabled")), "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));
|
||||
$output .= form_select(t("discard access logs older than"), "stats flush log", variable_get("stats flush log", 259200), $period, "Older access log entries (including referrer statistics) will be automatically discarded. Requires crontab.");
|
||||
$output .= form_select(t("Discard access logs older than"), "statistics_flush_accesslog_timer", variable_get("statistics_flush_accesslog_timer", 259200), $period, "Older access log entries (including referrer statistics) will be automatically discarded. Requires crontab.");
|
||||
|
||||
$output .= "<h4>[ auto-throttle: ]</h4>";
|
||||
$output .= form_select(t("enable auto-throttle"), "stats enable throttle", variable_get("stats enable throttle", 0), array("1" => t("enabled"), "0" => t("disabled")), "Throttle (minimize) site when receiving too many hits. (requires that 'access log' be enabled)");
|
||||
$throttles = array(1 => "1 (0,1,2,3,4,5)", 5 => "5 (0,5,10,15,20,25)", 10 => "10 (0,10,20,30,40,50)", 20 => "20 (0,20,40,60,80,100)", 30 => "30 (0,30,60,90,120,150)", 50 => "50 (0,50,100,150,200,250)", 60 => "60 (0,60,120,180,240,300)", 100 => "100 (0,100,200,300,400,500", 500 => "500 (0,500,1000,1500,2000,2500", 1000 => "1000 (0,1000,2000,3000,4000,5000)");
|
||||
$output .= form_select(t("auto-throttle multiplier"), "stats throttle multiplier", variable_get("stats throttle multiplier", 60), $throttles, "Multiplier to define the number of page accesses made in past minute to trigger each throttle level (0-5).");
|
||||
$probabilities = array(0 => "100%", 1 => "50%", 2 => "33.3%", 3 => "25%", 4 => "20%", 5 => "16.6%", 7 => "12.5%", 9 => "10%", 19 => "5%", 99 => "1%");
|
||||
$output .= form_select(t("auto-throttle probability limiter"), "stats probability limiter", variable_get("stats probability limiter", 9), $probabilities, "Probability based efficiency mechanism. Specify the approximate % of hits that will update the throttle level. (Updates add one DB query)");
|
||||
$output .= form_select(t("Enable node view counters"), "statistics_enable_node_counter", variable_get("statistics_enable_node_counter", 0), array("1" => t("enabled"), "0" => t("disabled")), "Increment node view counter each time a node is viewed.");
|
||||
$output .= form_select(t("Display node view counters"), "statistics_display_counter", variable_get("statistics_display_counter", ""), array("1" => t("enabled"), "0" => t("disabled")), "Display how many times each node has been viewed. User must have the 'access statistics' permissions.");
|
||||
|
||||
$output .= "<h4>[ node view counters: ]</h4>";
|
||||
$output .= form_select(t("enable node counters"), "stats enable node counts", variable_get("stats enable node counts", 0), array("1" => t("enabled"), "0" => t("disabled")), "Increment node counter each time node is viewed.");
|
||||
$output .= form_select(t("display node counters"), "statistics display status", variable_get("statistics display status", ""), array("1" => t("enabled"), "0" => t("disabled")), "Display how many times each node has been viewed. User must have 'access statistics' permissions.");
|
||||
|
||||
$output .= "<b>day counter last reset on:</b><br />". format_date(variable_get("statistics timestamp", "large")) ."<br /><br />";
|
||||
$output .= la(t("<b>reset day counter</b>"), array("mod" => "statistics", "op" => "reset day counter"));
|
||||
$output .= "<br /><i>Clicking this link will reload this page without saving any other changes you've made. It will reset the day counter to now.</i>";
|
||||
return $output;
|
||||
}
|
||||
|
||||
|
||||
/* Saves the values entered in the "blockconfig" administration form */
|
||||
function statistics_save_block0($edit) {
|
||||
variable_set("stats b0 title0", $edit["stats b0 title0"]);
|
||||
variable_set("stats b0 days head", $edit["stats b0 days head"]);
|
||||
variable_set("stats b0 days top", $edit["stats b0 days top"]);
|
||||
variable_set("stats b0 alltime head", $edit["stats b0 alltime head"]);
|
||||
variable_set("stats b0 alltime top", $edit["stats b0 alltime top"]);
|
||||
variable_set("stats b0 last head", $edit["stats b0 last head"]);
|
||||
variable_set("stats b0 last top", $edit["stats b0 last top"]);
|
||||
function statistics_save_topnodes_block($edit) {
|
||||
variable_set("statistics_block_top_title", $edit["statistics_block_top_title"]);
|
||||
variable_set("statistics_block_top_day_head", $edit["statistics_block_top_day_head"]);
|
||||
variable_set("statistics_block_top_day_num", $edit["statistics_block_top_day_num"]);
|
||||
variable_set("statistics_block_top_all_head", $edit["statistics_block_top_all_head"]);
|
||||
variable_set("statistics_block_top_all_num", $edit["statistics_block_top_all_num"]);
|
||||
variable_set("statistics_block_top_last_head", $edit["statistics_block_top_last_head"]);
|
||||
variable_set("statistics_block_top_last_num", $edit["statistics_block_top_last_num"]);
|
||||
}
|
||||
|
||||
|
||||
/* Saves the values entered in the "blockconfig" administration form */
|
||||
function statistics_save_block1($edit) {
|
||||
variable_set("stats b1 title0", $edit["stats b1 title0"]);
|
||||
variable_set("stats b1 title1", $edit["stats b1 title1"]);
|
||||
variable_set("stats b1 time", $edit["stats b1 time"]);
|
||||
variable_set("stats b1 maxname len", $edit["stats b1 maxname len"]);
|
||||
variable_set("stats b1 max names", $edit["stats b1 max names"]);
|
||||
function statistics_save_online_block($edit) {
|
||||
variable_set("statistics_block_online_title", $edit["statistics_block_online_title"]);
|
||||
variable_set("statistics_block_online_subtitle", $edit["statistics_block_online_subtitle"]);
|
||||
variable_set("statistics_block_online_time", $edit["statistics_block_online_time"]);
|
||||
variable_set("statistics_block_online_max_len", $edit["statistics_block_online_max_len"]);
|
||||
variable_set("statistics_block_online_max_cnt", $edit["statistics_block_online_max_cnt"]);
|
||||
}
|
||||
|
||||
|
||||
/* Saves the values entered in the "userpage" administration form */
|
||||
function statistics_save_userconfig($edit) {
|
||||
variable_set("statistics up link", $edit["statistics up link"]);
|
||||
variable_set("statistics up days head", $edit["statistics up days head"]);
|
||||
variable_set("statistics up days top", $edit["statistics up days top"]);
|
||||
variable_set("statistics up alltime head", $edit["statistics up alltime head"]);
|
||||
variable_set("statistics up alltime top", $edit["statistics up alltime top"]);
|
||||
variable_set("statistics up last head", $edit["statistics up last head"]);
|
||||
variable_set("statistics up last top", $edit["statistics up last top"]);
|
||||
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 status", $edit["statistics display status"]);
|
||||
variable_set("statistics_display_counter", $edit["statistics_display_counter"]);
|
||||
}
|
||||
|
||||
|
||||
/* cron hook, performs automatic functions */
|
||||
function statistics_cron() {
|
||||
$statistics_timestamp = variable_get("statistics timestamp", "");
|
||||
$statistics_timestamp = variable_get("statistics_day_timestamp", "");
|
||||
|
||||
if ((time() - $statistics_timestamp) >= 86400) {
|
||||
/* reset day counts */
|
||||
db_query("UPDATE statistics SET daycount='0'");
|
||||
variable_set("statistics timestamp", time());
|
||||
variable_set("statistics_day_timestamp", time());
|
||||
}
|
||||
|
||||
/* clean expired access logs */
|
||||
db_query("DELETE FROM accesslog WHERE ". time() ." - timestamp > ". variable_get("stats flush log", 259200));
|
||||
db_query("DELETE FROM accesslog WHERE ". time() ." - timestamp > ". variable_get("statistics_flush_accesslog_timer", 259200));
|
||||
|
||||
$throttle = variable_get("stats throttle", 5);
|
||||
/* check if throttle is currently on */
|
||||
if ($throttle) {
|
||||
$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("stats throttle", $throttle - 1);
|
||||
variable_set("statistics_throttle_level", $throttle - 1);
|
||||
variable_set("statistics_throttle_cron_timestamp", time());
|
||||
if (function_exists("watchdog")) {
|
||||
watchdog("warning", "cron: decreasing throttle to level '". ($throttle - 1) ."' to test server load.");
|
||||
}
|
||||
|
|
@ -759,54 +707,54 @@ function statistics_cron() {
|
|||
|
||||
|
||||
/* Displays the "Top nodes" block */
|
||||
function statistics_displayblock0() {
|
||||
function statistics_display_topnodes_block() {
|
||||
global $id;
|
||||
|
||||
$daytop = variable_get("stats b0 days top", "");
|
||||
$daytop = variable_get("statistics_block_top_day_num", "");
|
||||
if ($daytop) {
|
||||
$dayheading = variable_get("stats b0 days head", "");
|
||||
$dayheading = variable_get("statistics_block_top_day_head", "");
|
||||
if ($dayheading) {
|
||||
$output .= "". $dayheading ."<br />";
|
||||
$output .= $dayheading ."<br />";
|
||||
}
|
||||
$output .= "". statistics_display_ltitle("daycount", $daytop) ."<br />";
|
||||
$output .= statistics_display_linked_title("daycount", $daytop) ."<br />";
|
||||
}
|
||||
$alltimetop = variable_get("stats b0 alltime top", "");
|
||||
$alltimetop = variable_get("statistics_block_top_all_num", "");
|
||||
if ($alltimetop) {
|
||||
$alltimeheading = variable_get("stats b0 alltime head", "");
|
||||
$alltimeheading = variable_get("statistics_block_top_all_head", "");
|
||||
if ($alltimeheading) {
|
||||
$output .= "". $alltimeheading ."<br />";
|
||||
$output .= $alltimeheading ."<br />";
|
||||
}
|
||||
$output .= "". statistics_display_ltitle("totalcount", $alltimetop) ."<br />";
|
||||
$output .= statistics_display_linked_title("totalcount", $alltimetop) ."<br />";
|
||||
}
|
||||
$lasttop = variable_get("stats b0 last top", "");
|
||||
$lasttop = variable_get("statistics_block_top_last_num", "");
|
||||
if ($lasttop) {
|
||||
$lastheading = variable_get("stats b0 last head", "");
|
||||
$lastheading = variable_get("statistics_block_top_last_head", "");
|
||||
if ($lastheading) {
|
||||
$output .= "". $lastheading ."<br />";
|
||||
$output .= $lastheading ."<br />";
|
||||
}
|
||||
$output .= "". statistics_display_ltitle("timestamp", $lasttop);
|
||||
$output .= statistics_display_linked_title("timestamp", $lasttop);
|
||||
}
|
||||
return $output;
|
||||
}
|
||||
|
||||
|
||||
/* This displays the "Who's online" block */
|
||||
function statistics_displayblock1() {
|
||||
function statistics_display_online_block() {
|
||||
global $id, $recent_activity;
|
||||
|
||||
$throttle = throttle_status();
|
||||
$multiplier = variable_get("stats throttle multiplier", 60);
|
||||
$multiplier = variable_get("statistics_throttle_multiplier", 60);
|
||||
|
||||
/* don't do any database lookups if on maximum throttle */
|
||||
if ($throttle < 5) {
|
||||
/* count users with activity in the past defined period */
|
||||
$time_period = variable_get("stats b1 time", 2700);
|
||||
$time_period = variable_get("statistics_block_online_time", 2700);
|
||||
|
||||
/*
|
||||
* This call gathers all the info we need on users/guests in a single
|
||||
* database call, thus is quite efficient.
|
||||
*/
|
||||
$result = db_query("SELECT COUNT(DISTINCT hostname) AS count,uid,MAX(timestamp) as timestamp FROM accesslog WHERE timestamp >= '%s' GROUP BY uid ORDER BY timestamp DESC", (time() - $time_period));
|
||||
** This call gathers all the info we need on users/guests in a single
|
||||
** database call, thus is quite efficient.
|
||||
*/
|
||||
$result = db_query("SELECT COUNT(DISTINCT hostname) AS count, uid, MAX(timestamp) as timestamp FROM accesslog WHERE timestamp >= '%s' GROUP BY uid ORDER BY timestamp DESC", (time() - $time_period));
|
||||
|
||||
$users = $guests = 0;
|
||||
/* Count number of users & guests currently online based on db query */
|
||||
|
|
@ -818,9 +766,10 @@ function statistics_displayblock1() {
|
|||
}
|
||||
else {
|
||||
/*
|
||||
* There's only going to be one return with a uid of 0, and that's the guest.
|
||||
* Hence, the count of this field is the total number of guests currently online.
|
||||
*/
|
||||
** There's only going to be one return with a uid of 0, and that's
|
||||
** the guest(s). Hence, the count of this field is the total number
|
||||
** of guests currently online.
|
||||
*/
|
||||
$guests = $users_online["count"];
|
||||
}
|
||||
}
|
||||
|
|
@ -838,16 +787,19 @@ function statistics_displayblock1() {
|
|||
|
||||
if (user_access("access userlist") && $users) {
|
||||
/* Display a list of currently online users */
|
||||
$max_users = variable_get("stats b1 max names", 10);
|
||||
$max_name_len = variable_get("stats b1 maxname len", 15);
|
||||
$output .= "<br /><br />\n<b>". variable_get("stats b1 title1", "Online users:") ."</b><br />\n";
|
||||
$max_users = variable_get("statistics_block_online_max_cnt", 10);
|
||||
$max_name_len = variable_get("statistics_block_online_max_len", 15);
|
||||
$output .= "<br /><br />\n<b>". variable_get("statistics_block_online_subtitle", "Online users:") ."</b><br />\n";
|
||||
$uid = reset($user_list);
|
||||
while (($uid) && ($max_users)) {
|
||||
$user = user_load(array("uid" => $uid));
|
||||
/* When displaying name, be sure it's not more than defined max length */
|
||||
$output .= " - ". lm((strlen($user->name) > $max_name_len ? substr($user->name, 0, $max_name_len) . '...' : $user->name), array("mod" => "user", "op" => "view", "id" => $user->uid)) ."<br />";
|
||||
$uid = next($user_list);
|
||||
/* When $max_users reaches zero, we break out even if there are more online */
|
||||
/*
|
||||
** When $max_users reaches zero, we break out even if there are
|
||||
** more online (as defined by the admin)
|
||||
*/
|
||||
$max_users--;
|
||||
}
|
||||
}
|
||||
|
|
@ -860,50 +812,13 @@ function statistics_displayblock1() {
|
|||
}
|
||||
|
||||
|
||||
/* This displays admin oriented "Throttle status" block */
|
||||
function statistics_displayblock2() {
|
||||
global $recent_activity;
|
||||
|
||||
/* information in this block is only for the admin of the site */
|
||||
if (user_access("administer site configuration")) {
|
||||
if (variable_get("stats enable throttle", 0)) {
|
||||
/* the throttle is enabled: display the status of all throttle config */
|
||||
$throttle = throttle_status();
|
||||
$multiplier = variable_get("stats throttle multiplier", 60);
|
||||
$minimum = $throttle * $multiplier;
|
||||
$limiter = variable_get("stats probability limiter", 9);
|
||||
/* calculate probability limiter's odds of updating throttle */
|
||||
$probability = substr((($limiter / ($limiter + 1) * 100) - 100) * -1, 0, 4);
|
||||
|
||||
$output .= "Throttle: ". l("Enabled", array("mod" => "system"), "admin", "statistics") ."<br />\n";
|
||||
if ($throttle < 5) {
|
||||
$maximum = (($throttle + 1) * $multiplier) - 1;
|
||||
$output .= "Current Level: $throttle ($minimum - $maximum)<br />\n";
|
||||
}
|
||||
else {
|
||||
$output .= "Current Level: $throttle ($minimum+)<br />\n";
|
||||
}
|
||||
$output .= "Probability: $probability%<br />\n";
|
||||
if ($recent_activity["hits"]) {
|
||||
$output .= "<br />This site has served ";
|
||||
$output .= format_plural($recent_activity["hits"] , " page", " pages");
|
||||
$output .= " in the past minute.";
|
||||
}
|
||||
}
|
||||
else {
|
||||
$output .= "Throttle: ". l("Disabled", array("mod" => "system"), "admin", "statistics") ."<br />\n";
|
||||
}
|
||||
}
|
||||
return $output;
|
||||
}
|
||||
|
||||
/* Display linked title based on field name */
|
||||
function statistics_display_ltitle($dbfield, $dbrows) {
|
||||
function statistics_display_linked_title($dbfield, $dbrows) {
|
||||
/* valid dbfields: totalcount, daycount, timestamp */
|
||||
|
||||
$result = db_query("SELECT statistics.nid,node.title FROM statistics LEFT JOIN node ON statistics.nid = node.nid ORDER BY %s DESC LIMIT %s", $dbfield, $dbrows);
|
||||
$result = db_query("SELECT statistics.nid, node.title FROM statistics LEFT JOIN node ON statistics.nid = node.nid ORDER BY %s DESC LIMIT %s", $dbfield, $dbrows);
|
||||
while ($nid = db_fetch_array($result)) {
|
||||
$output .= " - ". l($nid["title"], array("id" => $nid["nid"]), "node", "", array("title" => t("View this story and all of its comments."))) ."<br />";
|
||||
$output .= " - ". l($nid["title"], array("id" => $nid["nid"]), "node", "", array("title" => t("View this posting."))) ."<br />";
|
||||
}
|
||||
|
||||
return $output;
|
||||
|
|
@ -915,7 +830,7 @@ 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 statistics WHERE nid = '%s'", $nid));
|
||||
$statistics = db_fetch_array(db_query("SELECT totalcount, daycount, timestamp FROM statistics WHERE nid = '%s'", $nid));
|
||||
}
|
||||
|
||||
return $statistics;
|
||||
|
|
@ -926,18 +841,14 @@ function statistics_get($nid) {
|
|||
/* Block hook */
|
||||
function statistics_block() {
|
||||
|
||||
$block[0]["subject"] = variable_get("stats b0 title0", "Top nodes");
|
||||
$block[0]["content"] = statistics_displayblock0();
|
||||
$block[0]["subject"] = variable_get("statistics_block_top_title", "Top nodes");
|
||||
$block[0]["content"] = statistics_display_topnodes_block();
|
||||
$block[0]["info"] = "Top nodes";
|
||||
|
||||
$block[1]["subject"] = variable_get("stats b1 title0", "Who's online");
|
||||
$block[1]["content"] = statistics_displayblock1();
|
||||
$block[1]["subject"] = variable_get("statistics_block_online_title", "Who's online");
|
||||
$block[1]["content"] = statistics_display_online_block();
|
||||
$block[1]["info"] = "Who's online";
|
||||
|
||||
$block[2]["subject"] = "Throttle status";
|
||||
$block[2]["content"] = statistics_displayblock2();
|
||||
$block[2]["info"] = "Throttle status";
|
||||
|
||||
return $block;
|
||||
}
|
||||
|
||||
|
|
@ -966,37 +877,37 @@ function statistics_page_user($uid = 0, $date = 0, $all = 0) {
|
|||
$date = time();
|
||||
}
|
||||
|
||||
$displaycount = variable_get("statistics up days top", 10);
|
||||
$displaycount = variable_get("statistics_userpage_day_cnt", 10);
|
||||
if ($displaycount) {
|
||||
$output .= "<table border=\"0\" cellpadding=\"4\" cellspacing=\"4\" width=\"100%\">";
|
||||
$output .= statistics_storysummary("daycount", $displaycount);
|
||||
$output .= statistics_summary("daycount", $displaycount);
|
||||
$output .= "</table>";
|
||||
|
||||
$theme->box(t(variable_get("statistics up days head", "")), $output, "main");
|
||||
$theme->box(t(variable_get("statistics_userpage_day_head", "")), $output, "main");
|
||||
}
|
||||
|
||||
|
||||
$displaycount = variable_get("statistics up alltime top", "10");
|
||||
$displaycount = variable_get("statistics_userpage_all_cnt", "10");
|
||||
if ($displaycount) {
|
||||
$output = "<table border=\"0\" cellpadding=\"4\" cellspacing=\"4\" width=\100%\">";
|
||||
$output .= statistics_storysummary("totalcount", $displaycount);
|
||||
$output .= statistics_summary("totalcount", $displaycount);
|
||||
$output .= "</table>";
|
||||
|
||||
$theme->box(t(variable_get("statistics up alltime head", "")), $output, "main");
|
||||
$theme->box(t(variable_get("statistics_userpage_all_head", "")), $output, "main");
|
||||
}
|
||||
|
||||
$displaycount = variable_get("statistics up last top", "10");
|
||||
$displaycount = variable_get("statistics_userpage_last_cnt", "10");
|
||||
if ($displaycount) {
|
||||
$output = "<table border=\"0\" cellpadding=\"4\" cellspacing=\"4\" width=\100%\">";
|
||||
$output .= statistics_storysummary("timestamp", $displaycount);
|
||||
$output .= statistics_summary("timestamp", $displaycount);
|
||||
$output .= "</table>";
|
||||
|
||||
$theme->box(t(variable_get("statistics up last head", "")), $output, "main");
|
||||
$theme->box(t(variable_get("statistics_userpage_last_head", "")), $output, "main");
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
function statistics_storysummary($dbfield, $dbrows) {
|
||||
function statistics_summary($dbfield, $dbrows) {
|
||||
/* valid dbfields: totalcount, daycount, timestamp */
|
||||
global $theme;
|
||||
|
||||
|
|
@ -1005,7 +916,7 @@ function statistics_storysummary($dbfield, $dbrows) {
|
|||
$content = node_load(array("nid" => $nid["nid"]));
|
||||
$links = link_node($content, 1);
|
||||
|
||||
$output .= "<tr><td><b>". l($nid["title"], array("id" => $nid["nid"]), "node", "", array("title" => t("View this story and all of its comments."))) ."</b></td><td align=\"right\"><small>". t("Submitted by %a on %b", array("%a" => format_name($content), "%b" => format_date($content->created, "large"))) ."</td></tr>";
|
||||
$output .= "<tr><td><b>". l($nid["title"], array("id" => $nid["nid"]), "node", "", array("title" => t("View this posting."))) ."</b></td><td align=\"right\"><small>". t("Submitted by %a on %b", array("%a" => format_name($content), "%b" => format_date($content->created, "large"))) ."</td></tr>";
|
||||
$output .= "</small><tr><td colspan=\"2\"><div style=\"margin-left: 20px;\">". check_output($content->teaser, 1) ."</div></td></tr>";
|
||||
$output .= "<tr><td align=\"right\" colspan=\"2\">[ ". $theme->links($links) ." ]<br /><br /></td></tr>";
|
||||
}
|
||||
|
|
@ -1017,7 +928,7 @@ function statistics_storysummary($dbfield, $dbrows) {
|
|||
/* internal throttle function - do not call from other modules */
|
||||
function throttle_update($recent_activity) {
|
||||
$throttle = throttle_status();
|
||||
$multiplier = variable_get("stats throttle multiplier", 60);
|
||||
$multiplier = variable_get("statistics_throttle_multiplier", 60);
|
||||
|
||||
for ($i = 0; $i <= 5; $i++) {
|
||||
if (($i * $multiplier) <= $recent_activity) {
|
||||
|
|
@ -1027,13 +938,18 @@ function throttle_update($recent_activity) {
|
|||
|
||||
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.
|
||||
*/
|
||||
** 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("stats throttle", $throttle_new);
|
||||
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 (function_exists(watchdog)) {
|
||||
if ($throttle_new < $throttle) {
|
||||
|
|
@ -1055,7 +971,7 @@ function throttle_update($recent_activity) {
|
|||
function throttle_status() {
|
||||
static $throttle;
|
||||
|
||||
$throttle = variable_get("stats throttle", 0);
|
||||
$throttle = variable_get("statistics_throttle_level", 0);
|
||||
|
||||
return $throttle;
|
||||
}
|
||||
|
|
|
|||
|
|
@ -0,0 +1,154 @@
|
|||
<?php
|
||||
|
||||
/* System hook, sets description of module in admin page */
|
||||
function throttle_system($field) {
|
||||
$system["description"] = t("Allows configuration of congestion control auto-throttle mechanism.");
|
||||
return $system[$field];
|
||||
}
|
||||
|
||||
|
||||
/* Permissions hook, defines module's permissions */
|
||||
function throttle_perm() {
|
||||
/*
|
||||
** throttle module defines the following permissions:
|
||||
** access throttle box - see throttle statistics
|
||||
*/
|
||||
return array("access throttle box");
|
||||
}
|
||||
|
||||
|
||||
/* Administrative help page */
|
||||
function throttle_help() {
|
||||
?>
|
||||
<h3>Introduction</h3>
|
||||
|
||||
<p>This Drupal module allows you to enable and configure the auto-throttle congestion control mechanism offered by the statistics.module. The auto-throttle mechanism allows your site to automatically adapt to different server levels.</p>
|
||||
|
||||
<p>This module also adds a block that displays the current status of the throttle. You must have "access throttle block" privileges to view the block. As a general rule of thumb, only site administrators should be granted access to this block.</p>
|
||||
|
||||
<p>The auto-throttle mechanism performs an extra database query in order to determine what the current throttle level should be. Fortunately the throttle can be tuned so these database queries only occur on a fraction of all pages geenrated by your site, reducing the overhead to an insignificant amount. Additionally, when the top-most throttle level is reached, all throttle queries are suspended for a configurable period of time. More detail follows.
|
||||
|
||||
<p>As with any new module, <i>throttle.module</i> needs to be enabled <?php print l("here", array("mod" => "system", "op" => "modules"), "admin"); ?> before you can use it. Also refer to the permissions section below if you wish to access the throttle statistics block.</p>
|
||||
|
||||
<h3>Configuring the throttle module</h3>
|
||||
|
||||
<p>The configuration section for the throttle allows you to turn it on and off, as well as to fine-tune how sensitive it is.</p>
|
||||
|
||||
<h4>enable auto-throttle:</h4>
|
||||
<blockquote>This first option on the throttle module configuration screen allows you to enable or disable the auto-throttling mechanism. Note that the access-log must also be enabled via the statistics.module for the auto-throttling mechanism to have any affect.</blockquote>
|
||||
|
||||
<h4>auto-throttle multiplier:</h4>
|
||||
<blockquote>This second option allows you to tune the auto-throttle mechanism. The auto-throttle mechanism supports six throttle levels, from 0 (off) to 5 (maximum). The current throttle level is based upon how many pages have been accessed on your site in the past 60 seconds - the more pages being displayed, the higher the throttle level. This multiplier defines how many hits are required to switch from one throttle level to the next.
|
||||
|
||||
<p>For example, with a throttle multiplier of 20: Once 20 pages have been accessed on your site within a period of 60 seconds, the throttle level will be incremented to a level of 1. Once 40 pages have been accessed on your site within a period of 60 seconds, the throttle level will be incremented to a level of 2. And so on, until 100 pages are accessed on your site within a period of 60 seconds, at which time the throttle level will be set to a maximum level of 5.</p>
|
||||
|
||||
<p>Upon reaching a throttle level of 5, access logs and the auto-throttle checking mechanism is automatically disabled. It is only renabled by cron after a period of time defined by "auto-throttle cron test", explained below.</p></blockquote>
|
||||
|
||||
<h4>auto-throttle probability limiter:</h4>
|
||||
<blockquote>This option allows you to minimize the performance impact of the auto-throttle. If we refer to the probability limiter as P, then P% of all pages generated by your site will perform an extra database query to verify that the current throttle level is appropriate to the current server load.
|
||||
|
||||
<p>As a rule of thumb, the higher your multiplier, the lower your probability limiter should be. For example, if you have a multiplier of 100, then you logically don't need to check the throttle level more than once out of every 100 page views, so the probability limiter should be set to 1%. As database queries are "expensive", it's recommended that you keep the probability limiter to the smallest percentage possible, while still high enough to react quickly to a change in server load.</p></blockquote>
|
||||
|
||||
<h4>auto-throttle cron test:</h4>
|
||||
<blockquote>The auto-throttle dynamically adjusts its level upward, but not downward. That is to say, if you have a multiplier of 20 and you get 45 hits in one minute, your throttle level will be adjusted to a level of 2. If a few minutes later you only get 35 hits in one minute, the throttle level will NOT be adjusted down to a level of 1. This prevents the throttle from bouncing back and forth between two levels.
|
||||
|
||||
<p>In order for the throttle level to be dropped, cron must be enabled. This option then defines how often the level will be dropped by one to test the server load. If the server load is no longer as high as it was, the level will stay where it is, until the cron test period passes again and cron drops the throttle level again. This process repeats until the throttle is returned to a throttle level of 0.</p></blockquote>
|
||||
|
||||
<h3>Throttle block</h3>
|
||||
|
||||
<p>This block displays some statistics regarding the current throttle and its configuration. It is recommended that only site administrators receive the "access throttle block" permission bit required to view this block. It does not display information that would interest a normal site end-user.</p>
|
||||
|
||||
<p>Don't forget to enable the block <?php print l("here", array("mod" => "block"), "admin"); ?>.</p>
|
||||
|
||||
<h3>Permissions</h3>
|
||||
<p>This module has one permission that needs to be configured in
|
||||
<?php print l("user permissions", array("mod" => "user", "op" => "permission"), "admin"); ?>.</p>
|
||||
<ul>
|
||||
<li><i>access throttle block</i> - enable for user roles that get to view the throttle block.</li>
|
||||
</ul>
|
||||
|
||||
<h3>For programmers: throttle_status()</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>
|
||||
<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>
|
||||
|
||||
<?php
|
||||
}
|
||||
|
||||
|
||||
/* Adds configure option to the main configure site admin page */
|
||||
function throttle_conf_options() {
|
||||
/* access log options */
|
||||
$output .= form_select(t("Enable auto-throttle"), "statistics_enable_auto_throttle", variable_get("statistics_enable_auto_throttle", 0), array("1" => t("enabled"), "0" => t("disabled")), "Enable auto-throttling congestion control mechanism. Allows your site to adapt under extreme user loads. Requires that 'access log' be enabled.");
|
||||
$throttles = array(1 => "1 (0,1,2,3,4,5)", 5 => "5 (0,5,10,15,20,25)", 10 => "10 (0,10,20,30,40,50)", 12 => "12 (0,12,24,36,48,60)", 15 => "15 (0,15,30,45,60,75)", 20 => "20 (0,20,40,60,80,100)", 30 => "30 (0,30,60,90,120,150)", 50 => "50 (0,50,100,150,200,250)", 60 => "60 (0,60,120,180,240,300)", 100 => "100 (0,100,200,300,400,500", 500 => "500 (0,500,1000,1500,2000,2500", 1000 => "1000 (0,1000,2000,3000,4000,5000)");
|
||||
$output .= form_select(t("Auto-throttle multiplier"), "statistics_throttle_multiplier", variable_get("statistics_throttle_multiplier", 60), $throttles, "Throttle tuning. Specify how many hits in the past 60 seconds triggers higher throttle level. Example: multiplier of 5 takes 5 hits for level 1, 25 hits for level 5.");
|
||||
$probabilities = array(0 => "100%", 1 => "50%", 2 => "33.3%", 3 => "25%", 4 => "20%", 5 => "16.6%", 7 => "12.5%", 9 => "10%", 19 => "5%", 99 => "1%", 199 => ".5%", 399 => ".25%", 989 => ".1%");
|
||||
$output .= form_select(t("Auto-throttle probability limiter"), "statistics_probability_limiter", variable_get("statistics_probability_limiter", 9), $probabilities, "Throttle tuning. Probability based efficiency mechanism specifying the probability, expressed in a percentage of page views, an extra database query is performed to adjust throttle level.");
|
||||
$period = array(1800 => format_interval(1800), 3600 => format_interval(3600), 7200 => format_interval(7200), 10800 => format_interval(10800), 14400 => format_interval(14400), 18000 => format_interval(18000), 21600 => format_interval(21600), 43200 => format_interval(43200), 64800 => format_interval(64800), 86400 => format_interval(86400), 172800 => format_interval(172800), 259200 => format_interval(259200), 604800 => format_interval(604800));
|
||||
$output .= form_select(t("Auto-throttle cron test"), "statistics_throttle_cron_timer", variable_get("statistics_throttle_cron_timer", 10800), $period, "Throttle tuning. Specify how often cron should drop the thottle level (if up) to test server load. Requires cron.");
|
||||
return $output;
|
||||
}
|
||||
|
||||
|
||||
/* This displays admin oriented "Throttle status" block */
|
||||
function throttle_display_throttle_block() {
|
||||
global $recent_activity;
|
||||
|
||||
if (user_access("access throttle block")) {
|
||||
if (variable_get("statistics_enable_auto_throttle", 0)) {
|
||||
/* the throttle is enabled: display the status of all throttle config */
|
||||
if (function_exists("throttle_status")) {
|
||||
$throttle = throttle_status();
|
||||
}
|
||||
else {
|
||||
$throttle = 0;
|
||||
}
|
||||
$multiplier = variable_get("statistics_throttle_multiplier", 60);
|
||||
$minimum = $throttle * $multiplier;
|
||||
$limiter = variable_get("statistics_probability_limiter", 9);
|
||||
/* calculate probability limiter's odds of updating throttle */
|
||||
$probability = substr((($limiter / ($limiter + 1) * 100) - 100) * -1, 0, 4);
|
||||
|
||||
$output .= "Throttle: ". l("Enabled", array("mod" => "system"), "admin", "statistics") ."<br />\n";
|
||||
if ($throttle < 5) {
|
||||
$maximum = (($throttle + 1) * $multiplier) - 1;
|
||||
$output .= "Current Level: $throttle ($minimum - $maximum)<br />\n";
|
||||
}
|
||||
else {
|
||||
$output .= "Current Level: $throttle ($minimum+)<br />\n";
|
||||
}
|
||||
$output .= "Probability: $probability%<br />\n";
|
||||
if ($recent_activity["hits"]) {
|
||||
$output .= "<br />This site has served ";
|
||||
$output .= format_plural($recent_activity["hits"] , " page", " pages");
|
||||
$output .= " in the past minute.";
|
||||
}
|
||||
}
|
||||
else {
|
||||
$output .= "Throttle: ". l("Disabled", array("mod" => "system"), "admin", "statistics") ."<br />\n";
|
||||
}
|
||||
}
|
||||
return $output;
|
||||
}
|
||||
|
||||
/* Block hook */
|
||||
function throttle_block() {
|
||||
|
||||
$block[0]["subject"] = "Throttle status";
|
||||
$block[0]["content"] = throttle_display_throttle_block();
|
||||
$block[0]["info"] = "Throttle status";
|
||||
|
||||
return $block;
|
||||
}
|
||||
|
||||
?>
|
||||
|
|
@ -0,0 +1,154 @@
|
|||
<?php
|
||||
|
||||
/* System hook, sets description of module in admin page */
|
||||
function throttle_system($field) {
|
||||
$system["description"] = t("Allows configuration of congestion control auto-throttle mechanism.");
|
||||
return $system[$field];
|
||||
}
|
||||
|
||||
|
||||
/* Permissions hook, defines module's permissions */
|
||||
function throttle_perm() {
|
||||
/*
|
||||
** throttle module defines the following permissions:
|
||||
** access throttle box - see throttle statistics
|
||||
*/
|
||||
return array("access throttle box");
|
||||
}
|
||||
|
||||
|
||||
/* Administrative help page */
|
||||
function throttle_help() {
|
||||
?>
|
||||
<h3>Introduction</h3>
|
||||
|
||||
<p>This Drupal module allows you to enable and configure the auto-throttle congestion control mechanism offered by the statistics.module. The auto-throttle mechanism allows your site to automatically adapt to different server levels.</p>
|
||||
|
||||
<p>This module also adds a block that displays the current status of the throttle. You must have "access throttle block" privileges to view the block. As a general rule of thumb, only site administrators should be granted access to this block.</p>
|
||||
|
||||
<p>The auto-throttle mechanism performs an extra database query in order to determine what the current throttle level should be. Fortunately the throttle can be tuned so these database queries only occur on a fraction of all pages geenrated by your site, reducing the overhead to an insignificant amount. Additionally, when the top-most throttle level is reached, all throttle queries are suspended for a configurable period of time. More detail follows.
|
||||
|
||||
<p>As with any new module, <i>throttle.module</i> needs to be enabled <?php print l("here", array("mod" => "system", "op" => "modules"), "admin"); ?> before you can use it. Also refer to the permissions section below if you wish to access the throttle statistics block.</p>
|
||||
|
||||
<h3>Configuring the throttle module</h3>
|
||||
|
||||
<p>The configuration section for the throttle allows you to turn it on and off, as well as to fine-tune how sensitive it is.</p>
|
||||
|
||||
<h4>enable auto-throttle:</h4>
|
||||
<blockquote>This first option on the throttle module configuration screen allows you to enable or disable the auto-throttling mechanism. Note that the access-log must also be enabled via the statistics.module for the auto-throttling mechanism to have any affect.</blockquote>
|
||||
|
||||
<h4>auto-throttle multiplier:</h4>
|
||||
<blockquote>This second option allows you to tune the auto-throttle mechanism. The auto-throttle mechanism supports six throttle levels, from 0 (off) to 5 (maximum). The current throttle level is based upon how many pages have been accessed on your site in the past 60 seconds - the more pages being displayed, the higher the throttle level. This multiplier defines how many hits are required to switch from one throttle level to the next.
|
||||
|
||||
<p>For example, with a throttle multiplier of 20: Once 20 pages have been accessed on your site within a period of 60 seconds, the throttle level will be incremented to a level of 1. Once 40 pages have been accessed on your site within a period of 60 seconds, the throttle level will be incremented to a level of 2. And so on, until 100 pages are accessed on your site within a period of 60 seconds, at which time the throttle level will be set to a maximum level of 5.</p>
|
||||
|
||||
<p>Upon reaching a throttle level of 5, access logs and the auto-throttle checking mechanism is automatically disabled. It is only renabled by cron after a period of time defined by "auto-throttle cron test", explained below.</p></blockquote>
|
||||
|
||||
<h4>auto-throttle probability limiter:</h4>
|
||||
<blockquote>This option allows you to minimize the performance impact of the auto-throttle. If we refer to the probability limiter as P, then P% of all pages generated by your site will perform an extra database query to verify that the current throttle level is appropriate to the current server load.
|
||||
|
||||
<p>As a rule of thumb, the higher your multiplier, the lower your probability limiter should be. For example, if you have a multiplier of 100, then you logically don't need to check the throttle level more than once out of every 100 page views, so the probability limiter should be set to 1%. As database queries are "expensive", it's recommended that you keep the probability limiter to the smallest percentage possible, while still high enough to react quickly to a change in server load.</p></blockquote>
|
||||
|
||||
<h4>auto-throttle cron test:</h4>
|
||||
<blockquote>The auto-throttle dynamically adjusts its level upward, but not downward. That is to say, if you have a multiplier of 20 and you get 45 hits in one minute, your throttle level will be adjusted to a level of 2. If a few minutes later you only get 35 hits in one minute, the throttle level will NOT be adjusted down to a level of 1. This prevents the throttle from bouncing back and forth between two levels.
|
||||
|
||||
<p>In order for the throttle level to be dropped, cron must be enabled. This option then defines how often the level will be dropped by one to test the server load. If the server load is no longer as high as it was, the level will stay where it is, until the cron test period passes again and cron drops the throttle level again. This process repeats until the throttle is returned to a throttle level of 0.</p></blockquote>
|
||||
|
||||
<h3>Throttle block</h3>
|
||||
|
||||
<p>This block displays some statistics regarding the current throttle and its configuration. It is recommended that only site administrators receive the "access throttle block" permission bit required to view this block. It does not display information that would interest a normal site end-user.</p>
|
||||
|
||||
<p>Don't forget to enable the block <?php print l("here", array("mod" => "block"), "admin"); ?>.</p>
|
||||
|
||||
<h3>Permissions</h3>
|
||||
<p>This module has one permission that needs to be configured in
|
||||
<?php print l("user permissions", array("mod" => "user", "op" => "permission"), "admin"); ?>.</p>
|
||||
<ul>
|
||||
<li><i>access throttle block</i> - enable for user roles that get to view the throttle block.</li>
|
||||
</ul>
|
||||
|
||||
<h3>For programmers: throttle_status()</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>
|
||||
<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>
|
||||
|
||||
<?php
|
||||
}
|
||||
|
||||
|
||||
/* Adds configure option to the main configure site admin page */
|
||||
function throttle_conf_options() {
|
||||
/* access log options */
|
||||
$output .= form_select(t("Enable auto-throttle"), "statistics_enable_auto_throttle", variable_get("statistics_enable_auto_throttle", 0), array("1" => t("enabled"), "0" => t("disabled")), "Enable auto-throttling congestion control mechanism. Allows your site to adapt under extreme user loads. Requires that 'access log' be enabled.");
|
||||
$throttles = array(1 => "1 (0,1,2,3,4,5)", 5 => "5 (0,5,10,15,20,25)", 10 => "10 (0,10,20,30,40,50)", 12 => "12 (0,12,24,36,48,60)", 15 => "15 (0,15,30,45,60,75)", 20 => "20 (0,20,40,60,80,100)", 30 => "30 (0,30,60,90,120,150)", 50 => "50 (0,50,100,150,200,250)", 60 => "60 (0,60,120,180,240,300)", 100 => "100 (0,100,200,300,400,500", 500 => "500 (0,500,1000,1500,2000,2500", 1000 => "1000 (0,1000,2000,3000,4000,5000)");
|
||||
$output .= form_select(t("Auto-throttle multiplier"), "statistics_throttle_multiplier", variable_get("statistics_throttle_multiplier", 60), $throttles, "Throttle tuning. Specify how many hits in the past 60 seconds triggers higher throttle level. Example: multiplier of 5 takes 5 hits for level 1, 25 hits for level 5.");
|
||||
$probabilities = array(0 => "100%", 1 => "50%", 2 => "33.3%", 3 => "25%", 4 => "20%", 5 => "16.6%", 7 => "12.5%", 9 => "10%", 19 => "5%", 99 => "1%", 199 => ".5%", 399 => ".25%", 989 => ".1%");
|
||||
$output .= form_select(t("Auto-throttle probability limiter"), "statistics_probability_limiter", variable_get("statistics_probability_limiter", 9), $probabilities, "Throttle tuning. Probability based efficiency mechanism specifying the probability, expressed in a percentage of page views, an extra database query is performed to adjust throttle level.");
|
||||
$period = array(1800 => format_interval(1800), 3600 => format_interval(3600), 7200 => format_interval(7200), 10800 => format_interval(10800), 14400 => format_interval(14400), 18000 => format_interval(18000), 21600 => format_interval(21600), 43200 => format_interval(43200), 64800 => format_interval(64800), 86400 => format_interval(86400), 172800 => format_interval(172800), 259200 => format_interval(259200), 604800 => format_interval(604800));
|
||||
$output .= form_select(t("Auto-throttle cron test"), "statistics_throttle_cron_timer", variable_get("statistics_throttle_cron_timer", 10800), $period, "Throttle tuning. Specify how often cron should drop the thottle level (if up) to test server load. Requires cron.");
|
||||
return $output;
|
||||
}
|
||||
|
||||
|
||||
/* This displays admin oriented "Throttle status" block */
|
||||
function throttle_display_throttle_block() {
|
||||
global $recent_activity;
|
||||
|
||||
if (user_access("access throttle block")) {
|
||||
if (variable_get("statistics_enable_auto_throttle", 0)) {
|
||||
/* the throttle is enabled: display the status of all throttle config */
|
||||
if (function_exists("throttle_status")) {
|
||||
$throttle = throttle_status();
|
||||
}
|
||||
else {
|
||||
$throttle = 0;
|
||||
}
|
||||
$multiplier = variable_get("statistics_throttle_multiplier", 60);
|
||||
$minimum = $throttle * $multiplier;
|
||||
$limiter = variable_get("statistics_probability_limiter", 9);
|
||||
/* calculate probability limiter's odds of updating throttle */
|
||||
$probability = substr((($limiter / ($limiter + 1) * 100) - 100) * -1, 0, 4);
|
||||
|
||||
$output .= "Throttle: ". l("Enabled", array("mod" => "system"), "admin", "statistics") ."<br />\n";
|
||||
if ($throttle < 5) {
|
||||
$maximum = (($throttle + 1) * $multiplier) - 1;
|
||||
$output .= "Current Level: $throttle ($minimum - $maximum)<br />\n";
|
||||
}
|
||||
else {
|
||||
$output .= "Current Level: $throttle ($minimum+)<br />\n";
|
||||
}
|
||||
$output .= "Probability: $probability%<br />\n";
|
||||
if ($recent_activity["hits"]) {
|
||||
$output .= "<br />This site has served ";
|
||||
$output .= format_plural($recent_activity["hits"] , " page", " pages");
|
||||
$output .= " in the past minute.";
|
||||
}
|
||||
}
|
||||
else {
|
||||
$output .= "Throttle: ". l("Disabled", array("mod" => "system"), "admin", "statistics") ."<br />\n";
|
||||
}
|
||||
}
|
||||
return $output;
|
||||
}
|
||||
|
||||
/* Block hook */
|
||||
function throttle_block() {
|
||||
|
||||
$block[0]["subject"] = "Throttle status";
|
||||
$block[0]["content"] = throttle_display_throttle_block();
|
||||
$block[0]["info"] = "Throttle status";
|
||||
|
||||
return $block;
|
||||
}
|
||||
|
||||
?>
|
||||
|
|
@ -89,6 +89,20 @@ function user_load($array = array()) {
|
|||
}
|
||||
|
||||
function user_save($account, $array = array()) {
|
||||
|
||||
/*
|
||||
** Validate input fields to make sure users don't submit
|
||||
** invalid form data.
|
||||
*/
|
||||
|
||||
if (!user_access("administer users")) {
|
||||
if (array_intersect(array_keys($array), array("rid", "init", "rating", "session"))) {
|
||||
watchdog("warning", "detected malicious attempt to alter a protected user field");
|
||||
}
|
||||
|
||||
unset($array["rid"], $array["init"], $array["rating"], $array["session"]);
|
||||
}
|
||||
|
||||
/*
|
||||
** Dynamically compose a SQL query:
|
||||
*/
|
||||
|
|
@ -344,32 +358,9 @@ function user_block() {
|
|||
$block[1]["info"] = t("Log in");
|
||||
$block[1]["link"] = drupal_url(array("mod" => "user"), "module");
|
||||
|
||||
$result = db_query("SELECT uid, name FROM users WHERE timestamp > %d - %d ORDER BY timestamp DESC", time(), 30 * 60);
|
||||
|
||||
if (db_num_rows($result)) {
|
||||
$output = "";
|
||||
while ($account = db_fetch_object($result)) {
|
||||
$output .= lm((strlen($account->name) > 15 ? substr($account->name, 0, 15) . '...' : $account->name), array("mod" => "user", "op" => "view", "id" => $account->uid)) ."<br />";
|
||||
}
|
||||
$block[2]["content"] = $output;
|
||||
}
|
||||
$block[2]["subject"] = t("Who's online");
|
||||
$block[2]["info"] = t("Who's online");
|
||||
$block[3]["subject"] = t("Who's new");
|
||||
$block[3]["info"] = t("Who's new");
|
||||
$block[3]["content"] = user_new_users();
|
||||
|
||||
return $block;
|
||||
}
|
||||
|
||||
function user_new_users() {
|
||||
$result = db_query("SELECT uid, name FROM users WHERE status != '0' ORDER BY uid DESC LIMIT 5");
|
||||
while ($account = db_fetch_object($result)) {
|
||||
$output .= lm((strlen($account->name) > 15 ? substr($account->name, 0, 15) . '...' : $account->name), array("mod" =>user, "op" => "view", "id" => $account->uid)) ."<br />";
|
||||
}
|
||||
return $output;
|
||||
}
|
||||
|
||||
function user_link($type) {
|
||||
if ($type == "page") {
|
||||
$links[] = lm(t("user account"), array("mod" => "user"), "", array("title" => t("Create a user account, request a new password or edit your account settings.")));
|
||||
|
|
@ -899,21 +890,6 @@ function user_edit($edit = array()) {
|
|||
}
|
||||
unset($edit["pass1"], $edit["pass2"]);
|
||||
|
||||
/*
|
||||
** Validate input fields to make sure users don't submit
|
||||
** invalid form data.
|
||||
*/
|
||||
|
||||
if (!user_access("administer users")) {
|
||||
if (array_intersect(array_keys($edit), array("rid", "init", "rating", "session"))) {
|
||||
watchdog("warning", "detected malicious attempt to alter a protected database field");
|
||||
}
|
||||
|
||||
$edit["rid"] = $user->rid;
|
||||
$edit["init"] = $user->init;
|
||||
$edit["rating"] = $user->rating;
|
||||
$edit["session"] = $user->session;
|
||||
}
|
||||
|
||||
if (!$error) {
|
||||
/*
|
||||
|
|
|
|||
|
|
@ -89,6 +89,20 @@ function user_load($array = array()) {
|
|||
}
|
||||
|
||||
function user_save($account, $array = array()) {
|
||||
|
||||
/*
|
||||
** Validate input fields to make sure users don't submit
|
||||
** invalid form data.
|
||||
*/
|
||||
|
||||
if (!user_access("administer users")) {
|
||||
if (array_intersect(array_keys($array), array("rid", "init", "rating", "session"))) {
|
||||
watchdog("warning", "detected malicious attempt to alter a protected user field");
|
||||
}
|
||||
|
||||
unset($array["rid"], $array["init"], $array["rating"], $array["session"]);
|
||||
}
|
||||
|
||||
/*
|
||||
** Dynamically compose a SQL query:
|
||||
*/
|
||||
|
|
@ -344,32 +358,9 @@ function user_block() {
|
|||
$block[1]["info"] = t("Log in");
|
||||
$block[1]["link"] = drupal_url(array("mod" => "user"), "module");
|
||||
|
||||
$result = db_query("SELECT uid, name FROM users WHERE timestamp > %d - %d ORDER BY timestamp DESC", time(), 30 * 60);
|
||||
|
||||
if (db_num_rows($result)) {
|
||||
$output = "";
|
||||
while ($account = db_fetch_object($result)) {
|
||||
$output .= lm((strlen($account->name) > 15 ? substr($account->name, 0, 15) . '...' : $account->name), array("mod" => "user", "op" => "view", "id" => $account->uid)) ."<br />";
|
||||
}
|
||||
$block[2]["content"] = $output;
|
||||
}
|
||||
$block[2]["subject"] = t("Who's online");
|
||||
$block[2]["info"] = t("Who's online");
|
||||
$block[3]["subject"] = t("Who's new");
|
||||
$block[3]["info"] = t("Who's new");
|
||||
$block[3]["content"] = user_new_users();
|
||||
|
||||
return $block;
|
||||
}
|
||||
|
||||
function user_new_users() {
|
||||
$result = db_query("SELECT uid, name FROM users WHERE status != '0' ORDER BY uid DESC LIMIT 5");
|
||||
while ($account = db_fetch_object($result)) {
|
||||
$output .= lm((strlen($account->name) > 15 ? substr($account->name, 0, 15) . '...' : $account->name), array("mod" =>user, "op" => "view", "id" => $account->uid)) ."<br />";
|
||||
}
|
||||
return $output;
|
||||
}
|
||||
|
||||
function user_link($type) {
|
||||
if ($type == "page") {
|
||||
$links[] = lm(t("user account"), array("mod" => "user"), "", array("title" => t("Create a user account, request a new password or edit your account settings.")));
|
||||
|
|
@ -899,21 +890,6 @@ function user_edit($edit = array()) {
|
|||
}
|
||||
unset($edit["pass1"], $edit["pass2"]);
|
||||
|
||||
/*
|
||||
** Validate input fields to make sure users don't submit
|
||||
** invalid form data.
|
||||
*/
|
||||
|
||||
if (!user_access("administer users")) {
|
||||
if (array_intersect(array_keys($edit), array("rid", "init", "rating", "session"))) {
|
||||
watchdog("warning", "detected malicious attempt to alter a protected database field");
|
||||
}
|
||||
|
||||
$edit["rid"] = $user->rid;
|
||||
$edit["init"] = $user->init;
|
||||
$edit["rating"] = $user->rating;
|
||||
$edit["session"] = $user->session;
|
||||
}
|
||||
|
||||
if (!$error) {
|
||||
/*
|
||||
|
|
|
|||
30
update.php
30
update.php
|
|
@ -52,7 +52,8 @@ $mysql_updates = array(
|
|||
"2002-08-19" => "update_37",
|
||||
"2002-08-26" => "update_38",
|
||||
"2002-09-15" => "update_39",
|
||||
"2002-09-17" => "update_40"
|
||||
"2002-09-17" => "update_40",
|
||||
"2002-10-13" => "update_41"
|
||||
);
|
||||
|
||||
// Update functions
|
||||
|
|
@ -588,6 +589,33 @@ function update_40() {
|
|||
}
|
||||
}
|
||||
|
||||
function update_41() {
|
||||
if (db_result(db_query("SELECT COUNT(daycount) FROM statistics;")) > 0) {
|
||||
// NOTE: "daycount" is a newly introduced field so we use that to determine whether we need to wipe the tables.
|
||||
|
||||
update_sql("DROP TABLE IF EXISTS statistics;");
|
||||
update_sql("CREATE TABLE statistics (
|
||||
nid int(11) NOT NULL,
|
||||
totalcount bigint UNSIGNED DEFAULT '0' NOT NULL,
|
||||
daycount mediumint UNSIGNED DEFAULT '0' NOT NULL,
|
||||
timestamp int(11) UNSIGNED DEFAULT '0' NOT NULL,
|
||||
PRIMARY KEY (nid),
|
||||
INDEX (totalcount),
|
||||
INDEX (daycount),
|
||||
INDEX (timestamp)
|
||||
);");
|
||||
|
||||
update_sql("DROP TABLE IF EXISTS accesslog;");
|
||||
update_sql("CREATE TABLE accesslog (
|
||||
nid int(11) UNSIGNED DEFAULT '0',
|
||||
url varchar(255),
|
||||
hostname varchar(128),
|
||||
uid int(10) UNSIGNED DEFAULT '0',
|
||||
timestamp int(11) UNSIGNED NOT NULL
|
||||
);");
|
||||
}
|
||||
}
|
||||
|
||||
function update_upgrade3() {
|
||||
update_sql("INSERT INTO system VALUES ('archive.module','archive','module','',1);");
|
||||
update_sql("INSERT INTO system VALUES ('block.module','block','module','',1);");
|
||||
|
|
|
|||
Loading…
Reference in New Issue