$text\n"; # # XXX these blanks look bad in lynx, but add required # spacing between menu and body # echo "   \n"; echo " \n"; } echo "\n"; echo "\n"; echo " \n"; echo " \n"; echo "

\n"; echo " \n"; echo " \n"; echo " \n"; WRITESIDEBARSUBBUTTON("View NS File and Assignment", "shownsfile.php3?pid=$exp_pid&eid=$exp_eid"); WRITESIDEBARSUBBUTTON("Terminate this experiment", "endexp.php3?pid=$exp_pid&eid=$exp_eid"); # Swap option. $expstate = TBExptState($exp_pid, $exp_eid); if ($expstate) { if (strcmp($expstate, $TB_EXPTSTATE_SWAPPED) == 0) { WRITESIDEBARSUBBUTTON("Swap this Experiment in", "swapexp.php3?inout=in&pid=$exp_pid&eid=$exp_eid"); } elseif (strcmp($expstate, $TB_EXPTSTATE_ACTIVE) == 0) { WRITESIDEBARSUBBUTTON("Swap this Experiment out", "swapexp.php3?inout=out&pid=$exp_pid&eid=$exp_eid"); } } # # Admin folks get a swap request link to send email. # if (ISADMIN($uid)) { WRITESIDEBARSUBBUTTON("Send a swap/terminate request", "request_swapexp.php3?&pid=$exp_pid&eid=$exp_eid"); } echo " Experiment Options \n"; echo "

\n"; # # Dump experiment record. # SHOWEXP($exp_pid, $exp_eid); echo "

\n"; # # Dump the node information. # SHOWNODES($exp_pid, $exp_eid); # # Standard Testbed Footer # PAGEFOOTER(); ?>