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 $table=new PlekitTable('nodes',$headers,'0',
 405                        array('notes_area'=>false));
 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   $table->cell(l_node_obj($node));
 412   $table->cell($node['arch']);
 413   if ($privileges) $table->cell ($form->checkbox_html('node_ids[]',$node['node_id']));
 414   $table->row_end();
 415 }
 416 // actions area
 417 if ($privileges) {
 418
 419   // remove nodes
 420   $table->tfoot_start();
 421
 422   $table->row_start();
 423   $table->cell($form->submit_html ("remove-nodes-from-slice","Remove selected"),
 424                array('hfill'=>true,'align'=>'right'));
 425   $table->row_end();
 426  }
 427 $table->end();
 428 $toggle_nodes->end();
 429
 430 ////////// nodes to add
 431 if ($privileges) {
 432   $count=count($potential_nodes);
 433   $toggle_nodes=new PlekitToggle('my-slice-nodes-add',
 434                                  "$count more nodes available",
 435                                  array('visible'=>get_arg('show_persons_add',false)));
 436   $toggle_nodes->start();
 437
 438   if ( ! $potential_nodes ) {
 439     // xxx improve style
 440     echo "<p class='not-relevant'>No node to add</p>";
 441   } else {
 442     $headers=array();
 443     $headers['hostname']='string';
 444     $headers['arch']='string';
 445     $headers['Add']="none";
 446     $options = array('notes_area'=>false,
 447                      'search_width'=>15,
 448                      'pagesize'=>20);
 449
 450     $table=new PlekitTable('add_nodes',$headers,'1',$options);
 451     $form=new PlekitForm(l_actions(),
 452                          array('slice_id'=>$slice['slice_id']));
 453     $form->start();
 454     $table->start();
 455     if ($potential_nodes) foreach ($potential_nodes as $node) {
 456         $table->row_start();
 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
 477 if ($local_peer ) {
 478   if ( ! $renew_visible) renew_area ($slice,$site,false);
 479  }
 480
 481 $peers->block_end($peer_id);
 482
 483 // Print footer
 484 include 'plc_footer.php';
 485
 486 ?>