Testbed Status
Current Experiments\n";
echo "";
echo "| User | Nodes | ";
echo "
\n";
foreach($exps as $user => $nodelist)
{
echo "";
echo "| $user | $nodelist | ";
echo "
\n";
}
echo "
\n";
}
echo "
Current Node States
\n";
foreach($types as $tid => $type)
{
if($type != "hwcluster") continue;
if(!isset($clusters[$tid])) continue;
echo "$descs[$tid]:
\n";
foreach($clusters[$tid] as $cluster)
{
$cstate = $states[$cluster];
echo "\n";
echo "
\n";
echo "| $cluster |
|---|
\n";
foreach($clustercomps[$cluster] as $node)
{
$nstate = $states[$node];
echo "| $node | $nstate |
\n";
}
echo "
\n";
echo "
\n";
echo "
\n";
}
foreach($types as $tid => $type)
{
if($type != "base")
{
continue;
}
if(!isset($nodes[$tid]))
{
continue;
}
echo "$descs[$tid]:
\n";
echo "\n";
echo "
\n";
$cnt = 0;
foreach($nodes[$tid] as $node)
{
if($marked[$node]) continue;
$nstate = $states[$node];
echo "| $node | $nstate |
\n";
if($cnt % 15 == 14)
{
echo "
\n";
echo "
\n";
echo "
\n";
echo "
\n";
echo "
\n";
echo "
\n";
}
onlclose($db);
?>