planetlab/slices/slice.php

   1 <?php
   2
   3 // $Id$
   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 'linetabs.php';
  20 require_once 'table.php';
  21 require_once 'details.php';
  22 require_once 'toggle.php';
  23 require_once 'form.php';
  24
  25 // keep css separate for now
  26 drupal_set_html_head('
  27 <link href="/planetlab/css/my_slice.css" rel="stylesheet" type="text/css" />
  28 ');
  29
  30 // -------------------- admins potentially need to get full list of users
  31 ini_set('memory_limit','32M');
  32
  33 // --------------------
  34 // recognized URL arguments
  35 $slice_id=intval($_GET['id']);
  36 if ( ! $slice_id ) { plc_error('Malformed URL - id not set'); return; }
  37
  38 ////////////////////
  39 // Get all columns as we focus on only one entry
  40 $slices= $api->GetSlices( array($slice_id));
  41
  42 if (empty($slices)) {
  43   drupal_set_message ("Slice " . $slice_id . " not found");
  44   return;
  45  }
  46
  47 $slice=$slices[0];
  48
  49 // pull all node info to vars
  50 $name= $slice['name'];
  51 $expires = date( "d/m/Y", $slice['expires'] );
  52 $site_id= $slice['site_id'];
  53
  54 //$node_ids=$slice['node_ids'];
  55 $person_ids=$slice['person_ids'];
  56 //$slice_tag_ids= $slice['slice_tag_ids'];
  57
  58 // get peers
  59 $peer_id= $slice['peer_id'];
  60 $peers=new Peers ($api);
  61 $local_peer = ! $peer_id;
  62
  63 // gets site info
  64 $sites= $api->GetSites( array( $site_id ) );
  65 $site=$sites[0];
  66 $site_name= $site['name'];
  67 $max_slices = $site['max_slices'];
  68 // xxx PIs
  69 //$pis=$api->GetPersons(...)
  70
  71 // get all persons info
  72 if (!empty($person_ids))
  73   $persons=$api->GetPersons($person_ids,array('email','enabled'));
  74
  75
  76 //////////////////////////////////////// building blocks for the renew area
  77 // Constants
  78 global $DAY;            $DAY = 24*60*60;
  79 global $WEEK;           $WEEK = 7 * $DAY;
  80 global $MAX_WEEKS;      $MAX_WEEKS= 8;          // weeks from today
  81 global $GRACE_DAYS;     $GRACE_DAYS=10;         // days for renewal promoted on top
  82 global $NOW;            $NOW=mktime();
  83
  84
  85 // make the renew area on top and open if the expiration time is less than 10 days from now
  86 function renew_needed ($slice) {
  87   global $DAY, $NOW, $GRACE_DAYS;
  88   $current_exp=$slice['expires'];
  89
  90   $time_left = $current_exp - $NOW;
  91   $visible = $time_left/$DAY <= $GRACE_DAYS;
  92   return $visible;
  93 }
  94
  95 function renew_area ($slice,$site,$visible) {
  96   global $DAY, $WEEK, $MAX_WEEKS, $GRACE_DAYS, $NOW;
  97
  98   $current_exp=$slice['expires'];
  99   $max_exp= $NOW + ($MAX_WEEKS * $WEEK); // seconds since epoch
 100
 101   // xxx some extra code needed to enable this area only if the slice description is OK:
 102   // description and url must be non void
 103   $toggle=
 104     new PlekitToggle('renew',"Renew this slice",
 105                      array("bubble"=>
 106                            "Enter this zone if you wish to renew your slice",
 107                            'visible'=>$visible));
 108   $toggle->start();
 109
 110   // xxx message could take roles into account
 111   if ($site['max_slices']<=0) {
 112      $message= <<< EOF
 113 <p class='my-slice-renewal'>Slice creation and renewal have been temporarily disabled for your
 114 <site. This may have occurred because your site's nodes have been down
 115 or unreachable for several weeks, and multiple attempts to contact
 116 your site's PI(s) and Technical Contact(s) have all failed. If so,
 117 contact your site's PI(s) and Technical Contact(s) and ask them to
 118 bring up your site's nodes. Please visit your <a
 119 href='/db/sites/index.php?id=$site_id'>site details</a> page to find
 120 out more about your site's nodes, and how to contact your site's PI(s)
 121 and Technical Contact(s).</p>
 122 EOF;
 123      echo $message;
 124
 125   } else {
 126     // xxx this is a rough cut and paste from the former UI
 127     // showing a datepicker view could be considered as well with some extra work
 128     // calculate possible extension lengths
 129     $selectors = array();
 130     foreach ( array ( 1 => "One more week",
 131                       2 => "Two more weeks",
 132                       3 => "Two more weeks",
 133                       4 => "One more month" ) as $weeks => $text ) {
 134       $candidate_exp = $current_exp + $weeks*$WEEK;
 135       if ( $candidate_exp < $max_exp) {
 136         $selectors []= array('display'=>"$text (" . gmstrftime("%A %b-%d-%y %T %Z", $candidate_exp) . ")",
 137                              'value'=>$candidate_exp);
 138         $max_renewal_weeks=$weeks;
 139         $max_renewal_date= gmstrftime("%A %b-%d-%y %T %Z", $candidate_exp);
 140       }
 141     }
 142
 143     if ( empty( $selectors ) ) {
 144       print <<< EOF
 145 <div class='plc-warning renewal'>
 146 Slice cannot be renewed any further into the future, try again closer to expiration date.
 147 </div>
 148 EOF;
 149      } else {
 150       print <<< EOF
 151 <div class='my-slice-renewal'>
 152 <p>You must provide a short description as well as a link to a project website before renewing it.
 153 Do <span class='bold'>not</span> provide bogus information; if a complaint is lodged against your slice
 154 and PlanetLab Operations is unable to determine what the normal behavior of your slice is,
 155 your slice may be deleted to resolve the complaint.</p>
 156 <p><span class='bold'>NOTE:</span>
 157 Slices cannot be renewed beyond another $max_renewal_weeks week(s) ($max_renewal_date).
 158 </p>
 159 </div>
 160 EOF;
 161
 162       $form = new PlekitForm (l_actions(),
 163                               array('action'=>'renew-slice',
 164                                     'slice_id'=>$slice['slice_id']));
 165       $form->start();
 166       print $form->label_html('expires','Duration');
 167       print $form->select_html('expires',$selectors,array('label'=>'Pick one'));
 168       print $form->submit_html('renew-button','Renew');
 169       $form->end();
 170     }
 171   }
 172
 173   $toggle->end();
 174 }
 175
 176 //////////
 177
 178 $am_in_slice = in_array(plc_my_person_id(),$person_ids);
 179
 180 if ($am_in_slice) {
 181   drupal_set_title("My slice " . $name);
 182  } else {
 183   drupal_set_title("Slice " . $name);
 184 }
 185
 186 $privileges = ( $local_peer && (plc_is_admin()  || $am_in_slice));
 187
 188 $tabs=array();
 189 $tabs [] = tab_nodes_slice($slice_id);
 190 $tabs [] = tab_site($site_id);
 191
 192 // are these the right privileges for deletion ?
 193 if ($privileges) {
 194   $tabs ['Delete']= array('url'=>l_actions(),
 195                           'method'=>'post',
 196                           'values'=>array('action'=>'delete-slice','slice_id'=>$slice_id),
 197                           'bubble'=>"Delete slice $name",
 198                           'confirm'=>'Are you sure to delete $name');
 199
 200   $tabs["Events"]=array_merge(tablook_event(),
 201                               array('url'=>l_event("Slice","slice",$slice_id),
 202                                     'bubble'=>"Events for slice $name"));
 203   $tabs["Comon"]=array_merge(tablook_comon(),
 204                              array('url'=>l_comon("slice_id",$slice_id),
 205                                    'bubble'=>"Comon page about slice $name"));
 206 }
 207
 208 plekit_linetabs($tabs);
 209
 210 ////////////////////////////////////////
 211 $peers->block_start($peer_id);
 212
 213 //////////////////////////////////////// renewal area
 214 // (1) close to expiration : show on top and open
 215
 216 if ($local_peer ) {
 217   $renew_visible = renew_needed ($slice);
 218   if ($renew_visible) renew_area ($slice,$site,true);
 219  }
 220
 221
 222 //////////////////// details
 223 // default for opening the details section or not ?
 224 if ($local_peer) {
 225   $default_show_details = true;
 226  } else {
 227   $default_show_details = ! $renew_visible;
 228  }
 229
 230 $toggle =
 231   new PlekitToggle ('my-slice-details',"Details",
 232                     array('bubble'=>
 233                           'Display and modify details for that slice',
 234                           'visible'=>get_arg('show_details',$default_show_details)));
 235 $toggle->start();
 236
 237 $details=new PlekitDetails($privileges);
 238 $details->form_start(l_actions(),array('action'=>'update-slice',
 239                                        'slice_id'=>$slice_id,
 240                                        'name'=>$name));
 241
 242 $details->start();
 243 if (! $local_peer) {
 244   $details->th_td("Peer",$peers->peer_link($peer_id));
 245   $details->space();
 246  }
 247
 248
 249 $details->th_td('Name',$slice['name']);
 250 $details->th_td('Description',$slice['description'],'description',
 251                 array('input_type'=>'textarea',
 252                       'width'=>50,'height'=>5));
 253 $details->th_td('URL',$slice['url'],'url',array('width'=>50));
 254 $details->tr_submit("submit","Update Slice");
 255 $details->th_td('Expires',$expires);
 256 $details->th_td('Instantiation',$slice['instantiation']);
 257 $details->th_td('Site',l_site_obj($site));
 258 // xxx show the PIs here
 259 //$details->th_td('PIs',...);
 260 $details->end();
 261
 262 $details->form_end();
 263 $toggle->end();
 264
 265 //////////////////// persons
 266 $persons=$api->GetPersons(array('person_id'=>$slice['person_ids']));
 267 // just propose to add everyone else,
 268 // as regular persons can see only a fraction of the db anyway
 269 if (empty($persons))
 270     $potential_persons=$api->GetPersons();
 271 else
 272     $potential_persons=
 273         $api->GetPersons(array('~person_id'=>$slice['person_ids'],'peer_id'=>NULL),
 274                          array('email','person_id','first_name','last_name','roles'));
 275 $count=count($persons);
 276
 277 $toggle=
 278   new PlekitToggle ('my-slice-persons',"$count Users",
 279                     array('bubble'=>
 280                           'Manage accounts attached to this slice',
 281                           'visible'=>get_arg('show_persons',false)));
 282 $toggle->start();
 283
 284 ////////// people currently in
 285 // visible:
 286 // hide if both current+add are included
 287 // so user can chose which section is of interest
 288 // show otherwise
 289 $toggle_persons = new PlekitToggle ('my-slice-persons-current',
 290                                     "$count people currently in $name",
 291                                     array('visible'=>get_arg('show_persons_current',!$privileges)));
 292 $toggle_persons->start();
 293
 294 $headers=array();
 295 $headers['email']='string';
 296 $headers['first']='string';
 297 $headers['last']='string';
 298 $headers['R']='string';
 299 if ($privileges) $headers[plc_delete_icon()]="none";
 300 $table=new PlekitTable('persons',$headers,'0',
 301                        array('notes_area'=>false));
 302 $form=new PlekitForm(l_actions(),array('slice_id'=>$slice['slice_id']));
 303 $form->start();
 304 $table->start();
 305 if ($persons) foreach ($persons as $person) {
 306   $table->row_start();
 307   $table->cell(l_person_obj($person));
 308   $table->cell($person['first_name']);
 309   $table->cell($person['last_name']);
 310   $table->cell(plc_vertical_table ($person['roles']));
 311   if ($privileges) $table->cell ($form->checkbox_html('person_ids[]',$person['person_id']));
 312   $table->row_end();
 313 }
 314 // actions area
 315 if ($privileges) {
 316
 317   // remove persons
 318   $table->tfoot_start();
 319
 320   $table->row_start();
 321   $table->cell($form->submit_html ("remove-persons-from-slice","Remove selected"),
 322                array('hfill'=>true,'align'=>'right'));
 323   $table->row_end();
 324  }
 325 $table->end();
 326 $toggle_persons->end();
 327
 328 ////////// people to add
 329 if ($privileges) {
 330   $count=count($potential_persons);
 331   $toggle_persons = new PlekitToggle ('my-slice-persons-add',
 332                                       "$count people may be added to $name",
 333                                       array('visible'=>get_arg('show_persons_add',false)));
 334   $toggle_persons->start();
 335   if ( ! $potential_persons ) {
 336     // xxx improve style
 337     echo "<p class='not-relevant'>No person to add</p>";
 338   } else {
 339     $headers=array();
 340     $headers['email']='string';
 341     $headers['first']='string';
 342     $headers['last']='string';
 343     $headers['R']='string';
 344     $headers['Add']="none";
 345     $options = array('notes_area'=>false,
 346                      'search_width'=>15,
 347                      'pagesize'=>8);
 348     // show search for admins only as other people won't get that many names to add
 349     if ( ! plc_is_admin() ) $options['search_area']=false;
 350
 351     $table=new PlekitTable('add_persons',$headers,'0',$options);
 352     $form=new PlekitForm(l_actions(),array('slice_id'=>$slice['slice_id']));
 353     $form->start();
 354     $table->start();
 355     if ($potential_persons) foreach ($potential_persons as $person) {
 356         $table->row_start();
 357         $table->cell(l_person_obj($person));
 358         $table->cell($person['first_name']);
 359         $table->cell($person['last_name']);
 360         $table->cell(plc_vertical_table ($person['roles']));
 361         $table->cell ($form->checkbox_html('person_ids[]',$person['person_id']));
 362         $table->row_end();
 363       }
 364     // add users
 365     $table->tfoot_start();
 366     $table->row_start();
 367     $table->cell($form->submit_html ("add-persons-in-slice","Add selected"),
 368                  array('hfill'=>true,'align'=>'right'));
 369     $table->row_end();
 370     $table->end();
 371     $form->end();
 372   }
 373   $toggle_persons->end();
 374 }
 375 $toggle->end();
 376
 377 //////////////////// nodes
 378 // minimal list as a start
 379 $node_columns = array('hostname','node_id','arch');
 380 $nodes=$api->GetNodes(array('node_id'=>$slice['node_ids']),$node_columns);
 381 if (empty($nodes))
 382     $potential_nodes=$api->GetNodes();
 383 else
 384     $potential_nodes=$api->GetNodes(array('~node_id'=>$slice['node_ids']),$node_columns);
 385 $count=count($nodes);
 386
 387 $toggle=new PlekitToggle ('my-slice-nodes',"$count Nodes",
 388                           array('bubble'=>
 389                                 'Manage nodes attached to this slice',
 390                                 'visible'=>get_arg('show_nodes',false)));
 391 $toggle->start();
 392
 393 ////////// nodes currently in
 394 $count=count($nodes);
 395 $toggle_nodes=new PlekitToggle('my-slice-nodes-current',
 396                                "$count nodes currently in $name",
 397                                array('visible'=>get_arg('show_nodes_current',!$privileges)));
 398 $toggle_nodes->start();
 399
 400 $headers=array();
 401 $headers['hostname']='string';
 402 $headers['arch']='string';
 403 if ($privileges) $headers[plc_delete_icon()]="none";
 404
 405 $table_options = array('notes_area'=>false,
 406                        'search_width'=>15,
 407                        'pagesize'=>20);
 408 $table=new PlekitTable('nodes',$headers,'0',$table_options);
 409
 410 $form=new PlekitForm(l_actions(),array('slice_id'=>$slice['slice_id']));
 411 $form->start();
 412 $table->start();
 413 if ($nodes) foreach ($nodes as $node) {
 414   $table->row_start();
 415   $table->cell(l_node_obj($node));
 416   $table->cell($node['arch']);
 417   if ($privileges) $table->cell ($form->checkbox_html('node_ids[]',$node['node_id']));
 418   $table->row_end();
 419 }
 420 // actions area
 421 if ($privileges) {
 422
 423   // remove nodes
 424   $table->tfoot_start();
 425
 426   $table->row_start();
 427   $table->cell($form->submit_html ("remove-nodes-from-slice","Remove selected"),
 428                array('hfill'=>true,'align'=>'right'));
 429   $table->row_end();
 430  }
 431 $table->end();
 432 $toggle_nodes->end();
 433
 434 ////////// nodes to add
 435 if ($privileges) {
 436   $count=count($potential_nodes);
 437   $toggle_nodes=new PlekitToggle('my-slice-nodes-add',
 438                                  "$count more nodes available",
 439                                  array('visible'=>get_arg('show_persons_add',false)));
 440   $toggle_nodes->start();
 441
 442   if ( ! $potential_nodes ) {
 443     // xxx improve style
 444     echo "<p class='not-relevant'>No node to add</p>";
 445   } else {
 446     $headers=array();
 447     $headers['hostname']='string';
 448     $headers['arch']='string';
 449     $headers['Add']="none";
 450
 451     $table=new PlekitTable('add_nodes',$headers,'1', $table_options);
 452     $form=new PlekitForm(l_actions(),
 453                          array('slice_id'=>$slice['slice_id']));
 454     $form->start();
 455     $table->start();
 456     if ($potential_nodes) foreach ($potential_nodes as $node) {
 457         $table->row_start();
 458         $table->cell(l_node_obj($node));
 459         $table->cell($node['arch']);
 460         $table->cell ($form->checkbox_html('node_ids[]',$node['node_id']));
 461         $table->row_end();
 462       }
 463     // add nodes
 464     $table->tfoot_start();
 465     $table->row_start();
 466     $table->cell($form->submit_html ("add-nodes-in-slice","Add selected"),
 467                  array('hfill'=>true,'align'=>'right'));
 468     $table->row_end();
 469     $table->end();
 470     $form->end();
 471   }
 472   $toggle_nodes->end();
 473 }
 474 $toggle->end();
 475
 476 //////////////////////////////////////////////////////////// Tags
 477 if ( $local_peer ) {
 478   $tags=$api->GetSliceTags (array('slice_id'=>$slice_id));
 479   function get_tagname ($tag) { return $tag['tagname'];}
 480   $tagnames = array_map ("get_tagname",$tags);
 481
 482   $toggle = new PlekitToggle ('slice-tags',count_english_warning($tags,'tag'),
 483                               array('bubble'=>'Inspect and set tags on tat slice',
 484                                     'visible'=>get_arg('show_tags',false)));
 485   $toggle->start();
 486
 487   $headers=array(
 488     "Name"=>"string",
 489     "Value"=>"string",
 490     "Node"=>"string",
 491     "NodeGroup"=>"string");
 492   if ($privileges) $headers[plc_delete_icon()]="none";
 493
 494   $table_options=array("notes_area"=>false,"pagesize_area"=>false,"search_width"=>10);
 495   $table=new PlekitTable("slice_tags",$headers,'0',$table_options);
 496   $form=new PlekitForm(l_actions(),
 497                        array('slice_id'=>$slice['slice_id']));
 498   $form->start();
 499   $table->start();
 500   if ($tags) {
 501     foreach ($tags as $tag) {
 502       $node_name = "ALL";
 503       if ($tag['node_id']) {
 504         $nodes = $api->GetNodes(array('node_id'=>$tag['node_id']));
 505         if($nodes) {
 506           $node = $nodes[0];
 507           $node_name = $node['hostname'];
 508         }
 509       }
 510       $nodegroup_name="n/a";
 511       if ($tag['nodegroup_id']) {
 512         $nodegroup=$api->GetNodeGroups(array('nodegroup_id'=>$tag['nodegroup_id']));
 513         if ($nodegroup) {
 514           $nodegroup = $nodegroup[0];
 515           $nodegroup_name = $nodegroup['groupname'];
 516         }
 517       }
 518       $table->row_start();
 519       $table->cell(l_tag_obj($tag));
 520       $table->cell($tag['value']);
 521       $table->cell($node_name);
 522       $table->cell($nodegroup_name);
 523       if ($privileges) $table->cell ($form->checkbox_html('slice_tag_ids[]',$tag['slice_tag_id']));
 524       $table->row_end();
 525     }
 526   }
 527   if ($privileges) {
 528     $table->tfoot_start();
 529     $table->row_start();
 530     $table->cell($form->submit_html ("delete-slice-tags","Remove selected"),
 531                  array('hfill'=>true,'align'=>'right'));
 532     $table->row_end();
 533
 534     $table->row_start();
 535     function tag_selector ($tag) {
 536       return array("display"=>$tag['tagname'],"value"=>$tag['tag_type_id']);
 537     }
 538     $all_tags= $api->GetTagTypes( array ("category"=>"slice*"), array("tagname","tag_type_id"));
 539     $selector_tag=array_map("tag_selector",$all_tags);
 540
 541     function node_selector($node) {
 542       return array("display"=>$node["hostname"],"value"=>$node['node_id']);
 543     }
 544     $all_nodes = $api->GetNodes( array ("node_id" => $slice['node_ids']), array("hostname","node_id"));
 545     $selector_node=array_map("node_selector",$all_nodes);
 546
 547     function nodegroup_selector($ng) {
 548       return array("display"=>$ng["groupname"],"value"=>$ng['nodegroup_id']);
 549     }
 550     $all_nodegroups = $api->GetNodeGroups( array("groupname"=>"*"), array("groupname","nodegroup_id"));
 551     $selector_nodegroup=array_map("nodegroup_selector",$all_nodegroups);
 552
 553     $table->cell($form->select_html("tag_type_id",$selector_tag,array('label'=>"Choose Tag")));
 554     $table->cell($form->text_html("value","",array('width'=>8)));
 555     $table->cell($form->select_html("node_id",$selector_node,array('label'=>"All Nodes")));
 556     $table->cell($form->select_html("nodegroup_id",$selector_nodegroup,array('label'=>"No Nodegroup")));
 557     $table->cell($form->submit_html("add-slice-tag","Set Tag"),array('columns'=>2,'align'=>'left'));
 558     $table->row_end();
 559   }
 560
 561   $form->end();
 562   $table->end();
 563   $toggle->end();
 564 }
 565
 566
 567 //////////////////////// renew slice
 568 if ($local_peer ) {
 569   if ( ! $renew_visible) renew_area ($slice,$site,false);
 570  }
 571
 572 $peers->block_end($peer_id);
 573
 574 // Print footer
 575 include 'plc_footer.php';
 576
 577 ?>