mirror of https://github.com/BOINC/boinc.git
71 lines
2.4 KiB
PHP
71 lines
2.4 KiB
PHP
<?php
|
|
// This file is part of BOINC.
|
|
// http://boinc.berkeley.edu
|
|
// Copyright (C) 2008 University of California
|
|
//
|
|
// BOINC is free software; you can redistribute it and/or modify it
|
|
// under the terms of the GNU Lesser General Public License
|
|
// as published by the Free Software Foundation,
|
|
// either version 3 of the License, or (at your option) any later version.
|
|
//
|
|
// BOINC is distributed in the hope that it will be useful,
|
|
// but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
// See the GNU Lesser General Public License for more details.
|
|
//
|
|
// You should have received a copy of the GNU Lesser General Public License
|
|
// along with BOINC. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
require_once("../inc/util_ops.inc");
|
|
|
|
function getSingleQuery($query) {
|
|
$result = mysql_query($query);
|
|
if (!$result) return;
|
|
$cnt = mysql_fetch_row($result);
|
|
if (!$cnt) return;
|
|
mysql_free_result($result);
|
|
return $cnt[0];
|
|
}
|
|
|
|
require_once("../inc/util.inc");
|
|
require_once("../inc/db.inc");
|
|
//require_once("../inc/trickle.inc");
|
|
require_once("../inc/wap.inc");
|
|
|
|
// show the home page of app user from envvar
|
|
|
|
$valid = $_GET['id'];
|
|
if (!$valid || $valid!="whatever-validation-key-you-want") {
|
|
echo "User id (t.php?id=###) missing!";
|
|
exit(); // can't do much without a userid!
|
|
}
|
|
|
|
db_init();
|
|
|
|
wap_begin();
|
|
|
|
// keep a 'running tab' in wapstr in case exceeds 1K WAP limit
|
|
|
|
$wapstr = PROJECT . "<br/>Status Info on<br/>" . wap_timestamp() . "<br/><br/>";
|
|
|
|
$wapstr .= "#Users: " . getSingleQuery("select count(*) from user") . "<br/>";
|
|
$wapstr .= "#Hosts: " . getSingleQuery("select count(*) from host") . "<br/>";
|
|
$wapstr .= "#ModYr: " . sprintf("%ld", getSingleQuery("select sum(total_credit)/(.007*17280.0) from host")) . "<br/>";
|
|
$wapstr .= "#Cobbl: " . sprintf("%ld", getSingleQuery("select sum(total_credit) from host")) . "<br/>";
|
|
// I consider a host active if it's trickled in the last week
|
|
//$wapstr .= "#Activ: " . getSingleQuery("select count(distinct hostid) from cpdnexpt.trickle "
|
|
// . "where trickledate>=" . sprintf("%d", mktime() - (3600*24*7))) . "<br/>";
|
|
|
|
// finally get last 5 trickles for everyone
|
|
//$wapstr .= show_trickles("a", 0, 5, 1);
|
|
|
|
// limit wap output to 1KB
|
|
if (strlen($wapstr)>1024)
|
|
echo substr($wapstr,0,1024);
|
|
else
|
|
echo $wapstr;
|
|
|
|
wap_end();
|
|
|
|
?>
|