|
PID |
EID |
PCs [1] |
Hours Idle [2] | \n";
if ($showlastlogin)
echo "Last Login | \n";
if ($idle) {
#echo "Swap Requests | \n";
echo "Swap Requests | \n";
}
echo "
Description |
Head UID |
\n";
while ($row = mysql_fetch_array($experiments_result)) {
$pid = $row["pid"];
$eid = $row["eid"];
$huid = $row["expt_head_uid"];
$name = stripslashes($row["expt_name"]);
$date = $row["dshort"];
$state= $row["state"];
$ignore = $row['idle_ignore'];
$idlesec= $row["idlesec"];
$swapreqs = $row["swap_requests"];
$isidle = ($idlesec >= 3600*$idlehours);
$stale = TBGetExptIdleStale($pid,$eid);
$daysidle=0;
$idletime = ($idlesec > 300 ? round($idlesec/3600,1) : 0);
# reset pcs
$pcs=0;
if ($swapreqs && !$isidle) {
$swapreqs = "";
mysql_query("update experiments set swap_requests='' ".
"where pid='$pid' and eid='$eid'");
}
if ($isadmin) {
$swappable= $row["swappable"];
$swapreq=$row["swap_requests"];
$lastswapreq=$row["lastreq"];
if ($lastswapreq > $idletime) {
# My last request was from _before_ it was idle this time
mysql_query("update experiments set swap_requests='' ".
"where pid='$pid' and eid='$eid'");
$swapreq=0;
}
$idlemailinterval = TBGetSiteVar("idle/mailinterval");
# Is it toosoon to send another mail?
$toosoon = ($swapreq>0 && ($lastswapreq < $idlemailinterval));
$lastlogin = "";
if ($lastexpnodelogins = TBExpUidLastLogins($pid, $eid)) {
$daysidle=$lastexpnodelogins["daysidle"];
#if ($idle && $daysidle < 1)
# continue;
$lastlogin .= $lastexpnodelogins["shortdate"] . " " .
"(" . $lastexpnodelogins["uid"] . ")";
} elseif ($state=="active") {
$daysidle=$row["lastswap"];
$lastlogin .= "$date swapin";
}
$lastlogin.=" | \n";
if ($lastlogin==" | \n") { $lastlogin=" | \n"; }
}
if ($idle) {
# If it is ignored, skip it now.
if ($ignore && !$noignore) { continue; }
#$lastlogin .= "$daysidle | \n";
if (isset($perexp_usage["$pid:$eid"]) &&
isset($perexp_usage["$pid:$eid"]["pc"])) {
$pcs = $perexp_usage["$pid:$eid"]["pc"];
}
$foo = "\n";
#$label = "";
# Probably do not need this when we are using stalemark
#if ($stale) { $label .= "stale "; }
# Do not really need this if we are marking ignore with ()
#if ($ignore) { $label .= "ignore "; }
#if (!$swappable) { $label .= "unswap. "; }
#if ($isidle && !$stale && !$ignore && !$toosoon && $pcs) {
# $fooswap = " | ".
# "![](\"redball.gif\") $label | \n" ;
#} else {
# if ($label == "") { $label = " "; }
# $fooswap = "$label | ";
# if (!$pcs) { $foo .= "(no PCs)\n"; }
# else { $foo .=" "; }
#}
if ($swapreq > 0) {
$foo .= "$swapreq sent
".
"(${lastswapreq} hrs ago)\n";
}
#$foo .= "".$fooswap."\n";
if (!$swappable) { $foo .= "unswap.\n"; }
}
if ($idle && (!$pcs || !$isidle)) { continue; }
$nodes = 0;
$special = 0;
reset($perexp_usage);
if (isset($perexp_usage["$pid:$eid"])) {
while (list ($class, $count) = each($perexp_usage["$pid:$eid"])) {
$nodes += $count;
if (strcmp($class, "pc")) {
$special = 1;
} else {
$pcs = $count;
}
# Summary counts for just the experiments in the projects
# the user is a member of.
if (!isset($total_usage[$class]))
$total_usage[$class] = 0;
$total_usage[$class] += $count;
}
}
# in idle or active, skip experiments with no nodes.
if (($idle || $active) && $nodes == 0) { continue; }
if ($nodes==0) { $nodes = " "; }
echo "
| $pid |
$eid | \n";
if ($isidle && !$ignore) { $nodes = $nodes.$idlemark; }
# If multiple classes, then hightlight the number and show pcs/nodes.
if ($special) {
if ($pcs)
echo "$nodes ($pcs) | \n";
else
echo "$nodes | \n";
}
else
echo "$nodes | \n";
if ($idletime == -1) {
$idlestr = " ";
} else {
$idlestr = "$idletime";
# Order between the next two lines determines if the
# stalemark goes inside or outside the parens
if ($stale && $pcs > 0) { $idlestr .= $stalemark; }
if ($ignore && $idletime !=0) {
$idlestr = "($idlestr)";
$parens = 1;
}
}
echo "$idlestr | ";
if ($showlastlogin) echo "$lastlogin\n";
if ($idle) echo "$foo\n";
echo "$name |
$huid |
\n";
}
echo "
\n";
echo "