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 => "Three 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()  || plc_is_pi() || $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 slice $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 $person_columns = array('email','person_id','first_name','last_name','roles');
 267 $persons=$api->GetPersons(array('person_id'=>$slice['person_ids']));
 268 // just propose to add everyone else,
 269 // as regular persons can see only a fraction of the db anyway
 270 $potential_persons=
 271   $api->GetPersons(array('~person_id'=>$slice['person_ids'],'peer_id'=>NULL),
 272                    $person_columns);
 273 $count=count($persons);
 274
 275 $toggle=
 276   new PlekitToggle ('my-slice-persons',"$count Users",
 277                     array('bubble'=>
 278                           'Manage accounts attached to this slice',
 279                           'visible'=>get_arg('show_persons',false)));
 280 $toggle->start();
 281
 282 ////////// people currently in
 283 // visible:
 284 // hide if both current+add are included
 285 // so user can chose which section is of interest
 286 // show otherwise
 287 $toggle_persons = new PlekitToggle ('my-slice-persons-current',
 288                                     "$count people currently in $name",
 289                                     array('visible'=>get_arg('show_persons_current',!$privileges)));
 290 $toggle_persons->start();
 291
 292 $headers=array();
 293 $headers['email']='string';
 294 $headers['first']='string';
 295 $headers['last']='string';
 296 $headers['R']='string';
 297 if ($privileges) $headers[plc_delete_icon()]="none";
 298 $table=new PlekitTable('persons',$headers,'0',
 299                        array('notes_area'=>false));
 300 $form=new PlekitForm(l_actions(),array('slice_id'=>$slice['slice_id']));
 301 $form->start();
 302 $table->start();
 303 if ($persons) foreach ($persons as $person) {
 304   $table->row_start();
 305   $table->cell(l_person_obj($person));
 306   $table->cell($person['first_name']);
 307   $table->cell($person['last_name']);
 308   $table->cell(plc_vertical_table ($person['roles']));
 309   if ($privileges) $table->cell ($form->checkbox_html('person_ids[]',$person['person_id']));
 310   $table->row_end();
 311 }
 312 // actions area
 313 if ($privileges) {
 314
 315   // remove persons
 316   $table->tfoot_start();
 317
 318   $table->row_start();
 319   $table->cell($form->submit_html ("remove-persons-from-slice","Remove selected"),
 320                array('hfill'=>true,'align'=>'right'));
 321   $table->row_end();
 322  }
 323 $table->end();
 324 $toggle_persons->end();
 325
 326 ////////// people to add
 327 if ($privileges) {
 328   $count=count($potential_persons);
 329   $toggle_persons = new PlekitToggle ('my-slice-persons-add',
 330                                       "$count people may be added to $name",
 331                                       array('visible'=>get_arg('show_persons_add',false)));
 332   $toggle_persons->start();
 333   if ( ! $potential_persons ) {
 334     // xxx improve style
 335     echo "<p class='not-relevant'>No person to add</p>";
 336   } else {
 337     $headers=array();
 338     $headers['email']='string';
 339     $headers['first']='string';
 340     $headers['last']='string';
 341     $headers['R']='string';
 342     $headers['+']="none";
 343     $options = array('notes_area'=>false,
 344                      'search_width'=>15,
 345                      'pagesize'=>8);
 346     // show search for admins only as other people won't get that many names to add
 347     if ( ! plc_is_admin() ) $options['search_area']=false;
 348
 349     $table=new PlekitTable('add_persons',$headers,'0',$options);
 350     $form=new PlekitForm(l_actions(),array('slice_id'=>$slice['slice_id']));
 351     $form->start();
 352     $table->start();
 353     if ($potential_persons) foreach ($potential_persons as $person) {
 354         $table->row_start();
 355         $table->cell(l_person_obj($person));
 356         $table->cell($person['first_name']);
 357         $table->cell($person['last_name']);
 358         $table->cell(plc_vertical_table ($person['roles']));
 359         $table->cell ($form->checkbox_html('person_ids[]',$person['person_id']));
 360         $table->row_end();
 361       }
 362     // add users
 363     $table->tfoot_start();
 364     $table->row_start();
 365     $table->cell($form->submit_html ("add-persons-in-slice","Add selected"),
 366                  array('hfill'=>true,'align'=>'right'));
 367     $table->row_end();
 368     $table->end();
 369     $form->end();
 370   }
 371   $toggle_persons->end();
 372 }
 373 $toggle->end();
 374
 375 //////////////////// nodes
 376 // minimal list as a start
 377 $node_columns = array('hostname','node_id','arch');
 378 $nodes=$api->GetNodes(array('node_id'=>$slice['node_ids']),$node_columns);
 379 $potential_nodes=$api->GetNodes(array('~node_id'=>$slice['node_ids']),$node_columns);
 380 $count=count($nodes);
 381
 382 $toggle=new PlekitToggle ('my-slice-nodes',"$count Nodes",
 383                           array('bubble'=>
 384                                 'Manage nodes attached to this slice',
 385                                 'visible'=>get_arg('show_nodes',false)));
 386 $toggle->start();
 387
 388 ////////// nodes currently in
 389 $count=count($nodes);
 390 $toggle_nodes=new PlekitToggle('my-slice-nodes-current',
 391                                "$count nodes currently in $name",
 392                                array('visible'=>get_arg('show_nodes_current',!$privileges)));
 393 $toggle_nodes->start();
 394
 395 $headers=array();
 396 $headers['peer']='string';
 397 $headers['hostname']='string';
 398 $headers['arch']='string';
 399 if ($privileges) $headers[plc_delete_icon()]="none";
 400
 401 $table_options = array('notes_area'=>false,
 402                        'search_width'=>15,
 403                        'pagesize'=>20);
 404 $table=new PlekitTable('nodes',$headers,'0',$table_options);
 405
 406 $form=new PlekitForm(l_actions(),array('slice_id'=>$slice['slice_id']));
 407 $form->start();
 408 $table->start();
 409 if ($nodes) foreach ($nodes as $node) {
 410   $table->row_start();
 411   $peers->cell($table,$node['peer_id']);
 412   $table->cell(l_node_obj($node));
 413   $table->cell($node['arch']);
 414   if ($privileges) $table->cell ($form->checkbox_html('node_ids[]',$node['node_id']));
 415   $table->row_end();
 416 }
 417 // actions area
 418 if ($privileges) {
 419
 420   // remove nodes
 421   $table->tfoot_start();
 422
 423   $table->row_start();
 424   $table->cell($form->submit_html ("remove-nodes-from-slice","Remove selected"),
 425                array('hfill'=>true,'align'=>'right'));
 426   $table->row_end();
 427  }
 428 $table->end();
 429 $toggle_nodes->end();
 430
 431 ////////// nodes to add
 432 if ($privileges) {
 433   $count=count($potential_nodes);
 434   $toggle_nodes=new PlekitToggle('my-slice-nodes-add',
 435                                  "$count more nodes available",
 436                                  array('visible'=>get_arg('show_persons_add',false)));
 437   $toggle_nodes->start();
 438
 439   if ( ! $potential_nodes ) {
 440     // xxx improve style
 441     echo "<p class='not-relevant'>No node to add</p>";
 442   } else {
 443     $headers=array();
 444     $headers['peer']='string';
 445     $headers['hostname']='string';
 446     $headers['arch']='string';
 447     $headers['+']="none";
 448
 449     $table=new PlekitTable('add_nodes',$headers,'1', $table_options);
 450     $form=new PlekitForm(l_actions(),
 451                          array('slice_id'=>$slice['slice_id']));
 452     $form->start();
 453     $table->start();
 454     if ($potential_nodes) foreach ($potential_nodes as $node) {
 455         $table->row_start();
 456         $peers->cell($table,$node['peer_id']);
 457         $table->cell(l_node_obj($node));
 458         $table->cell($node['arch']);
 459         $table->cell ($form->checkbox_html('node_ids[]',$node['node_id']));
 460         $table->row_end();
 461       }
 462     // add nodes
 463     $table->tfoot_start();
 464     $table->row_start();
 465     $table->cell($form->submit_html ("add-nodes-in-slice","Add selected"),
 466                  array('hfill'=>true,'align'=>'right'));
 467     $table->row_end();
 468     $table->end();
 469     $form->end();
 470   }
 471   $toggle_nodes->end();
 472 }
 473 $toggle->end();
 474
 475 //////////////////////////////////////////////////////////// Tags
 476 if ( $local_peer ) {
 477   $tags=$api->GetSliceTags (array('slice_id'=>$slice_id));
 478   function get_tagname ($tag) { return $tag['tagname'];}
 479   $tagnames = array_map ("get_tagname",$tags);
 480
 481   $toggle = new PlekitToggle ('slice-tags',count_english_warning($tags,'tag'),
 482                               array('bubble'=>'Inspect and set tags on tat slice',
 483                                     'visible'=>get_arg('show_tags',false)));
 484   $toggle->start();
 485
 486   $headers=array(
 487     "Name"=>"string",
 488     "Value"=>"string",
 489     "Node"=>"string",
 490     "NodeGroup"=>"string");
 491   if ($privileges) $headers[plc_delete_icon()]="none";
 492
 493   $table_options=array("notes_area"=>false,"pagesize_area"=>false,"search_width"=>10);
 494   $table=new PlekitTable("slice_tags",$headers,'0',$table_options);
 495   $form=new PlekitForm(l_actions(),
 496                        array('slice_id'=>$slice['slice_id']));
 497   $form->start();
 498   $table->start();
 499   if ($tags) {
 500     foreach ($tags as $tag) {
 501       $node_name = "ALL";
 502       if ($tag['node_id']) {
 503         $nodes = $api->GetNodes(array('node_id'=>$tag['node_id']));
 504         if($nodes) {
 505           $node = $nodes[0];
 506           $node_name = $node['hostname'];
 507         }
 508       }
 509       $nodegroup_name="n/a";
 510       if ($tag['nodegroup_id']) {
 511         $nodegroup=$api->GetNodeGroups(array('nodegroup_id'=>$tag['nodegroup_id']));
 512         if ($nodegroup) {
 513           $nodegroup = $nodegroup[0];
 514           $nodegroup_name = $nodegroup['groupname'];
 515         }
 516       }
 517       $table->row_start();
 518       $table->cell(l_tag_obj($tag));
 519       $table->cell($tag['value']);
 520       $table->cell($node_name);
 521       $table->cell($nodegroup_name);
 522       if ($privileges) $table->cell ($form->checkbox_html('slice_tag_ids[]',$tag['slice_tag_id']));
 523       $table->row_end();
 524     }
 525   }
 526   if ($privileges) {
 527     $table->tfoot_start();
 528     $table->row_start();
 529     $table->cell($form->submit_html ("delete-slice-tags","Remove selected"),
 530                  array('hfill'=>true,'align'=>'right'));
 531     $table->row_end();
 532
 533     $table->row_start();
 534     function tag_selector ($tag) {
 535       return array("display"=>$tag['tagname'],"value"=>$tag['tag_type_id']);
 536     }
 537     $all_tags= $api->GetTagTypes( array ("category"=>"slice*"), array("tagname","tag_type_id"));
 538     $selector_tag=array_map("tag_selector",$all_tags);
 539
 540     function node_selector($node) {
 541       return array("display"=>$node["hostname"],"value"=>$node['node_id']);
 542     }
 543     $all_nodes = $api->GetNodes( array ("node_id" => $slice['node_ids']), array("hostname","node_id"));
 544     $selector_node=array_map("node_selector",$all_nodes);
 545
 546     function nodegroup_selector($ng) {
 547       return array("display"=>$ng["groupname"],"value"=>$ng['nodegroup_id']);
 548     }
 549     $all_nodegroups = $api->GetNodeGroups( array("groupname"=>"*"), array("groupname","nodegroup_id"));
 550     $selector_nodegroup=array_map("nodegroup_selector",$all_nodegroups);
 551
 552     $table->cell($form->select_html("tag_type_id",$selector_tag,array('label'=>"Choose Tag")));
 553     $table->cell($form->text_html("value","",array('width'=>8)));
 554     $table->cell($form->select_html("node_id",$selector_node,array('label'=>"All Nodes")));
 555     $table->cell($form->select_html("nodegroup_id",$selector_nodegroup,array('label'=>"No Nodegroup")));
 556     $table->cell($form->submit_html("add-slice-tag","Set Tag"),array('columns'=>2,'align'=>'left'));
 557     $table->row_end();
 558   }
 559
 560   $form->end();
 561   $table->end();
 562   $toggle->end();
 563 }
 564
 565
 566 //////////////////////// renew slice
 567 if ($local_peer ) {
 568   if ( ! $renew_visible) renew_area ($slice,$site,false);
 569  }
 570
 571 $peers->block_end($peer_id);
 572
 573 // Print footer
 574 include 'plc_footer.php';
 575
 576 ?>