TBERROR("Could not start maptoslice: {$safe_query}", 1); } while ($line = fgets($fp)) { $uuidlist[] = rtrim($line); } $status = pclose($fp); if ($status > 0 || !count($uuidlist)) { USERERROR("No slices matching your search term", 1); } elseif ($status < 0) { TBERROR("Could not run maptoslice: {$safe_query}", 1); } foreach ($uuidlist as $uuid) { $slicelist[] = GeniSlice::Lookup($type, $uuid); } } else { $slicelist = GeniSlice::AllSlices($type); } $which = $type == "cm" ? "Component Manager" : ($type == "sa" ? "Slice Authority" : "Clearing House"); if (!$slicelist || !count($slicelist)) { continue; } # The form attributes: $table = array('#id' => $type, '#title' => $which, '#sortable' => 1, '#headings' => array("idx" => "ID", "hrn" => "HRN", "created" => "Created", "expires" => "Expires")); $rows = array(); foreach ($slicelist as $slice) { $slice_idx = $slice->idx(); $slice_hrn = $slice->hrn(); $created = $slice->created(); $expires = $slice->expires(); $url = CreateURL("showslice", "showtype", $type, "slice_idx", $slice_idx); $href = "<a href='{$url}'>{$slice_hrn}</a>";
$user = User::LookupByUUID($slice->creator_uuid()); if ($user) { $url = CreateURL("showuser", $user); $rows[] = array("Creator" => "<a href='{$url}'>" . $user->uid() . "</a>"); } } if ($showtype != "sa") { $saslice = GeniSlice::Lookup("sa", $slice->uuid()); if ($saslice) { $saidx = $saslice->idx(); $url = CreateURL("showslice", "slice_idx", $saidx, "showtype", "sa"); $rows[] = array("SA Slice" => "<a href='{$url}'>{$saidx}</a>"); } } if ($showtype != "cm") { $cmslice = GeniSlice::Lookup("cm", $slice->uuid()); if ($cmslice) { $cmidx = $cmslice->idx(); $url = CreateURL("showslice", "slice_idx", $cmidx, "showtype", "cm"); $rows[] = array("CM Slice" => "<a href='{$url}'>{$cmidx}</a>"); } } list($html, $button) = TableRender($table, $rows); echo $html; $clientslivers = ClientSliver::SliverList($slice); if ($clientslivers && count($clientslivers)) { $table = array('#id' => 'clientslivers', '#title' => "Client Slivers", '#headings' => array("idx" => "ID", "urn" => "URN", "manager" => "Manager URN", "created" => "Created", "manifest" => "Manifest")); $rows = array(); foreach ($clientslivers as $clientsliver) { $row = array("idx" => $clientsliver->idx(), "urn" => $clientsliver->urn(), "manager" => $clientsliver->manager_urn(), "created" => $clientsliver->created()); if ($clientsliver->manifest()) {
function Show($short = 0, $sortby = "") { global $TBDBNAME, $TBDOCBASE, $WIKIDOCURL; $pid = $this->pid(); $eid = $this->eid(); $nodecounts = array(); # Node counts, by class. $query_result = DBQueryFatal("select nt.class,count(*) from reserved as r " . "left join nodes as n on n.node_id=r.node_id " . "left join node_types as nt on n.type=nt.type " . "where pid='{$pid}' and eid='{$eid}' group by nt.class"); while ($row = mysql_fetch_array($query_result)) { $class = $row[0]; $count = $row[1]; $nodecounts[$class] = $count; } $query_result = DBQueryFatal("select e.*, s.archive_idx, pl.slicename, " . "round(e.minimum_nodes+.1,0) as min_nodes, " . "round(e.maximum_nodes+.1,0) as max_nodes " . " from experiments as e " . "left join experiment_stats as s on s.exptidx=e.idx " . "left join plab_slices as pl" . " on e.pid = pl.pid and e.eid = pl.eid " . "where e.pid='{$pid}' and e.eid='{$eid}'"); if (($exprow = mysql_fetch_array($query_result)) == 0) { TBERROR("Experiment {$eid} in project {$pid} is gone!\n", 1); } $exp_gid = $exprow["gid"]; $exp_name = $exprow["expt_name"]; $exp_swapped = $exprow["expt_swapped"]; $exp_swapuid = $exprow["expt_swap_uid"]; $exp_end = $exprow["expt_end"]; $exp_created = $exprow["expt_created"]; $exp_head = $exprow["expt_head_uid"]; $exp_swapper = $exprow["swapper_idx"]; $exp_state = $exprow["state"]; $exp_shared = $exprow["shared"]; $exp_path = $exprow["path"]; $batchmode = $exprow["batchmode"]; $canceled = $exprow["canceled"]; $attempts = $exprow["attempts"]; $expt_locked = $exprow["expt_locked"]; $priority = $exprow["priority"]; $swappable = $exprow["swappable"]; $noswap_reason = $exprow["noswap_reason"]; $idleswap = $exprow["idleswap"]; $idleswap_timeout = $exprow["idleswap_timeout"]; $noidleswap_reason = $exprow["noidleswap_reason"]; $autoswap = $exprow["autoswap"]; $autoswap_timeout = $exprow["autoswap_timeout"]; $idle_ignore = $exprow["idle_ignore"]; $savedisk = $exprow["savedisk"]; $swapreqs = $exprow["swap_requests"]; $lastswapreq = $exprow["last_swap_req"]; $minnodes = $exprow["min_nodes"]; $maxnodes = $exprow["max_nodes"]; $virtnodes = $exprow["virtnode_count"]; $syncserver = $exprow["sync_server"]; $mem_usage = $exprow["mem_usage"]; $cpu_usage = $exprow["cpu_usage"]; $exp_slice = $exprow["slicename"]; $linktest_level = $exprow["linktest_level"]; $linktest_pid = $exprow["linktest_pid"]; $usemodelnet = $exprow["usemodelnet"]; $mnet_cores = $exprow["modelnet_cores"]; $mnet_edges = $exprow["modelnet_edges"]; $lockdown = $exprow["lockdown"]; $skipvlans = $exprow["skipvlans"]; $exptidx = $exprow["idx"]; $archive_idx = $exprow["archive_idx"]; $dpdb = $exprow["dpdb"]; $dpdbname = $exprow["dpdbname"]; $dpdbpassword = $exprow["dpdbpassword"]; $uuid = $exprow["eid_uuid"]; $paniced = $exprow["paniced"]; $panic_date = $exprow["panic_date"]; $autoswap_hrs = $autoswap_timeout / 60.0; $idleswap_hrs = $idleswap_timeout / 60.0; $noswap = "({$noswap_reason})"; $noidleswap = "({$noidleswap_reason})"; $autoswap_str = $autoswap_hrs . " hour" . ($autoswap_hrs == 1 ? "" : "s"); $idleswap_str = $idleswap_hrs . " hour" . ($idleswap_hrs == 1 ? "" : "s"); if (!($head_user = User::Lookup($exp_head))) { TBERROR("Error getting object for user {$exp_head}", 1); } $showuser_url = CreateURL("showuser", $head_user); if (!($swapper = User::Lookup($exp_swapper))) { TBERROR("Error getting object for user {$exp_swapper}", 1); } $swapper_uid = $swapper->uid(); $swapper_url = CreateURL("showuser", $swapper); if ($swappable) { $swappable = "Yes"; } else { $swappable = "<b>No</b> {$noswap}"; } if ($idleswap) { $idleswap = "Yes (after {$idleswap_str})"; } else { $idleswap = "<b>No</b> {$noidleswap}"; } if ($autoswap) { $autoswap = "<b>Yes</b> (after {$autoswap_str})"; } else { $autoswap = "No"; } if ($idle_ignore) { $idle_ignore = "<b>Yes</b>"; } else { $idle_ignore = "No"; } if ($savedisk) { $savedisk = "<b>Yes</b>"; } else { $savedisk = "No"; } if ($expt_locked) { $expt_locked = "({$expt_locked})"; } else { $expt_locked = ""; } $query_result = DBQueryFatal("select cause_desc " . "from experiment_stats as s,errors,causes " . "where s.exptidx = {$exptidx} " . "and errors.cause = causes.cause " . "and s.last_error = errors.session"); if ($row = mysql_fetch_array($query_result)) { $err_cause = $row[0]; } else { $err_cause = ''; } # # Generate the table. # echo "<table align=center border=1>\n"; if (!$short) { $thisurl = CreateURL("showexp", $this); echo "<tr>\n <td>Name: </td>\n <td class=left><a href='{$thisurl}'>{$eid}</a></td>\n </tr>\n"; echo "<tr>\n <td>Description: </td>\n <td class=\"left\">{$exp_name}</td>\n </tr>\n"; echo "<tr>\n <td>Project: </td>\n <td class=\"left\">\n <a href='showproject.php3?pid={$pid}'>{$pid}</a></td>\n </tr>\n"; echo "<tr>\n <td>Group: </td>\n <td class=\"left\">\n <a href='showgroup.php3?pid={$pid}&gid={$exp_gid}'>{$exp_gid}</a>\n </td>\n </tr>\n"; if (isset($exp_slice)) { echo "<tr>\n <td>Planetlab Slice: </td>\n <td class=\"left\">{$exp_slice}</td>\n </tr>\n"; } } echo "<tr>\n <td>Creator: </td>\n <td class=\"left\">\n <a href='{$showuser_url}'>{$exp_head}</a></td>\n </tr>\n"; if (!$swapper->SameUser($head_user)) { echo "<tr>\n <td>Swapper: </td>\n <td class=\"left\">\n <a href='{$swapper_url}'>{$swapper_uid}</a></td>\n </tr>\n"; } if (!$short) { $instance = TemplateInstance::LookupByExptidx($exptidx); if (!is_null($instance)) { $guid = $instance->guid(); $vers = $instance->vers(); echo "<tr>\n <td>Template: </td>\n <td class=\"left\">\n <a href='template_show.php?guid={$guid}&version={$vers}'>\n {$guid}/{$vers}</a>"; if ($instance->runidx()) { $runidx = $instance->runidx(); $runid = $instance->GetRunID($runidx); $url = CreateURL("experimentrun_show", $instance, "runidx", $runidx); echo " (Current Run:\n <a href='{$url}'>{$runid}</a>)</td>"; } else { $runidx = $instance->LastRunIdx(); $runid = $instance->GetRunID($runidx); $url = CreateURL("experimentrun_show", $instance, "runidx", $runidx); echo " (Last Run:\n <a href='{$url}'>{$runid}</a>)</td>"; } echo "</tr>\n"; } echo "<tr>\n <td>Created: </td>\n <td class=\"left\">{$exp_created}</td>\n </tr>\n"; if ($exp_swapped) { echo "<tr>\n <td>Last Swap/Modify: </td>\n <td class=\"left\">{$exp_swapped}\n (<a href='{$swapper_url}'>{$swapper_uid}</a>)</td>\n </tr>\n"; } if (ISADMIN()) { echo "<tr>\n <td><a href='{$WIKIDOCURL}/Swapping#swapping'>Swappable:</a></td>\n <td class=\"left\">{$swappable}</td>\n </tr>\n"; } echo "<tr>\n <td><a href='{$WIKIDOCURL}/Swapping#idleswap'>Idle-Swap:</a></td>\n <td class=\"left\">{$idleswap}</td>\n </tr>\n"; echo "<tr>\n <td><a href='{$WIKIDOCURL}/Swapping#autoswap'>Max. Duration:</a></td>\n <td class=\"left\">{$autoswap}</td>\n </tr>\n"; echo "<tr>\n <td><a href='{$WIKIDOCURL}/Swapping#swapstatesave'>Save State:</a></td>\n <td class=\"left\">{$savedisk}</td>\n </tr>\n"; if (ISADMIN()) { echo "<tr>\n <td>Idle Ignore:</td>\n <td class=\"left\">{$idle_ignore}</td>\n </tr>\n"; } echo "<tr>\n <td>Path: </td>\n <td class=left>{$exp_path}</td>\n </tr>\n"; echo "<tr>\n <td>Status: </td>\n <td id=exp_state class=\"left\">{$exp_state} {$expt_locked}</td>\n </tr>\n"; if ($err_cause) { echo "<tr>\n <td>Last Error: </td>\n <td class=\"left\"><a href=\"showlasterror.php3?pid={$pid}&eid={$eid}\">{$err_cause}</a></td>\n </tr>\n"; } if ($paniced) { echo "<tr>\n <td>Paniced on: </td>\n <td class=left>{$panic_date}</td>\n </tr>\n"; } if ($linktest_pid) { $linktest_running = "<b>(Linktest Running)</b>"; } else { $linktest_running = ""; } echo "<tr>\n <td><a href='{$WIKIDOCURL}/linktest'>" . "Linktest Level</a>: </td>\n <td class=\"left\">{$linktest_level} {$linktest_running}</td>\n </tr>\n"; } if (count($nodecounts)) { echo "<tr>\n <td>Reserved Nodes: </td>\n <td class=\"left\">\n"; while (list($class, $count) = each($nodecounts)) { echo "{$count} ({$class}) "; } echo " </td>\n </tr>\n"; } elseif (!$short) { if ($minnodes != "") { echo "<tr>\n <td>Min/Max Nodes: </td>\n <td class=\"left\"><font color=green>\n {$minnodes}/{$maxnodes} (estimates)</font></td>\n </tr>\n"; } else { echo "<tr>\n <td>Minumum Nodes: </td>\n <td class=\"left\"><font color=green>Unknown</font></td>\n </tr>\n"; } if ($virtnodes) { echo "<tr>\n <td>Virtual Nodes: </td>\n <td class=\"left\"><font>\n {$virtnodes}</font></td>\n </tr>\n"; } else { echo "<tr>\n <td>Virtual Nodes: </td>\n <td class=\"left\"><font color=green>Unknown</font></td>\n </tr>\n"; } } if (!$short) { if ($mem_usage || $cpu_usage) { echo "<tr>\n <td>Mem Usage Est: </td>\n <td class=\"left\">{$mem_usage}</td>\n </tr>\n"; echo "<tr>\n <td>CPU Usage Est: </td>\n <td class=\"left\">{$cpu_usage}</td>\n </tr>\n"; } $lastact = $this->LastAct(); $idletime = $this->IdleTime(); $stale = $this->IdleStale(); if ($lastact != -1) { echo "<tr>\n <td>Last Activity: </td>\n <td class=\"left\">{$lastact}</td>\n </tr>\n"; if ($stale) { $str = "(stale)"; } else { $str = ""; } echo "<tr>\n <td>Idle Time: </td>\n <td class=\"left\">{$idletime} hours {$str}</td>\n </tr>\n"; } if (!($swapreqs == "" || $swapreqs == 0)) { echo "<tr>\n <td>Swap Requests: </td>\n <td class=\"left\">{$swapreqs}</td>\n </tr>\n"; echo "<tr>\n <td>Last Swap Req.: </td>\n <td class=\"left\">{$lastswapreq}</td>\n </tr>\n"; } $lockflip = $lockdown ? 0 : 1; $lockval = $lockdown ? "Yes" : "No"; echo "<tr>\n <td>Locked Down:</td>\n <td>{$lockval} (<a href=toggle.php?pid={$pid}&eid={$eid}" . "&type=lockdown&value={$lockflip}>Toggle</a>)\n </td>\n </tr>\n"; if (ISADMIN() || STUDLY() || OPSGUY()) { $thisflip = $skipvlans ? 0 : 1; $flipval = $skipvlans ? "Yes" : "No"; echo "<tr>\n <td>Skip Vlans:</td>\n <td>{$flipval} (<a href=toggle.php?pid={$pid}&eid={$eid}" . "&type=skipvlans&value={$thisflip}>Toggle</a>)\n </td>\n </tr>\n"; } } if ($batchmode) { echo "<tr>\n <td>Batch Mode: </td>\n <td class=\"left\">Yes</td>\n </tr>\n"; echo "<tr>\n <td>Start Attempts: </td>\n <td class=\"left\">{$attempts}</td>\n </tr>\n"; } if ($canceled) { echo "<tr>\n <td>Cancel Flag: </td>\n <td class=\"left\">{$canceled}</td>\n </tr>\n"; } if (!$short) { if (ISADMIN()) { echo "<tr>\n <td>UUID: </td>\n <td class=left>{$uuid}</td>\n </tr>\n"; } if ($usemodelnet) { echo "<tr>\n <td>Use Modelnet: </td>\n <td class=\"left\">Yes</td>\n </tr>\n"; echo "<tr>\n <td>Modelnet Phys Core Nodes: </td>\n <td class=\"left\">{$mnet_cores}</td>\n </tr>\n"; echo "<tr>\n <td>Modelnet Phys Edge Nodes: </td>\n <td class=\"left\">{$mnet_edges}</td>\n </tr>\n"; } if (isset($syncserver)) { echo "<tr>\n <td>Sync Server: </td>\n <td class=\"left\">{$syncserver}</td>\n </tr>\n"; } if ($dpdb && $dpdbname && $dpdbpassword) { echo "<tr>\n <td>DataBase Name: </td>\n <td class=\"left\">{$dpdbname}</td>\n </tr>\n"; echo "<tr>\n <td>DataBase User: </td>\n <td class=\"left\">E{$exptidx}</td>\n </tr>\n"; echo "<tr>\n <td>DataBase Password: </td>\n <td class=\"left\">{$dpdbpassword}</td>\n </tr>\n"; } echo "<tr>\n <td>Index: </td>\n <td class=\"left\">{$exptidx}"; if ($archive_idx) { echo " ({$archive_idx}) "; } echo " </td>\n </tr>\n"; } if (!$short) { if ($this->geniflags()) { $slice = GeniSlice::Lookup("geni-cm", $uuid); if ($slice) { $slice_hrn = $slice->hrn(); $slice_urn = $slice->urn(); if (ISADMIN()) { $url = CreateURL("showslice", "slice_idx", $slice->idx(), "showtype", "cm"); echo "<tr>\n <td>Geni Slice (CM): </td>\n <td class=\"left\">\n <a href='{$url}'>{$slice_urn}</a></td>\n </tr>\n"; } else { echo "<tr>\n <td>Geni Slice (CM): </td>\n <td class=\"left\">{$slice_urn}</td>\n </tr>\n"; } } } else { $slice = GeniSlice::LookupByExperiment("geni-sa", $this); if ($slice) { $slice_hrn = $slice->hrn(); $slice_urn = $slice->urn(); if (ISADMIN()) { $url = CreateURL("showslice", "slice_idx", $slice->idx(), "showtype", "sa"); echo "<tr>\n <td>Geni Slice (SA): </td>\n <td class=\"left\">\n <a href='{$url}'>{$slice_urn}</a></td>\n </tr>\n"; } else { echo "<tr>\n <td>Geni Slice (SA): </td>\n <td class=\"left\">{$slice_urn}</td>\n </tr>\n"; } $slice = GeniSlice::Lookup("geni-cm", $slice_hrn); if ($slice) { if (ISADMIN()) { $url = CreateURL("showslice", "slice_idx", $slice->idx(), "showtype", "cm"); echo "<tr>\n <td>Geni Slice (CM): </td>\n <td class=\"left\">\n <a href='{$url}'>{$slice_urn}</a></td>\n </tr>\n"; } else { echo "<tr>\n <td>Geni Slice (SA): </td>\n <td class=\"left\">{$slice_urn}</td>\n </tr>\n"; } } } } } echo "</table>\n"; }
function LookupByPublicID($authority, $publicid) { $dblink = GetDBLink($authority); $safeid = addslashes($publicid); if (!$dblink) { return null; } $query_result = DBQueryFatal("select idx from geni_slices " . "where publicid='{$safeid}'", $dblink); if (!($query_result && mysql_num_rows($query_result))) { return null; } $row = mysql_fetch_row($query_result); $idx = $row[0]; return GeniSlice::Lookup($authority, $idx); }
# along with this file. If not, see <http://www.gnu.org/licenses/>. # # }}} # include "defs.php3"; include_once "geni_defs.php"; include "table_defs.php"; # # Public info, if you know the public token for the slice. # $reqargs = RequiredPageArguments("publicid", PAGEARG_STRING); # # Standard Testbed Header # PAGEHEADER("Geni Slice"); $slice = GeniSlice::LookupByPublicID("cm", $publicid); if (!$slice) { USERERROR("No such slice {$publicid}", 1); } $slice_idx = $slice->idx(); function GeneratePopupDiv($id, $text) { return "<div id=\"{$id}\" " . "style='display:none;width:700;height:400;overflow:auto;'>\n" . "{$text}\n" . "</div>\n"; } $manifestidx = 0; # The table attributes: $table = array('#id' => 'form1', '#title' => "Slice {$slice_idx}"); $rows = array(); $popups = array(); $rows[] = array("idx" => $slice->idx()); $rows[] = array("hrn" => $slice->hrn());