6 require_once 'plc_login.php';
8 // Get session and API handles
9 require_once 'plc_session.php';
13 require_once 'plc_drupal.php';
14 include 'plc_header.php';
17 require_once 'plc_functions.php';
18 require_once 'plc_peers.php';
19 require_once 'linetabs.php';
20 require_once 'table.php';
21 require_once 'details.php';
22 require_once 'form.php';
23 require_once 'toggle.php';
25 // --------------------
26 // recognized URL arguments
27 $site_id=intval($_GET['id']);
28 if ( ! $site_id ) { plc_error('Malformed URL - id not set'); return; }
31 // Get all columns as we focus on only one entry
32 $sites = $api->GetSites( array($site_id));
35 drupal_set_message ("Site " . $site_id . " not found");
40 // var names to api return
41 $sitename= htmlentities($site['name']);
42 $abbreviated_name= htmlentities($site['abbreviated_name']);
43 $site_url= $site['url'];
44 $login_base= $site['login_base'];
45 $site_lat= $site['latitude'];
46 $site_long= $site['longitude'];
47 $max_slivers= $site['max_slivers'];
48 $max_slices= $site['max_slices'];
50 $enabled = $site['enabled'];
53 $peer_id= $site['peer_id'];
54 $peers = new Peers ($api);
55 $local_peer = ! $peer_id;
57 // extra privileges to admins, and (pi||tech) on this site
58 $is_site_pi = ( $local_peer && plc_is_pi() && plc_in_site($site_id) );
59 $is_site_tech = ( $local_peer && plc_is_pi() && plc_in_site($site_id) );
60 $is_site_admin = ($local_peer && plc_is_admin());
62 $address_ids= $site['address_ids'];
63 $pcu_ids= $site['pcu_ids'];
64 $node_ids= $site['node_ids'];
65 $person_ids= $site['person_ids'];
66 $slice_ids= $site['slice_ids'];
70 $api->GetAddresses( $address_ids );
73 $api->GetNodes( $node_ids, array( "node_id", "hostname", "boot_state", "pcu_ids", "ports" ) );
76 $api->GetPersons( $person_ids, array( "role_ids", "person_id", "first_name", "last_name", "email", "enabled" , "slice_ids") );
78 $api->GetSlices ( $slice_ids, array ("slice_id", "name", "instantiation", "node_ids", "person_ids" ) );
81 // PCU stuff - not too sure why, but GetPCUs is not exposed to the 'user' role
82 $display_pcus = (plc_is_admin() || plc_is_pi() || plc_is_tech());
84 $api->GetPCUs ($pcu_ids, array ('hostname', 'pcu_id' ));
88 list( $addresses, $nodes, $persons, $slices, $pcus )= $api->commit();
90 list( $addresses, $nodes, $persons, $slices )= $api->commit();
94 $disabled_persons = array();
95 if ($persons) foreach( $persons as $person ) {
96 $role_ids= $person['role_ids'];
98 if ( in_array( '20', $role_ids )) $pis[] = $person;
99 if ( in_array( '40', $role_ids )) $techs[] = $person;
100 if ( ! $person['enabled'] ) $disabled_persons[] = $person;
104 $has_disabled_persons = count ($disabled_persons) !=0;
106 // get number of slivers
108 if ($slices) foreach ($slices as $slice) $slivers_count += count ($slice['node_ids']);
110 ////////////////////////////////////////
111 drupal_set_title("Details for site " . $sitename);
115 $tabs []= tab_mysite();
119 $tabs['Expire slices'] = array('url'=>l_actions(),
121 'values'=>array('site_id'=>$site_id,
122 'action'=>'expire-all-slices-in-site'),
123 'bubble'=>"Expire all slices and prevent creation of new slices",
124 'confirm'=>"Suspend all slices in $login_base");
126 $tabs['Delete']=array('url'=>l_actions(),
128 'values'=>array('site_id'=>$site_id,
129 'action'=>'delete-site'),
130 'bubble'=>"Delete site $sitename",
131 'confirm'=>"Are you sure you want to delete site $login_base");
134 $tabs ['Add slice'] = array ('url'=>l_slice_add(),
136 'bubble'=>'Create new slice in site');
138 if (plc_is_admin() || plc_in_site($site_id))
139 $tabs["Events"]=array_merge (tablook_event(),
140 array('url'=>l_event("Site","site",$site_id),
141 'bubble'=>"Events for site $sitename"));
142 if (plc_is_admin() || plc_in_site($site_id))
143 $tabs["Comon"]=array_merge(tablook_comon(),
144 array('url'=>l_comon("site_id",$site_id),
145 'bubble'=>"Comon page for $sitename"));
148 plekit_linetabs($tabs);
150 // show gray background on foreign objects : start a <div> with proper class
151 $peers->block_start ($peer_id);
153 if ( $local_peer && ( ! $enabled ) ) {
154 if ($site['ext_consortium_id'] == $PENDING_CONSORTIUM_ID) {
155 plc_warning ("This site is not enabled - Please visit " .
156 href (l_sites_pending(),"this page") .
157 " to review pending applications.");
159 plc_warning ("This site is disabled.");
163 $can_update=(plc_is_admin () && $local_peer) || ( plc_in_site($site_id) && plc_is_pi());
166 $toggle = new PlekitToggle ('site',"Details",
167 array('visible'=>get_arg('show_details',true),
168 'bubble'=>'Display and modify details for that site'));
171 $details = new PlekitDetails($can_update);
173 $f = $details->form_start(l_actions(),array('action'=>'update-site','site_id'=>$site_id));
177 if ( ! $site['is_public'])
178 $details->tr(plc_warning_html("This site is not public!"));
180 $details->th_td("Full name",$sitename,'name',array('width'=>50));
181 $details->th_td("Abbreviated name",$abbreviated_name,'abbreviated_name',array('width'=>15));
182 $details->th_td("URL",$site_url,'url',array('width'=>40));
183 $details->th_td("Latitude",$site_lat,'latitude');
184 $details->th_td("Longitude",$site_long,'longitude');
186 // modifiable by admins only
188 $details->th_td("Login base",$login_base,'login_base',array('width'=>12));
190 $details->th_td("Login base",$login_base);
192 $details->th_td("Max slices",$max_slices,'max_slices');
194 $details->th_td("Max slices",$max_slices);
197 $selectors=array(array('display'=>"False",'value'=>'0'),
198 array('display'=>"True",'value'=>'1'));
199 $selectors[intval($enabled)]['selected'] = 'selected';
201 $enable_select = $f->select_html ("enabled", $selectors);
203 $details->th_td("Enabled",$enable_select,'enabled', array('input_type' => 'select', 'value'=>$enabled));
205 $details->th_td("Enabled",$enabled);
207 $details->tr_submit("submit","Update Site");
209 if ( ! $local_peer) {
211 $details->th_td("Peer",$peers->peer_link($peer_id));
214 $details->form_end();
217 //////////////////// mode details - for local object
220 //////////////////// nodes
222 if ($nodes) foreach ($nodes as $node) if ($node['boot_state'] == 'boot') $nb_boot ++;
224 $nodes_title = "Nodes : ";
225 $nodes_title .= count($nodes) . " total";
226 $nodes_title .= " / " . $nb_boot . " boot";
228 $nodes_title = plc_warning_html ($nodes_title);
229 $nodes_title .= href(l_nodes_site($site_id)," (See as nodes)");
231 $toggle=new PlekitToggle ('nodes',$nodes_title,
232 array('visible'=>get_arg('show_nodes',true)));
237 if ($display_pcus) { $headers['PCU']='string'; $sort_column = '1' ; }
238 $headers['hostname']='string';
239 $headers['state']='string';
241 $table = new PlekitTable ('nodes',$headers,$sort_column,array('search_area'=>false,
243 'pagesize_area'=>false));
244 // hash pcus on pcu_id
248 if ($pcus) foreach ($pcus as $pcu) $pcu_hash[$pcu['pcu_id']]=$pcu;
250 // search the pcu, return the string to display and mark the pcu as displayed
251 // function display_and_mark ($pcu_hash,$pcu_ids,$ports) {
252 function display_and_mark ($pcu_ids,$ports) {
254 if (empty($pcu_ids)) return plc_warning_html('None');
256 if (empty($ports)) return plc_error_html('???');
258 $pcu=$pcu_hash[$pcu_id];
259 $display= $pcu['hostname'] . ' : ' . $port;
260 $pcu_hash[$pcu_id]['displayed']=true;
265 foreach ($nodes as $node) {
268 // $table->cell(display_and_mark($pcu_hash,$node['pcu_ids'],$node['ports']));
269 $table->cell(display_and_mark($node['pcu_ids'],$node['ports']));
271 $table->cell (l_node_obj($node));
272 $table->cell ($node['boot_state']);
275 // show undisplayed PCU's if any
277 if ($pcu_hash) foreach ($pcu_hash as $id=>$pcu) {
278 if (!$pcu['displayed']) {
280 $table->cell($pcu['hostname']); $table->cell(''); $table->cell('');
285 $table->tfoot_start();
287 $button=new PlekitFormButton (l_node_add(),"node_add","Add node","POST");
288 $table->cell($button->html(),array('hfill'=>true,'align'=>'right'));
293 //////////////////// Users
294 $persons_title = "Users : ";
295 $persons_title .= count($person_ids) . " total";
296 $persons_title .= " / " . count ($pis) . " PIs";
297 $persons_title .= " / " . count ($techs) . " Techs";
298 if ($has_disabled_persons)
299 $persons_title .= " / " . count($disabled_persons) . " Disabled";
300 if ( (count ($pis) == 0) || (count ($techs) == 0) || (count($person_ids) >= 30) || count($disabled_persons) != 0 )
301 $persons_title = plc_warning_html ($persons_title);
302 $persons_title .= href(l_persons_site($site_id)," (See as users)");
304 $toggle=new PlekitToggle ('persons',$persons_title,
305 array('visible'=>get_arg('show_persons',false)));
309 $headers["email"]='string';
311 $headers["PI"]='string';
312 $headers['User']='string';
313 $headers["Tech"]='string';
314 if ($has_disabled_persons) $headers["Disabled"]='string';
315 $notes=array('S = slices');
316 $table=new PlekitTable('persons',$headers,'1r-3r-0',array('search_area'=>false,
318 'pagesize_area'=>false));
320 if ($persons) foreach ($persons as $person) {
322 $table->cell(l_person_obj($person));
323 $table->cell(count($person['slice_ids']));
324 $table->cell( in_array ('20',$person['role_ids']) ? "yes" : "no");
325 $table->cell( in_array ('30',$person['role_ids']) ? "yes" : "no");
326 $table->cell( in_array ('40',$person['role_ids']) ? "yes" : "no");
327 if ($has_disabled_persons) $table->cell( $person['enabled'] ? "no" : plc_warning_html("yes"));
333 //////////////////// Slices
334 $slices_title="Slices : ";
335 $slices_title .= $max_slices . " max";
336 $slices_title .= " / " . count($slice_ids) . " running";
337 $slices_title .= " / $slivers_count slivers";
338 if (count($slice_ids) >= $max_slices)
339 $slices_title = plc_warning_html($slices_title);
340 $slices_title .= href(l_slices_site($site_id)," (See as slices)");
342 $toggle=new PlekitToggle ('slices',$slices_title,
343 array('visible'=>get_arg('show_slices',false)));
347 $headers ['name']='string';
348 $headers ['I'] = 'string';
349 $headers ['N']='int';
350 $headers ['U']='int';
351 $notes=array('I = instantiation type',
352 'N = number of nodes',
353 'U = number of users');
354 $table=new PlekitTable ('slices',$headers,0,array('search_area'=>false,
355 'pagesize_area'=>false,
359 if ($slices) foreach ($slices as $slice) {
361 $table->cell(l_slice_obj($slice));
362 $table->cell(instantiation_label($slice));
363 $table->cell (href(l_nodes_slice($slice['slice_id']),count($slice['node_ids'])));
364 $table->cell (count($slice['person_ids']));
368 $button=new PlekitFormButton (l_slice_add(),"slice_add","Add slice","post");
369 $table->tfoot_start();
371 $table->cell($button->html(),array('hfill'=>true,'align'=>'right'));
377 //////////////////// Addresses
378 $toggle=new PlekitToggle ('addresses',"Addresses",
379 array('visible'=>get_arg('show_addresses',false)));
382 print "<p class='addresses'>No known address for this site</p>";
384 $details=new PlekitDetails (false);
386 $details->th_td("Addresses","");
387 foreach ($addresses as $address) {
388 $details->th_td(plc_vertical_table($address['address_types']),
389 plc_vertical_table(array($address['line1'],
394 $address['postalcode'],
395 $address['country'])));
403 ////////////////////////////////////////
404 $peers->block_end($peer_id);
406 //plekit_linetabs ($tabs,"bottom");
409 include 'plc_footer.php';