qhoxie: recent views tweaks

(merged from branches/gsoc)


git-svn-id: svn://svn.silverstripe.com/silverstripe/open/modules/sapphire/trunk@42101 467b73ca-7a2a-4603-9d3b-597d59a354a9
This commit is contained in:
Ingo Schommer 2007-09-16 15:43:22 +00:00
parent f512d02af7
commit 59bc3f83db

View File

@ -16,7 +16,7 @@ class Statistics extends Controller {
{ {
$top = <<<END $top = <<<END
<div id="trendchart"> <div id="trendchart" style="display: none">
<h2>Trends</h2> <h2>Trends</h2>
<div><canvas id="chart" height="400" width="700"></canvas></div> <div><canvas id="chart" height="400" width="700"></canvas></div>
<div id="chart_legend"><legend>Legend</legend></div> <div id="chart_legend"><legend>Legend</legend></div>
@ -143,8 +143,9 @@ END;
static function UserRecordTable() { static function UserRecordTable() {
$records = DataObject::get('Member'); $records = DataObject::get('Member');
$top = <<<END $top = <<<END
<div id="usertable"> <div id="usertable" style="display: none">
<h2>Registered Users</h2> <h2>Registered Users</h2>
<p><a href="$baseURL/admin/statistics/usercsv">Export as CSV</a></p>
<table class="sortable-onload-1 rowstyle-alt no-arrow paginate-10 statstable" border="0" cellspacing="1" cellpadding="0"> <table class="sortable-onload-1 rowstyle-alt no-arrow paginate-10 statstable" border="0" cellspacing="1" cellpadding="0">
<thead> <thead>
<tr><th class="sortable-numeric">ID</th><th class="sortable-text">Email</th><th class="sortable-sortDatetime">Joined</th></tr> <tr><th class="sortable-numeric">ID</th><th class="sortable-text">Email</th><th class="sortable-sortDatetime">Joined</th></tr>
@ -177,9 +178,9 @@ END;
static function getRecentViews($limit = 15) { static function getRecentViews($limit = 15) {
$records = DataObject::get('PageView', null, 'Created DESC', null, $limit); $records = DataObject::get('PageView', null, 'Created DESC', null, $limit);
$top = <<<END $top = <<<END
<div id="viewtable"> <div id="recentviewtable">
<h2>Recent Page Views</h2> <h2>Recent Page Views</h2>
<table class="sortable-onload-1 rowstyle-alt no-arrow paginate-10 statstable" border="0" cellspacing="0" cellpadding="0"> <table class="sortable-onload-1 rowstyle-alt no-arrow paginate-10 statstable" border="0" cellspacing="1" cellpadding="0">
<thead> <thead>
<tr><th class="sortable-numeric">ID</th><th class="sortable-sortDatetime">Time</th><th class="sortable-text">Browser</th><th class="sortable-text">OS</th><th>User</th><th class="sortable-text">Page</th></tr> <tr><th class="sortable-numeric">ID</th><th class="sortable-sortDatetime">Time</th><th class="sortable-text">Browser</th><th class="sortable-text">OS</th><th>User</th><th class="sortable-text">Page</th></tr>
</thead> </thead>
@ -255,8 +256,9 @@ END;
$records = DataObject::get('PageView'); $records = DataObject::get('PageView');
} }
$top = <<<END $top = <<<END
<div id="viewtable"> <div id="viewtable" style="display: none">
<h2>Page Views</h2> <h2>Page Views</h2>
<p><a href="$baseURL/admin/statistics/viewcsv">Export as CSV</a></p>
<table class="sortable-onload-1 rowstyle-alt no-arrow paginate-10 statstable" border="0" cellspacing="1" cellpadding="0"> <table class="sortable-onload-1 rowstyle-alt no-arrow paginate-10 statstable" border="0" cellspacing="1" cellpadding="0">
<thead> <thead>
<tr><th class="sortable-numeric">ID</th><th class="sortable-sortDatetime">Time</th><th class="sortable-text">Browser</th><th class="sortable-text">OS</th><th class="sortable-text">User</th><th class="sortable-text">Page</th></tr> <tr><th class="sortable-numeric">ID</th><th class="sortable-sortDatetime">Time</th><th class="sortable-text">Browser</th><th class="sortable-text">OS</th><th class="sortable-text">User</th><th class="sortable-text">Page</th></tr>
@ -284,7 +286,7 @@ END;
static function BrowserChart($type = "Pie", $color = "blue") { static function BrowserChart($type = "Pie", $color = "blue") {
$top = <<<END $top = <<<END
<div id="browserchart"> <div id="browserchart" style="display: none">
<h2>Browsers</h2> <h2>Browsers</h2>
<div><canvas id="bchart" height="400" width="700"></canvas></div> <div><canvas id="bchart" height="400" width="700"></canvas></div>
</div> </div>
@ -347,7 +349,7 @@ END;
static function OSChart($type = "Pie", $color = "blue") { static function OSChart($type = "Pie", $color = "blue") {
$top = <<<END $top = <<<END
<div id="oschart"> <div id="oschart" style="display: none">
<h2>Operating Systems</h2> <h2>Operating Systems</h2>
<div><canvas id="ochart" height="400" width="700"></canvas></div> <div><canvas id="ochart" height="400" width="700"></canvas></div>
</div> </div>
@ -410,7 +412,7 @@ END;
static function ActivityChart($type = "Pie", $color = "blue") { static function ActivityChart($type = "Pie", $color = "blue") {
$top = <<<END $top = <<<END
<div id="uacchart"> <div id="uacchart" style="display: none">
<h2>User Activity</h2> <h2>User Activity</h2>
<div><canvas id="uchart" height="400" width="700"></canvas></div> <div><canvas id="uchart" height="400" width="700"></canvas></div>
</div> </div>
@ -474,6 +476,79 @@ END;
return $top . $ds . "\n};\n\n" . $opts . "\n\n" . $bot; return $top . $ds . "\n};\n\n" . $opts . "\n\n" . $bot;
} }
static function getViewCSV($time = 'all') {
$data = "ID, ClassName, Created, LastEdited, Browser, FromExternal, Referrer, SearchEngine, Keywords, OS, PageID, UserID, BrowserVersion, IP\n";
switch($time) {
case 'all':
$records = DataObject::get('PageView');
break;
case 'year':
$pt = time() - 31556926;
$pt = date("Y-m-d H:i:s", $pt);
$ct = time() + 10;
$ct = date("Y-m-d H:i:s", $ct);
$records = DataObject::get('PageView', "Created >= '$pt' AND Created <= '$ct'");
break;
case 'month':
$pt = time() - 2629744;
$pt = date("Y-m-d H:i:s", $pt);
$ct = time() + 10;
$ct = date("Y-m-d H:i:s", $ct);
$records = DataObject::get('PageView', "Created >= '$pt' AND Created <= '$ct'");
break;
case 'week':
$pt = time() - 604800;
$pt = date("Y-m-d H:i:s", $pt);
$ct = time() + 10;
$ct = date("Y-m-d H:i:s", $ct);
$records = DataObject::get('PageView', "Created >= '$pt' AND Created <= '$ct'");
break;
case 'day':
$pt = time() - 86400;
$pt = date("Y-m-d H:i:s", $pt);
$ct = time() + 10;
$ct = date("Y-m-d H:i:s", $ct);
$records = DataObject::get('PageView', "Created >= '$pt' AND Created <= '$ct'");
break;
case 'hour':
$pt = time() - 3600;
$pt = date("Y-m-d H:i:s", $pt);
$ct = time() + 10;
$ct = date("Y-m-d H:i:s", $ct);
$records = DataObject::get('PageView', "Created >= '$pt' AND Created <= '$ct'");
break;
case 'minute':
$pt = time() - 60;
$pt = date("Y-m-d H:i:s", $pt);
$ct = time() + 10;
$ct = date("Y-m-d H:i:s", $ct);
$records = DataObject::get('PageView', "Created >= '$pt' AND Created <= '$ct'");
break;
default:
$records = DataObject::get('PageView');
}
foreach($records as $x) {
$r = $x->toMap();
$data .= implode(', ', $r) . "\n";
}
return $data;
}
static function getUserCSV() {
$data = "ID, ClassName, Created, LastEdited, FirstName, Surname, Email, Password, NumVisit, LastVisited, Bounced, AutoLoginHash, AutoLoginExpired, BlacklistedEmail, RememberLoginToken, IdentityURL, PasswordEncryption, Salt\n";
$records = DataObject::get('Member');
foreach($records as $x) {
$r = $x->toMap();
$data .= implode(', ', $r) . "\n";
}
return $data;
}
} }
?> ?>