with proper class plc_peer_block_start ($peer_hash,$peer_id); drupal_set_title("Details for site " . $sitename); // extra privileges to admins, and pi on this site $privileges = plc_is_admin () || ( plc_in_site($site_id) && plc_is_pi()); $tabs=array(); // available actions if ( ! $peer_id && $privileges ) { $tabs['Update']=array('url'=>l_site_update($site_id)); // not avail to PI $tabs['Expire slices'] = array('url'=>l_actions(), 'values'=>array('site_id'=>$site_id, 'action'=>'expire-all-slices-in-site'), 'bubble'=>"Expire all slices and prevent creation of new slices", 'confirm'=>"Suspend all slices in $login_base"); if (plc_is_admin()) $tabs['Delete']=array('url'=>l_actions(), 'values'=>array('site_id'=>$site_id, 'action'=>'delete-site'), 'bubble'=>"Delete site $login_base", 'confirm'=>"Are you sure you want to delete site $login_base"); $tabs["Events"]=array('url'=>l_event("Site","site",$site_id), 'bubble'=>"Events for site $hostname"); $tabs["Comon"]=array('url'=>l_comon("site_id",$site_id), 'buble'=>"Comon page for $hostname"); if (plc_is_admin()) $tabs['Pending'] = array ('url'=>l_sites_pending(), 'bubble'=>'Review pending join requests'); } $tabs["All sites"]=l_sites(); plc_tabs($tabs); if ( ! $enabled ) plc_warning ("This site is not enabled - Please visit " . href (l_sites_pending(),"this page") . " to review pending applications."); plc_details_start(); plc_details_line("Peer",plc_peer_label($peer)); plc_details_line("Full name",$sitename); plc_details_line("Login base",$login_base); plc_details_line("Abbreviated name",$abbrev_name); plc_details_line("URL",$site_url); plc_details_line("Latitude",$site_lat); plc_details_line("Longitude",$site_long); if ( ! $peer_id ) { // Nodes plc_details_space_line(); $nb_boot = 0; if ($nodes) foreach ($nodes as $node) if ($node['boot_state'] == 'boot') $nb_boot ++; $node_text = $nb_boot . " boot / " . count($nodes) . " total"; plc_details_line("# Nodes", href(l_nodes_site($site_id),$node_text)); function n_link ($n) { return l_node_t($n['node_id'],$n['hostname'] . " (" . $n['boot_state'] . ")");} $nodes_text= plc_vertical_table(array_map ("n_link",$nodes)); plc_details_line ("hostnames",$nodes_text); // Users plc_details_space_line(); $user_text = count($person_ids) . " total / " . count ($pis) . " PIs / " . count ($techs) . " techs"; if ( (count ($pis) == 0) || (count ($techs) == 0) || (count($person_ids) >=50)) $user_text = plc_warning_text ($user_text); plc_details_line ("# Users",href(l_persons_site($site_id),$user_text)); function p_link ($p) { return l_person_t($p['person_id'],$p['email']); } // PIs $pi_text = plc_vertical_table (array_map ("p_link",$pis)); plc_details_line("PI's",$pi_text); // PIs $tech_text = plc_vertical_table (array_map ("p_link",$techs)); plc_details_line("techs's",$tech_text); // Slices plc_details_space_line(); // summary on # slices $slice_text = count($slice_ids) . " running / " . $max_slices . " max"; if (count($slice_ids) >= $max_slices) $slice_text = plc_warning_text ($slice_text); plc_details_line("# Slices", href(l_slices_site($site_id),$slice_text)); if ($slices) foreach ($slices as $slice) plc_details_line($slice['instantiation'],l_slice_text($slice)); } plc_details_end(); //////////////////////////////////////// plc_peer_block_end(); // Print footer include 'plc_footer.php'; ?>