$slice=$slices[0];
-if ($profiling) plc_debug_prof('2: slice',count($slices));
+if ($profiling) plc_debug_prof('1: slice',count($slices));
// pull all node info to vars
$name= $slice['name'];
$expires = date( "d/m/Y", $slice['expires'] );
$peers=new Peers ($api);
$local_peer = ! $peer_id;
-if ($profiling) plc_debug_prof('3: peers',count($peers));
+if ($profiling) plc_debug_prof('2: peers',count($peers));
// gets site info
$sites= $api->GetSites( array( $site_id ) );
$site_name= $site['name'];
$max_slices = $site['max_slices'];
-if ($profiling) plc_debug_prof('4: sites',count($sites));
+if ($profiling) plc_debug_prof('3: sites',count($sites));
//////////////////////////////////////// building blocks for the renew area
// Constants
global $DAY; $DAY = 24*60*60;
global $GRACE_DAYS; $GRACE_DAYS=10; // days for renewal promoted on top
global $NOW; $NOW=mktime();
-////////////////////////////////////////////////////////////
+//////////////////////////////////////////////////////////// utility for the renew tab
// 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;
}
-//////////////////// details
+//////////////////////////////////////////////////////////// tab:details
// default for opening the details section or not ?
if ($local_peer) {
$default_show_details = true;
$details->form_end();
$toggle->end();
-//////////////////// persons
+//////////////////////////////////////////////////////////// tab:persons
$person_columns = array('email','person_id','first_name','last_name','roles');
// get persons in slice
if (!empty($person_ids))
}
$toggle->end();
-//////////////////////////////////////////////////////////// Nodes
+//////////////////////////////////////////////////////////// tab: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
$toggle->end();
+//////////////////////////////////////// retrieve all slice tags
+$tags=$api->GetSliceTags (array('slice_id'=>$slice_id));
+//////////////////////////////////////////////////////////// tab:initscripts
+// xxx fixme
+// * add a message on how to use this:
+// * explain the 2 mechanisms (initscript_body, initscript)
+// * explain the interface : initscript start|stop|restart slicename
+// xxx fixme
+
+$shared_initscripts=$api->GetInitScripts(array('-SORT'=>'name'),array('name'));
+//$shared_initscripts=$api->GetInitScripts();
+if ($profiling) plc_debug_prof('6 initscripts',count($initscripts));
+// xxx expose this even on foreign slices for now
+if ($local_peer) {
+ $initscript='';
+ $initscript_body='';
+ if ($tags) foreach ($tags as $tag) {
+ if ($tag['tagname']=='initscript') {
+ if ($initscript!='') drupal_set_error("multiple occurrences of 'initscript' tag");
+ $initscript=$tag['value'];
+ }
+ if ($tag['tagname']=='initscript_body') {
+ if ($initscript_body!='') drupal_set_error("multiple occurrences of 'initscript_body' tag");
+ $initscript_body=$tag['value'];
+ // plc_debug_txt('retrieved body',$initscript_body);
+ }
+ }
+ $label="No initscript";
+ $trimmed=trim($initscript_body);
+ if (!empty($trimmed)) $label="Initscript : slice-specific (" . substr($initscript_body,0,20) . " ...)";
+ else if (!empty($initscript)) $label="Initscript: shared " . $initscript;
+
+ $toggle = new PlekitToggle('slice-initscripts',$label,
+ array('bubble'=>'Manage initscript on that slice',
+ 'visible'=>get_arg('show_initscripts',false)));
+ $toggle->start();
+
+ $details=new PlekitDetails(TRUE);
+ $details->form_start(l_actions(),array('action'=>'update-initscripts',
+ 'slice_id'=>$slice_id,
+ 'name'=>$name,
+ 'previous-initscript'=>$initscript,
+ 'previous-initscript-body'=>$initscript_body));
+ $details->start();
+ // comppute a pulldown with available names
+ $selectors=array();
+ $is_found=FALSE;
+ if ($shared_initscripts) foreach ($shared_initscripts as $is) {
+ $is_selector=array('display'=>$is['name'],'value'=>$is['name']);
+ if ($is['name']==$initscript) {
+ $is_selector['selected']=TRUE;
+ $is_found=TRUE;
+ }
+ $selectors[]=$is_selector;
+ }
+ // display a warning when initscript references an unknown script
+ $details->tr_submit('unused','Update initscripts');
+ ////////// by name
+ $details->th_td("shared initscript name",
+ $details->form()->select_html('initscript',$selectors,array('label'=>'none')),
+ 'initscript',
+ array('input_type'=>'select'));
+ if ($initscript && ! $is_found)
+ // xxx better rendering ?
+ $details->th_td('WARNING',plc_warning_html("Current name '" . $initscript . "' is not a known shared initscript name"));
+ ////////// by contents
+ $script_height=8;
+ $script_width=60;
+ if ($initscript_body) {
+ $text=explode("\n",$initscript_body);
+ $script_height=count($text);
+ $script_width=10;
+ foreach ($text as $line) $script_width=max($script_width,strlen($line));
+ }
+ $details->th_td('slice initscript',$initscript_body,'initscript-body',
+ array('input_type'=>'textarea', 'width'=>$script_width,'height'=>$script_height));
+ $details->th_td('Howto',"xxx yourscript start|stop|restart slicename");
+ $details->tr_submit('unused','Update initscripts');
+ $details->form_end();
+ $details->end();
+ $toggle->end();
+}
+
+//////////////////////////////////////////////////////////// tab:tags
// very wide values get abbreviated
$tag_value_threshold=24;
-//////////////////////////////////////////////////////////// Tags
+// xxx fixme
+// * this area could use a help message about some special tags:
+// * initscript-related should be taken out
+// * sliverauth-related (ssh_key & hmac) should have a toggle to hide or show
+// xxx fixme
+
+// xxx expose this even on foreign slices for now
//if ( $local_peer ) {
- $tags=$api->GetSliceTags (array('slice_id'=>$slice_id));
- if ($profiling) plc_debug_prof('8 slice tags',count($tags));
+ if ($profiling) plc_debug_prof('7 slice tags',count($tags));
function get_tagname ($tag) { return $tag['tagname'];}
$tagnames = array_map ("get_tagname",$tags);
$toggle = new PlekitToggle ('slice-tags',count_english_warning($tags,'tag'),
- array('bubble'=>'Inspect and set tags on tat slice',
+ array('bubble'=>'Inspect and set tags on that slice',
'visible'=>get_arg('show_tags',false)));
$toggle->start();
$nodegroup_name="n/a";
if ($tag['nodegroup_id']) {
$nodegroups=$api->GetNodeGroups(array('nodegroup_id'=>$tag['nodegroup_id']));
- if ($profiling) plc_debug_prof('10 nodegroup for slice tag',$nodegroup);
+ if ($profiling) plc_debug_prof('8 nodegroup for slice tag',$nodegroup);
if ($nodegroup) {
$nodegroup = $nodegroups[0];
$nodegroup_name = $nodegroup['groupname'];
return array("display"=>$tag['tagname'],"value"=>$tag['tag_type_id']);
}
$all_tags= $api->GetTagTypes( array ("category"=>"slice*","-SORT"=>"+tagname"), array("tagname","tag_type_id"));
- if ($profiling) plc_debug_prof('11 tagtypes',count($all_tags));
+ if ($profiling) plc_debug_prof('9 tagtypes',count($all_tags));
$selector_tag=array_map("tag_selector",$all_tags);
function node_selector($node) {
return array("display"=>$ng["groupname"],"value"=>$ng['nodegroup_id']);
}
$all_nodegroups = $api->GetNodeGroups( array("groupname"=>"*"), array("groupname","nodegroup_id"));
- if ($profiling) plc_debug_prof('13 nodegroups',count($all_nodegroups));
+ if ($profiling) plc_debug_prof('10 nodegroups',count($all_nodegroups));
$selector_nodegroup=array_map("nodegroup_selector",$all_nodegroups);
$table->cell($form->select_html("tag_type_id",$selector_tag,array('label'=>"Choose Tag")));
//}
-//////////////////////// renew slice
+//////////////////////////////////////////////////////////// tab:renew
if ($local_peer ) {
if ( ! $renew_visible) renew_area ($slice,$site,false);
}