');
// -------------------- admins potentially need to get full list of users
ini_set('memory_limit','32M');
// --------------------
// recognized URL arguments
$slice_id=intval($_GET['id']);
if ( ! $slice_id ) { plc_error('Malformed URL - id not set'); return; }
////////////////////
// Get all columns as we focus on only one entry
$slices= $api->GetSlices( array($slice_id));
if (empty($slices)) {
drupal_set_message ("Slice " . $slice_id . " not found");
return;
}
$slice=$slices[0];
// pull all node info to vars
$name= $slice['name'];
$expires = date( "d/m/Y", $slice['expires'] );
$site_id= $slice['site_id'];
$person_ids=$slice['person_ids'];
// get peers
$peer_id= $slice['peer_id'];
$peers=new Peers ($api);
$local_peer = ! $peer_id;
// gets site info
$sites= $api->GetSites( array( $site_id ) );
$site=$sites[0];
$site_name= $site['name'];
$max_slices = $site['max_slices'];
//////////////////////////////////////// building blocks for the renew area
// Constants
global $DAY; $DAY = 24*60*60;
global $WEEK; $WEEK = 7 * $DAY;
global $MAX_WEEKS; $MAX_WEEKS= 8; // weeks from today
global $GRACE_DAYS; $GRACE_DAYS=10; // days for renewal promoted on top
global $NOW; $NOW=mktime();
////////////////////////////////////////////////////////////
// make the renew area on top and open if the expiration time is less than 10 days from now
function renew_needed ($slice) {
global $DAY, $NOW, $GRACE_DAYS;
$current_exp=$slice['expires'];
$time_left = $current_exp - $NOW;
$visible = $time_left/$DAY <= $GRACE_DAYS;
return $visible;
}
function renew_area ($slice,$site,$visible) {
global $DAY, $WEEK, $MAX_WEEKS, $GRACE_DAYS, $NOW;
$current_exp=$slice['expires'];
$current_text = gmstrftime("%A %b-%d-%y %T %Z", $current_exp);
$max_exp= $NOW + ($MAX_WEEKS * $WEEK); // seconds since epoch
$max_text = gmstrftime("%A %b-%d-%y %T %Z", $max_exp);
// xxx some extra code needed to enable this area only if the slice description is OK:
// description and url must be non void
$toggle=
new PlekitToggle('renew',"Expires $current_text - Renew this slice",
array("bubble"=>
"Enter this zone if you wish to renew your slice",
'visible'=>$visible));
$toggle->start();
// xxx message could take roles into account
if ($site['max_slices']<=0) {
$message= <<< EOF
Slice creation and renewal have been temporarily disabled for your
site details page to find
out more about your site's nodes, and how to contact your site's PI(s)
and Technical Contact(s).
EOF;
echo $message;
} else {
// xxx this is a rough cut and paste from the former UI
// showing a datepicker view could be considered as well with some extra work
// calculate possible extension lengths
$selectors = array();
foreach ( array ( 1 => "One more week",
2 => "Two more weeks",
3 => "Three more weeks",
4 => "One more month" ) as $weeks => $text ) {
$candidate_exp = $current_exp + $weeks*$WEEK;
if ( $candidate_exp < $max_exp) {
$selectors []= array('display'=>"$text (" . gmstrftime("%A %b-%d-%y %T %Z", $candidate_exp) . ")",
'value'=>$candidate_exp);
$max_renewal_weeks=$weeks;
$max_renewal_date= gmstrftime("%A %b-%d-%y %T %Z", $candidate_exp);
}
}
if ( empty( $selectors ) ) {
print <<< EOF
Slices annot be renewed more than $MAX_WEEKS weeks from now, i.e. not beyond $max_text.
For this reason, the current slice cannot be renewed any further into the future, try again closer to expiration date.
EOF;
} else {
print <<< EOF
You must provide a short description as well as a link to a project website before renewing it.
Do not provide bogus information; if a complaint is lodged against your slice
and PlanetLab Operations is unable to determine what the normal behavior of your slice is,
your slice may be deleted to resolve the complaint.
NOTE:
Slices cannot be renewed beyond another $max_renewal_weeks week(s) ($max_renewal_date).
EOF;
$form = new PlekitForm (l_actions(),
array('action'=>'renew-slice',
'slice_id'=>$slice['slice_id']));
$form->start();
print $form->label_html('expires','Duration');
print $form->select_html('expires',$selectors,array('label'=>'Pick one'));
print $form->submit_html('renew-button','Renew');
$form->end();
}
}
$toggle->end();
}
////////////////////////////////////////////////////////////
$am_in_slice = in_array(plc_my_person_id(),$person_ids);
if ($am_in_slice) {
drupal_set_title("My slice " . $name);
} else {
drupal_set_title("Slice " . $name);
}
$privileges = ( $local_peer && (plc_is_admin() || plc_is_pi() || $am_in_slice));
$tags_privileges = $privileges || plc_is_admin();
$tabs=array();
$tabs [] = tab_nodes_slice($slice_id);
$tabs [] = tab_site($site_id);
// are these the right privileges for deletion ?
if ($privileges) {
$tabs ['Delete']= array('url'=>l_actions(),
'method'=>'post',
'values'=>array('action'=>'delete-slice','slice_id'=>$slice_id),
'bubble'=>"Delete slice $name",
'confirm'=>"Are you sure to delete slice $name");
$tabs["Events"]=array_merge(tablook_event(),
array('url'=>l_event("Slice","slice",$slice_id),
'bubble'=>"Events for slice $name"));
$tabs["Comon"]=array_merge(tablook_comon(),
array('url'=>l_comon("slice_id",$slice_id),
'bubble'=>"Comon page about slice $name"));
}
plekit_linetabs($tabs);
////////////////////////////////////////
$peers->block_start($peer_id);
//////////////////////////////////////// renewal area
// (1) close to expiration : show on top and open
if ($local_peer ) {
$renew_visible = renew_needed ($slice);
if ($renew_visible) renew_area ($slice,$site,true);
}
//////////////////// details
// default for opening the details section or not ?
if ($local_peer) {
$default_show_details = true;
} else {
$default_show_details = ! $renew_visible;
}
$toggle =
new PlekitToggle ('my-slice-details',"Details",
array('bubble'=>
'Display and modify details for that slice',
'visible'=>get_arg('show_details',$default_show_details)));
$toggle->start();
$details=new PlekitDetails($privileges);
$details->form_start(l_actions(),array('action'=>'update-slice',
'slice_id'=>$slice_id,
'name'=>$name));
$details->start();
if (! $local_peer) {
$details->th_td("Peer",$peers->peer_link($peer_id));
$details->space();
}
$details->th_td('Name',$slice['name']);
$details->th_td('Description',$slice['description'],'description',
array('input_type'=>'textarea',
'width'=>50,'height'=>5));
$details->th_td('URL',$slice['url'],'url',array('width'=>50));
$details->tr_submit("submit","Update Slice");
$details->th_td('Expires',$expires);
$details->th_td('Instantiation',$slice['instantiation']);
$details->th_td('Site',l_site_obj($site));
// xxx show the PIs here
//$details->th_td('PIs',...);
$details->end();
$details->form_end();
$toggle->end();
//////////////////// persons
$person_columns = array('email','person_id','first_name','last_name','roles');
// get persons in slice
if (!empty($person_ids))
$persons=$api->GetPersons(array('person_id'=>$slice['person_ids']),$person_columns);
// just propose to add everyone else
// xxx this is maybe too much for admins as it slows stuff down
// as regular persons can see only a fraction of the db anyway
$potential_persons=
$api->GetPersons(array('~person_id'=>$slice['person_ids'],
'peer_id'=>NULL,
'enabled'=>true),
$person_columns);
$count=count($persons);
$toggle=
new PlekitToggle ('my-slice-persons',"$count Users",
array('bubble'=>
'Manage accounts attached to this slice',
'visible'=>get_arg('show_persons',false)));
$toggle->start();
////////// people currently in
// visible:
// hide if both current+add are included
// so user can chose which section is of interest
// show otherwise
$toggle_persons = new PlekitToggle ('my-slice-persons-current',
"$count people currently in $name",
array('visible'=>get_arg('show_persons_current',!$privileges)));
$toggle_persons->start();
$headers=array();
$headers['email']='string';
$headers['first']='string';
$headers['last']='string';
$headers['R']='string';
if ($privileges) $headers[plc_delete_icon()]="none";
$table=new PlekitTable('persons',$headers,'0',
array('notes_area'=>false));
$form=new PlekitForm(l_actions(),array('slice_id'=>$slice['slice_id']));
$form->start();
$table->start();
if ($persons) foreach ($persons as $person) {
$table->row_start();
$table->cell(l_person_obj($person));
$table->cell($person['first_name']);
$table->cell($person['last_name']);
$table->cell(plc_vertical_table ($person['roles']));
if ($privileges) $table->cell ($form->checkbox_html('person_ids[]',$person['person_id']));
$table->row_end();
}
// actions area
if ($privileges) {
// remove persons
$table->tfoot_start();
$table->row_start();
$table->cell($form->submit_html ("remove-persons-from-slice","Remove selected"),
array('hfill'=>true,'align'=>'right'));
$table->row_end();
}
$table->end();
$toggle_persons->end();
////////// people to add
if ($privileges) {
$count=count($potential_persons);
$toggle_persons = new PlekitToggle ('my-slice-persons-add',
"$count people may be added to $name",
array('visible'=>get_arg('show_persons_add',false)));
$toggle_persons->start();
if ( ! $potential_persons ) {
// xxx improve style
echo "
No person to add
";
} else {
$headers=array();
$headers['email']='string';
$headers['first']='string';
$headers['last']='string';
$headers['R']='string';
$headers['+']="none";
$options = array('notes_area'=>false,
'search_width'=>15,
'pagesize'=>8);
// show search for admins only as other people won't get that many names to add
if ( ! plc_is_admin() ) $options['search_area']=false;
$table=new PlekitTable('add_persons',$headers,'0',$options);
$form=new PlekitForm(l_actions(),array('slice_id'=>$slice['slice_id']));
$form->start();
$table->start();
if ($potential_persons) foreach ($potential_persons as $person) {
$table->row_start();
$table->cell(l_person_obj($person));
$table->cell($person['first_name']);
$table->cell($person['last_name']);
$table->cell(plc_vertical_table ($person['roles']));
$table->cell ($form->checkbox_html('person_ids[]',$person['person_id']));
$table->row_end();
}
// add users
$table->tfoot_start();
$table->row_start();
$table->cell($form->submit_html ("add-persons-in-slice","Add selected"),
array('hfill'=>true,'align'=>'right'));
$table->row_end();
$table->end();
$form->end();
}
$toggle_persons->end();
}
$toggle->end();
//////////////////////////////////////////////////////////// Nodes
// the nodes details to display here
// (1) we search for the tag types for which 'category' matches 'node*/ui*'
// all these tags will then be tentatively displayed in this area
// (2) further information can also be optionally specified in the category:
// (.) we split the category with '/' and search for assignments of the form var=value
// (.) header can be set to supersede the column header (default is tagname)
// (.) rank can be used for ordering the columns (default is tagname)
// (.) type is passed to the javascript table, for sorting (default is 'string')
// minimal list as a start
$node_fixed_columns = array('hostname','node_id','peer_id','slice_ids_whitelist','run_level','boot_state','last_contact','node_type');
// create a VisibleTags object : basically the list of tag columns to show
$visibletags = new VisibleTags ($api, 'node');
$visiblecolumns = $visibletags->column_names();
$node_columns=array_merge($node_fixed_columns,$visiblecolumns);
$nodes=$api->GetNodes(array('node_id'=>$slice['node_ids']),$node_columns);
$potential_nodes=$api->GetNodes(array('~node_id'=>$slice['node_ids']),$node_columns);
// reservable nodes: display only the ones in the slice to avoid confusion - also avoid an extra API call
$reservable_nodes=array();
foreach ($nodes as $node) { if ($node['node_type']=='reservable') $reservable_nodes[]=$node; }
////////////////////
$count=count($nodes);
$toggle=new PlekitToggle ('my-slice-nodes',"$count Nodes",
array('bubble'=>
'Manage nodes attached to this slice',
'visible'=>get_arg('show_nodes',false)));
$toggle->start();
//////////////////// nodes currently in
$toggle_nodes=new PlekitToggle('my-slice-nodes-current',
count_english($nodes,"node") . " currently in $name",
array('visible'=>get_arg('show_nodes_current',!$privileges)));
$toggle_nodes->start();
$headers=array();
$notes=array();
$headers['peer']='string';
$headers['hostname']='string';
$short="ST"; $long=Node::status_footnote(); $type='string';
$headers[$short]=array('type'=>$type,'title'=>$long); $notes []= "$short = $long";
$short="R"; $long="reservable nodes"; $type='string';
$headers[$short]=array('type'=>$type,'title'=>$long); $notes []= "$short = $long";
// the extra tags, configured for the UI
$headers=array_merge($headers,$visibletags->headers());
$notes=array_merge($notes,$visibletags->notes());
if ($privileges) $headers[plc_delete_icon()]="none";
$table_options = array('notes'=>$notes,
'search_width'=>15,
'pagesize'=>20);
$table=new PlekitTable('nodes',$headers,'1',$table_options);
$form=new PlekitForm(l_actions(),array('slice_id'=>$slice['slice_id']));
$form->start();
$table->start();
if ($nodes) foreach ($nodes as $node) {
$table->row_start();
$peers->cell($table,$node['peer_id']);
$table->cell(l_node_obj($node));
$run_level=$node['run_level'];
list($label,$class) = Node::status_label_class_($node);
$table->cell ($label,array('class'=>$class));
$table->cell( ($node['node_type']=='reservable')?"-R-":"" );
foreach ($visiblecolumns as $tagname) $table->cell($node[$tagname]);
if ($privileges) $table->cell ($form->checkbox_html('node_ids[]',$node['node_id']));
$table->row_end();
}
// actions area
if ($privileges) {
// remove nodes
$table->tfoot_start();
$table->row_start();
$table->cell($form->submit_html ("remove-nodes-from-slice","Remove selected"),
array('hfill'=>true,'align'=>'right'));
$table->row_end();
}
$table->end();
$toggle_nodes->end();
//////////////////// nodes to add
if ($privileges) {
$new_potential_nodes = array();
if ($potential_nodes) foreach ($potential_nodes as $node) {
$emptywl=empty($node['slice_ids_whitelist']);
$inwl = (!emptywl) and in_array($slice['slice_id'],$node['slice_ids_whitelist']);
if ($emptywl or $inwl)
$new_potential_nodes[]=$node;
}
$potential_nodes=$new_potential_nodes;
$count=count($potential_nodes);
$toggle_nodes=new PlekitToggle('my-slice-nodes-add',
count_english($potential_nodes,"more node") . " available",
array('visible'=>get_arg('show_nodes_add',false)));
$toggle_nodes->start();
if ( $potential_nodes ) {
$headers=array();
$notes=array();
$headers['peer']='string';
$headers['hostname']='string';
$short="ST"; $long=Node::status_footnote(); $type='string';
$headers[$short]=array('type'=>$type,'title'=>$long); $notes []= "$short = $long";
$short="R"; $long="reservable nodes"; $type='string';
$headers[$short]=array('type'=>$type,'title'=>$long); $notes []= "$short = $long";
// the extra tags, configured for the UI
$headers=array_merge($headers,$visibletags->headers());
$notes=array_merge($notes,$visibletags->notes());
$headers['+']="none";
$table=new PlekitTable('add_nodes',$headers,'1', $table_options);
$form=new PlekitForm(l_actions(),
array('slice_id'=>$slice['slice_id']));
$form->start();
$table->start();
if ($potential_nodes) foreach ($potential_nodes as $node) {
$table->row_start();
$peers->cell($table,$node['peer_id']);
$table->cell(l_node_obj($node));
list($label,$class) = Node::status_label_class_($node);
$table->cell ($label,array('class'=>$class));
$table->cell( ($node['node_type']=='reservable')?"-R-":"" );
foreach ($visiblecolumns as $tagname) $table->cell($node[$tagname]);
$table->cell ($form->checkbox_html('node_ids[]',$node['node_id']));
$table->row_end();
}
// add nodes
$table->tfoot_start();
$table->row_start();
$table->cell($form->submit_html ("add-nodes-in-slice","Add selected"),
array('hfill'=>true,'align'=>'right'));
$table->row_end();
$table->end();
$form->end();
}
$toggle_nodes->end();
}
//////////////////// reservable nodes area
$count=count($reservable_nodes);
if ($count && $privileges) {
// having reservable nodes in white lists looks a bit off scope for now...
$toggle_nodes=new PlekitToggle('my-slice-nodes-reserve',
count_english($reservable_nodes,"reservable node") . " in slice",
array('visible'=>get_arg('show_nodes_resa',false)));
$toggle_nodes->start();
$grain=$api->GetLeaseGranularity();
// xxx should be configurable
$now=time();
// xxx ditto, for now, show the next 48 hours, or 96 grains, which ever is smaller
$duration=min(24*3600,24*$grain);
$steps=$duration/$grain;
$start=intval($now/$grain)*$grain;
$end=$now+$duration;
$lease_columns=array('name','t_from','t_until','hostname','name');
$leases=$api->GetLeases(array(']t_until'=>$now,'[t_from'=>$end,'-SORT'=>'t_from'),$lease_columns);
// hash nodes -> leases
$host_hash=array();
foreach ($leases as $lease) {
$hostname=$lease['hostname'];
if ( ! $host_hash[$hostname] ) {
$host_hash[$hostname]=array();
}
// resync within the table
$lease['nfrom']=($lease['t_from']-$start)/$grain;
$lease['nuntil']=($lease['t_until']-$start)/$grain;
$host_hash[$hostname] []= $lease;
}
# leases_data is the name used by leases.js to locate this table
echo "
";
# pass the slicename as the [0,0] coordinate as thead>tr>td
echo "
" . $slice['name'] . "
";
for ($i=0; $i<$steps; $i++)
// expose in each header cell the full timestamp, and how to display it - use & as a separator*/
echo "