id>$nresults";
}
function sched_log_name($x) {
if ($x == 0) return "NO_SUCH_LOG";
return gmdate('Y-m-d_H/Y-m-d_H:i', $x) . ".txt";
}
function sched_log_link($x) {
return "" . time_str($x) . "";
}
function location_form($host) {
$none = "selected";
$h=$w=$s="";
if ($host->venue == "home") $h = "selected";
if ($host->venue == "work") $w = "selected";
if ($host->venue == "school") $s = "selected";
$x = "
";
return $x;
}
function show_host($host, $private, $ipprivate, $user) {
start_table();
row1("Computer information");
if ($private) {
if ($ipprivate) {
row2("IP address", "$host->last_ip_addr
(same the last $host->nsame_ip_addr times)");
if (strcmp($host->last_ip_addr, $host->external_ip_addr)) row2("External IP address", $host->external_ip_addr);
} else {
row2("IP address", "id&ipprivate=1>Show IP address");
}
row2("Domain name", $host->domain_name);
$x = $host->timezone/3600;
if ($x >= 0) $x="+$x";
row2("Local Standard Time", "UTC $x hours");
}
if ($private) {
row2("Name", $host->domain_name);
}
if (!$private) {
$user = lookup_user_id($host->userid);
if ($user && $user->show_hosts) {
row2("Owner", user_links($user));
} else {
row2("Owner", "Anonymous");
}
}
row2("Created", time_str($host->create_time));
row2("Total Credit", format_credit($host->total_credit));
row2("Recent average credit", format_credit($host->expavg_credit));
row2("CPU type", "$host->p_vendor
$host->p_model");
row2("Number of CPUs", $host->p_ncpus);
row2("Operating System", "$host->os_name
$host->os_version");
$x = $host->m_nbytes/(1024*1024);
$y = round($x, 2);
row2("Memory", "$y MB");
$x = $host->m_cache/1024;
$y = round($x, 2);
row2("Cache", "$y KB");
if ($private) {
$x = $host->m_swap/(1024*1024);
$y = round($x, 2);
row2("Swap space", "$y MB");
$x = $host->d_total/(1024*1024*1024);
$y = round($x, 2);
row2("Total disk space", "$y GB");
$x = $host->d_free/(1024*1024*1024);
$y = round($x, 2);
row2("Free Disk Space", "$y GB");
}
$x = $host->p_fpops/(1000*1000);
$y = round($x, 2);
row2("Measured floating point speed", "$y million ops/sec");
$x = $host->p_iops/(1000*1000);
$y = round($x, 2);
row2("Measured integer speed", "$y million ops/sec");
$x = $host->n_bwup/(1024);
$y = round($x, 2);
if ($y > 0) {
row2("Average upload rate", "$y KB/sec");
} else {
row2("Average upload rate", "Unknown");
}
$x = $host->n_bwdown/(1024);
$y = round($x, 2);
if ($y > 0) {
row2("Average download rate", "$y KB/sec");
} else {
row2("Average download rate", "Unknown");
}
$x = $host->avg_turnaround/86400;
row2("Average turnaround time", round($x, 2)." days");
$mrd= $host->max_results_day;
row2("Maximum daily WU quota per CPU", $mrd."/day");
$config = get_config();
if (parse_bool($config, "show_results")) {
$nresults = host_nresults($host);
if ($nresults) {
$results = "id>$nresults";
} else {
$results = "0";
}
row2("Results", $results);
}
if ($private) {
row2("Number of times client has contacted server", $host->rpc_seqno);
row2("Last time contacted server", sched_log_link($host->rpc_time));
row2("% of time BOINC client is running", 100*$host->on_frac." %");
if ($host->connect_frac > 0) {
row2("While BOINC running, % of time host has an Internet connection", 100*$host->connected_frac." %");
}
row2("While BOINC running, % of time work is allowed", 100*$host->active_frac." %");
if ($host->cpu_efficiency) {
row2("Average CPU efficiency", $host->cpu_efficiency);
}
if ($host->duration_correction_factor) {
row2("Result duration correction factor", $host->duration_correction_factor);
}
row2("Location", location_form($host));
if ($nresults == 0) {
$x = " | id".url_tokens($user->authenticator).">Delete this host ";
} else {
$x = "";
}
row2("Click to", "id>merge this computer $x");
//row2("Click to", "id>recompute credit");
}
echo "\n";
}
// the following is used for list of top hosts
//
function top_host_table_start($sort_by) {
start_table();
echo "";
echo "Computer ID
Click for more info | \n";
echo "Rank | ";
echo "Owner | \n";
if ($sort_by == 'total_credit') {
echo "
Recent average credit |
Total credit |
";
} else {
echo "
Recent average credit |
Total credit |
";
}
echo "
CPU type |
Operating system |
";
}
function host_nresults($host) {
$result = mysql_query("select count(*) as nresults from result where hostid=$host->id");
$foobar = mysql_fetch_object($result);
return $foobar->nresults;
}
// If private is true, we're showing the host to its owner,
// so it's OK to show the domain name etc.
// If private is false, show the owner's name only if they've given permission
//
function show_host_row($host, $i, $private, $show_owner) {
$result = mysql_query("select * from user where id = $host->userid");
$user = mysql_fetch_object($result);
mysql_free_result($result);
echo "| ", host_link($host->id), " | \n";
if ($private) {
echo " $host->domain_name";
} else {
echo " | $i | \n
";
if ($show_owner) {
if ($user->show_hosts) {
echo "", user_links($user), " | \n";
} else {
echo "Anonymous | \n";
}
}
}
if ($show_owner) {
// This is used in the TOP COMPUTERS display
//
printf("
%s |
%s |
%s
%s |
%s
%s | ",
format_credit($host->expavg_credit), format_credit($host->total_credit),
$host->p_vendor, $host->p_model,
$host->os_name, $host->os_version
);
} else {
// This is used in constructing list of COMPUTERS for a given user
//
$config = get_config();
if (parse_bool($config, "show_results")) {
$ltr="".link_to_results($host)." | ";
} else {
$ltr="";
}
printf("
%s |
%s |
%s
%s |
%s
%s |
%s
%s | ",
format_credit($host->expavg_credit), format_credit($host->total_credit),
$host->p_vendor, $host->p_model,
$host->os_name, $host->os_version, $ltr, sched_log_link($host->rpc_time)
);
}
//$nresults = host_nresults($host);
//echo "id>$nresults | ";
echo "
\n";
}
// return true iff it's possible that the hosts are actually
// the same machine
//
function ghz($x) {
$y = explode(" ", $x);
foreach ($y as $z) {
if (strstr($z, "GHz")) return $z;
}
}
// return true if it's possible that the two host records
// correspond to the same host
//
function hosts_compatible($host1, $host2) {
// we screwed around with Intel processor names,
// so count them as compatible if both contain "Intel" and "Pentium",
// and don't have conflicting clock rate info
$p1 = "$host1->p_vendor $host1->p_model";
$p2 = "$host2->p_vendor $host2->p_model";
if (strstr($p1, "Pentium") && strstr($p1, "Intel")
&& strstr($p2, "Pentium") && strstr($p2, "Intel")
) {
$g1 = ghz($p1);
$g2 = ghz($p2);
if ($g1 && $g2) {
if ($g1 != $g2) return false;
} else {
return false;
}
} else {
if ($host2->p_vendor != $host1->p_vendor) return false;
$pos = strpos($host1->p_model, '[');
$host1pm = $host1->p_model;
if($pos !== FALSE) {
$host1pm = trim(substr($host1->p_model, 0, $pos));
}
$pos = strpos($host2->p_model, '[');
$host2pm = $host2->p_model;
if($pos !== FALSE) {
$host2pm = trim(substr($host2->p_model, 0, $pos));
}
if($host2pm != $host1pm) return false;
}
if ($host2->os_name != $host1->os_name) return false;
// one host must strictly precede the other
if ($host1->rpc_time < $host2->create_time) return true;
if ($host2->rpc_time < $host1->create_time) return true;
return false;
}
// recompute host's average credit by scanning results.
// Could be expensive if lots of results!
//
function host_update_credit($hostid) {
$total = 0;
$avg = 0;
$avg_time = 0;
$r = mysql_query("select * from result where hostid=$hostid order by received_time");
while ($result = mysql_fetch_object($r)) {
if ($result->granted_credit <= 0) continue;
$total += $result->granted_credit;
update_average(
$result->received_time,
$result->sent_time,
$result->granted_credit,
$avg,
$avg_time
);
echo "
$avg\n";
}
mysql_free_result($r);
// do a final decay
//
$now = time();
update_average(now, 0, 0, $avg, $avg_time);
mysql_query("update host set total_credit=$total, expavg_credit=$avg, expavg_time=$now where id=$hostid");
}
// decay a host's average credit
//
function host_decay_credit($host) {
$avg = $host->expavg_credit;
$avg_time = $host->expavg_time;
$now = time(0);
update_average($now, 0, 0, $avg, $avg_time);
mysql_query("update host set expavg_credit=$avg, expavg_time=$now where id=$host->id");
}
// if the host hasn't received new credit for ndays,
// decay its average and return true
//
function host_inactive_ndays($host, $ndays) {
$diff = time() - $host->expavg_time;
if ($diff > $ndays*86400) {
host_decay_credit($host);
return true;
}
return false;
}
?>