planetlab/sites/site.php

   1 <?php
   2
   3   // $Id: index.php 11750 2009-01-29 10:11:53Z thierry $
   4
   5 // Require login
   6 require_once 'plc_login.php';
   7
   8 // Get session and API handles
   9 require_once 'plc_session.php';
  10 global $plc, $api;
  11
  12 // Print header
  13 require_once 'plc_drupal.php';
  14 include 'plc_header.php';
  15
  16 // Common functions
  17 require_once 'plc_functions.php';
  18 require_once 'plc_peers.php';
  19 require_once 'plc_minitabs.php';
  20 require_once 'plc_tables.php';
  21 require_once 'plc_details.php';
  22 require_once 'plc_forms.php';
  23
  24 // --------------------
  25 // recognized URL arguments
  26 $site_id=intval($_GET['id']);
  27 if ( ! $site_id ) { plc_error('Malformed URL - id not set'); return; }
  28
  29 ////////////////////
  30 // Get all columns as we focus on only one entry
  31 $sites= $api->GetSites( array($site_id));
  32
  33 if (empty($sites)) {
  34   drupal_set_message ("Site " . $site_id . " not found");
  35   return;
  36  }
  37
  38 $site=$sites[0];
  39 // var names to api return
  40 $sitename= htmlentities($site['name']);
  41 $abbreviated_name= htmlentities($site['abbreviated_name']);
  42 $site_url= $site['url'];
  43 $login_base= $site['login_base'];
  44 $site_lat= $site['latitude'];
  45 $site_long= $site['longitude'];
  46 $max_slivers= $site['max_slivers'];
  47 $max_slices= $site['max_slices'];
  48
  49 $enabled = $site['enabled'];
  50
  51 // extra privileges to admins, and (pi||tech) on this site
  52 $privileges = plc_is_admin () || ( plc_in_site($site_id) && ( plc_is_pi() || plc_is_tech()));
  53
  54 // get peer details
  55 $peer_id= $site['peer_id'];
  56 $peers = new Peers ($api);
  57
  58 $adress_ids= $site['address_ids'];
  59 $pcu_ids= $site['pcu_ids'];
  60 $node_ids= $site['node_ids'];
  61 $person_ids= $site['person_ids'];
  62 $slice_ids= $site['slice_ids'];
  63
  64 $api->begin();
  65 // gets address info
  66 $api->GetAddresses( $adress_ids );
  67
  68 // gets pcu info
  69 // GetPCUs is not accessible to the 'user' role
  70 //$api->GetPCUs( $pcu_ids );
  71
  72 // gets node info
  73 $api->GetNodes( $node_ids, array( "node_id", "hostname", "boot_state" ) );
  74
  75 // gets person info
  76 $api->GetPersons( $person_ids, array( "role_ids", "person_id", "first_name", "last_name", "email", "enabled" ) );
  77
  78 $api->GetSlices ( $slice_ids, array ("slice_id", "name", "instantiation" ) );
  79
  80 //list( $addresses, $pcus, $nodes, $persons, $slices )= $api->commit();
  81 list( $addresses, $nodes, $persons, $slices )= $api->commit();
  82
  83 $techs = array();
  84 $pis = array();
  85 $disabled_persons = array();
  86 foreach( $persons as $person ) {
  87   $role_ids= $person['role_ids'];
  88
  89   if ( in_array( '20', $role_ids ))     $pis[] = $person;
  90   if ( in_array( '40', $role_ids ))     $techs[] = $person;
  91   if ( ! $person['enabled'] )           $disabled_persons[] = $person;
  92
  93 }
  94
  95 drupal_set_title("Details for site " . $sitename);
  96 $local_peer = ! $peer_id;
  97
  98 // extra privileges to admins, and pi on this site
  99 $privileges = plc_is_admin () || ( plc_in_site($site_id) && plc_is_pi());
 100
 101 $tabs=array();
 102
 103 $tabs []= tab_sites_local();
 104
 105 // available actions
 106 if ( $local_peer  && $privileges ) {
 107
 108   $tabs['Expire slices'] = array('url'=>l_actions(),
 109                                  'method'=>'POST',
 110                                  'values'=>array('site_id'=>$site_id,
 111                                                  'action'=>'expire-all-slices-in-site'),
 112                                  'bubble'=>"Expire all slices and prevent creation of new slices",
 113                                  'confirm'=>"Suspend all slices in $login_base");
 114   if (plc_is_admin())
 115     $tabs['Delete']=array('url'=>l_actions(),
 116                           'method'=>'POST',
 117                           'values'=>array('site_id'=>$site_id,
 118                                           'action'=>'delete-site'),
 119                           'bubble'=>"Delete site $sitename",
 120                           'confirm'=>"Are you sure you want to delete site $login_base");
 121   $tabs["Events"]=array_merge (tablook_event(),
 122                                array('url'=>l_event("Site","site",$site_id),
 123                                      'bubble'=>"Events for site $sitename"));
 124   $tabs["Comon"]=array_merge(tablook_comon(),
 125                              array('url'=>l_comon("site_id",$site_id),
 126                                    'bubble'=>"Comon page for $sitename"));
 127
 128   if (plc_is_admin())
 129     $tabs['Pending'] = array ('url'=>l_sites_pending(),
 130                               'bubble'=>'Review pending join requests');
 131  }
 132
 133 plc_tabs($tabs);
 134
 135 // show gray background on foreign objects : start a <div> with proper class
 136 $peers->block_start ($peer_id);
 137
 138 if ( ! $enabled )
 139   plc_warning ("This site is not enabled - Please visit " .
 140                href (l_sites_pending(),"this page") .
 141                " to review pending applications.");
 142
 143 $can_update=(plc_is_admin ()  && $local_peer) || ( plc_in_site($site_id) && plc_is_pi());
 144 $details = new PlcDetails($can_update);
 145
 146 if ( ! $site['is_public'])
 147   plc_warning("This site is not public!");
 148
 149 $details->start();
 150
 151 $details->form_start(l_actions(),array('action'=>'update-site','site_id'=>$site_id));
 152 $details->th_td("Full name",$sitename,'name',array('width'=>50));
 153 $details->th_td("Abbreviated name",$abbreviated_name,'abbreviated_name',array('width'=>15));
 154 $details->th_td("URL",$site_url,'url',array('width'=>50));
 155 $details->th_td("Latitude",$site_lat,'latitude');
 156 $details->th_td("Longitude",$site_long,'longitude');
 157
 158 // modifiable by admins only
 159 if (plc_is_admin())
 160   $details->th_td("Login base",$login_base,'login_base',array('width'=>12));
 161 else
 162   $details->th_td("Login base",$login_base);
 163 if (plc_is_admin())
 164   $details->th_td("Max slices",$max_slices,'max_slices');
 165 else
 166   $details->th_td("Max slices",$max_slices);
 167 $details->tr_submit("submit","Update Site");
 168 $details->form_end();
 169
 170 if ( ! $local_peer) {
 171   $details->space();
 172   $details->th_td("Peer",$peers->peer_link($peer_id));
 173  }
 174
 175 if ( $local_peer ) {
 176
 177   // Nodes
 178   $details->space();
 179   $nb_boot = 0;
 180   if ($nodes) foreach ($nodes as $node) if ($node['boot_state'] == 'boot') $nb_boot ++;
 181   $node_label = $nb_boot . " boot / " .  count($nodes) . " total";
 182   $details->th_td("# Nodes", href(l_nodes_site($site_id),$node_label));
 183   function n_link ($n) { return l_node_t($n['node_id'],$n['hostname'] . " (" . $n['boot_state'] . ")");}
 184   $nodes_label= plc_vertical_table(array_map ("n_link",$nodes));
 185   $details->th_td ("Hostnames",$nodes_label);
 186   $button=new PlcFormButton (l_node_add(),"add_node","Add node","POST");
 187   $details->tr($button->html(),"right");
 188
 189   // Users
 190   $details->space();
 191   $user_label = count($person_ids) . " Total / " .
 192     count ($pis) . " PIs / " .
 193     count ($techs) . " Techs";
 194   if ( (count ($pis) == 0) || (count ($techs) == 0) || (count($person_ids) >=50))
 195     $user_label = plc_warning_html ($user_label);
 196   $details->th_td ("# Users",href(l_persons_site($site_id),$user_label));
 197   function p_link ($p) { return l_person_t($p['person_id'],$p['email']); }
 198   // PIs
 199   $details->th_td("PI's",plc_vertical_table (array_map ("p_link",$pis)));
 200   // techs
 201   $details->th_td("Techs's",plc_vertical_table (array_map ("p_link",$techs)));
 202   if (count ($disabled_persons))
 203     $details->th_td("Disabled",plc_vertical_table (array_map ("p_link",$disabled_persons)));
 204
 205   // Slices
 206   $details->space();
 207   // summary on slices
 208   $slice_label = count($slice_ids) . " running / " . $max_slices . " max";
 209   if (count($slice_ids) >= $max_slices)
 210     $slice_label = plc_warning_html ($slice_label);
 211   $details->th_td("# Slices", href(l_slices_site($site_id),$slice_label));
 212   if ($slices) foreach ($slices as $slice)
 213      $details->th_td($slice['instantiation'],l_slice_obj($slice));
 214   $button=new PlcFormButton (l_slice_add(),"slice_add","Add slice","POST");
 215   $details->tr($button->html(),"right");
 216
 217   // Addresses
 218   if ($addresses) {
 219     $details->space();
 220     $details->th_td("Addresses","");
 221     foreach ($addresses as $address) {
 222       $details->th_td(plc_vertical_table($address['address_types']),
 223                        plc_vertical_table(array($address['line1'],
 224                                                 $address['line2'],
 225                                                 $address['line3'],
 226                                                 $address['city'],
 227                                                 $address['state'],
 228                                                 $address['postalcode'],
 229                                                 $address['country'])));
 230     }
 231   }
 232
 233  }
 234
 235 $details->end();
 236
 237 ////////////////////////////////////////
 238 $peers->block_end($peer_id);
 239
 240 plc_tabs ($tabs,"bottom");
 241
 242 // Print footer
 243 include 'plc_footer.php';
 244
 245 ?>