planetlab/slices/slice2.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 'plc_objects.php';
  20 require_once 'plc_visibletags2.php';
  21 require_once 'linetabs.php';
  22 require_once 'table2.php';
  23 require_once 'details.php';
  24 require_once 'toggle.php';
  25 require_once 'form.php';
  26 require_once 'raphael.php';
  27 require_once 'columns.php';
  28
  29 // keep css separate for now
  30 drupal_set_html_head('
  31 <link href="/planetlab/css/my_slice.css" rel="stylesheet" type="text/css" />
  32 <script src="/planetlab/slices/leases.js" type="text/javascript" charset="utf-8"></script>
  33 ');
  34
  35 // -------------------- admins potentially need to get full list of users
  36 ini_set('memory_limit','32M');
  37
  38 $profiling=false;
  39 if ($_GET['profiling']) $profiling=true;
  40
  41 if ($profiling)  plc_debug_prof_start();
  42
  43 // --------------------
  44 // recognized URL arguments
  45 $slice_id=intval($_GET['id']);
  46 if ( ! $slice_id ) { plc_error('Malformed URL - id not set'); return; }
  47
  48 ////////////////////
  49 // have to name columns b/c we need the non-native 'omf_control' column
  50 $slice_columns=array('slice_id','name','peer_id','site_id','person_ids','node_ids','expires',
  51                      'url','description','instantiation','omf_control');
  52 $slices= $api->GetSlices( array($slice_id), $slice_columns);
  53
  54 if (empty($slices)) {
  55   drupal_set_message ("Slice " . $slice_id . " not found");
  56   return;
  57  }
  58
  59 $slice=$slices[0];
  60
  61 if ($profiling) plc_debug_prof('2: slice',count($slices));
  62 // pull all node info to vars
  63 $name= $slice['name'];
  64 $expires = date( "d/m/Y", $slice['expires'] );
  65 $site_id= $slice['site_id'];
  66
  67 $person_ids=$slice['person_ids'];
  68
  69 // get peers
  70 $peer_id= $slice['peer_id'];
  71 $peers=new Peers ($api);
  72 $local_peer = ! $peer_id;
  73
  74 if ($profiling) plc_debug_prof('3: peers',count($peers));
  75
  76 // gets site info
  77 $sites= $api->GetSites( array( $site_id ) );
  78 $site=$sites[0];
  79 $site_name= $site['name'];
  80 $max_slices = $site['max_slices'];
  81
  82 if ($profiling) plc_debug_prof('4: sites',count($sites));
  83 //////////////////////////////////////// building blocks for the renew area
  84 // Constants
  85 global $DAY;            $DAY = 24*60*60;
  86 global $WEEK;           $WEEK = 7 * $DAY;
  87 global $MAX_WEEKS;      $MAX_WEEKS= 8;          // weeks from today
  88 global $GRACE_DAYS;     $GRACE_DAYS=10;         // days for renewal promoted on top
  89 global $NOW;            $NOW=mktime();
  90
  91 ////////////////////////////////////////////////////////////
  92 // make the renew area on top and open if the expiration time is less than 10 days from now
  93 function renew_needed ($slice) {
  94   global $DAY, $NOW, $GRACE_DAYS;
  95   $current_exp=$slice['expires'];
  96
  97   $time_left = $current_exp - $NOW;
  98   $visible = $time_left/$DAY <= $GRACE_DAYS;
  99   return $visible;
 100 }
 101
 102 function renew_area ($slice,$site,$visible) {
 103   global $DAY, $WEEK, $MAX_WEEKS, $GRACE_DAYS, $NOW;
 104
 105   $current_exp=$slice['expires'];
 106   $current_text = gmstrftime("%A %b-%d-%y %T %Z", $current_exp);
 107   $max_exp= $NOW + ($MAX_WEEKS * $WEEK); // seconds since epoch
 108   $max_text = gmstrftime("%A %b-%d-%y %T %Z", $max_exp);
 109
 110   // xxx some extra code needed to enable this area only if the slice description is OK:
 111   // description and url must be non void
 112   $toggle=
 113     new PlekitToggle('renew',"Expires $current_text - Renew this slice",
 114                      array("bubble"=>
 115                            "Enter this zone if you wish to renew your slice",
 116                            'visible'=>$visible));
 117   $toggle->start();
 118
 119   // xxx message could take roles into account
 120   if ($site['max_slices']<=0) {
 121      $message= <<< EOF
 122 <p class='my-slice-renewal'>Slice creation and renewal have been temporarily disabled for your
 123 <site. This may have occurred because your site's nodes have been down
 124 or unreachable for several weeks, and multiple attempts to contact
 125 your site's PI(s) and Technical Contact(s) have all failed. If so,
 126 contact your site's PI(s) and Technical Contact(s) and ask them to
 127 bring up your site's nodes. Please visit your <a
 128 href='/db/sites/index.php?id=$site_id'>site details</a> page to find
 129 out more about your site's nodes, and how to contact your site's PI(s)
 130 and Technical Contact(s).</p>
 131 EOF;
 132      echo $message;
 133
 134   } else {
 135     // xxx this is a rough cut and paste from the former UI
 136     // showing a datepicker view could be considered as well with some extra work
 137     // calculate possible extension lengths
 138     $selectors = array();
 139     foreach ( array ( 1 => "One more week",
 140                       2 => "Two more weeks",
 141                       3 => "Three more weeks",
 142                       4 => "One more month" ) as $weeks => $text ) {
 143       $candidate_exp = $current_exp + $weeks*$WEEK;
 144       if ( $candidate_exp < $max_exp) {
 145         $selectors []= array('display'=>"$text (" . gmstrftime("%A %b-%d-%y %T %Z", $candidate_exp) . ")",
 146                              'value'=>$candidate_exp);
 147         $max_renewal_weeks=$weeks;
 148         $max_renewal_date= gmstrftime("%A %b-%d-%y %T %Z", $candidate_exp);
 149       }
 150     }
 151
 152     if ( empty( $selectors ) ) {
 153       print <<< EOF
 154 <div class='my-slice-renewal'>
 155 Slices annot be renewed more than $MAX_WEEKS weeks from now, i.e. not beyond $max_text.
 156 For this reason, the current slice cannot be renewed any further into the future, try again closer to expiration date.
 157 </div>
 158 EOF;
 159      } else {
 160       print <<< EOF
 161 <div class='my-slice-renewal'>
 162 <p>You <span class='bold'>must</span> provide a short description,
 163 as well as a link to a project website, before renewing it.
 164
 165 <br/> Please make sure to provide reasonable details on <span class='bold'>
 166 the kind of traffic</span>, and <span class='bold'>copyrights</span> if relevant.
 167 Do <span class='bold'>not</span> provide bogus information; if a complaint is lodged against
 168 your slice  and your PlanetLab Operations Center is unable to determine what the normal behavior
 169 of your slice is, your slice may be deleted to resolve the complaint.</p>
 170
 171 <p><span class='bold'>NOTE:</span>
 172 Slices cannot be renewed beyond another $max_renewal_weeks week(s) ($max_renewal_date).
 173 </p>
 174 </div>
 175 EOF;
 176
 177       $form = new PlekitForm (l_actions(),
 178                               array('action'=>'renew-slice',
 179                                     'slice_id'=>$slice['slice_id']));
 180       $form->start();
 181       print $form->label_html('expires','Duration');
 182       print $form->select_html('expires',$selectors,array('label'=>'Pick one'));
 183       print $form->submit_html('renew-button','Renew');
 184       $form->end();
 185     }
 186   }
 187
 188   $toggle->end();
 189 }
 190
 191 ////////////////////////////////////////////////////////////
 192
 193 $am_in_slice = in_array(plc_my_person_id(),$person_ids);
 194
 195 if ($am_in_slice) {
 196   drupal_set_title("My slice " . $name);
 197  } else {
 198   drupal_set_title("Slice " . $name);
 199 }
 200
 201 $privileges = ( $local_peer && (plc_is_admin()  || plc_is_pi() || $am_in_slice));
 202 $tags_privileges = $privileges || plc_is_admin();
 203
 204 $tabs=array();
 205 $tabs [] = tab_nodes_slice($slice_id);
 206 $tabs [] = tab_site($site);
 207
 208 // are these the right privileges for deletion ?
 209 if ($privileges) {
 210   $tabs ['Delete']= array('url'=>l_actions(),
 211                           'method'=>'post',
 212                           'values'=>array('action'=>'delete-slice','slice_id'=>$slice_id),
 213                           'bubble'=>"Delete slice $name",
 214                           'confirm'=>"Are you sure to delete slice $name");
 215
 216   $tabs["Events"]=array_merge(tablook_event(),
 217                               array('url'=>l_event("Slice","slice",$slice_id),
 218                                     'bubble'=>"Events for slice $name"));
 219   $tabs["Comon"]=array_merge(tablook_comon(),
 220                              array('url'=>l_comon("slice_id",$slice_id),
 221                                    'bubble'=>"Comon page about slice $name"));
 222 }
 223
 224 plekit_linetabs($tabs);
 225
 226 ////////////////////////////////////////
 227 $peers->block_start($peer_id);
 228
 229 //////////////////////////////////////// renewal area
 230 // (1) close to expiration : show on top and open
 231
 232 if ($local_peer ) {
 233   $renew_visible = renew_needed ($slice);
 234   if ($renew_visible) renew_area ($slice,$site,true);
 235  }
 236
 237
 238 //////////////////// details
 239 // default for opening the details section or not ?
 240 if ($local_peer) {
 241   $default_show_details = true;
 242  } else {
 243   $default_show_details = ! $renew_visible;
 244  }
 245
 246 $toggle =
 247   new PlekitToggle ('my-slice-details',"Details",
 248                     array('bubble'=>
 249                           'Display and modify details for that slice',
 250                           'visible'=>get_arg('show_details',$default_show_details)));
 251 $toggle->start();
 252
 253 $details=new PlekitDetails($privileges);
 254 $details->form_start(l_actions(),array('action'=>'update-slice',
 255                                        'slice_id'=>$slice_id,
 256                                        'name'=>$name));
 257
 258 $details->start();
 259 if (! $local_peer) {
 260   $details->th_td("Peer",$peers->peer_link($peer_id));
 261   $details->space();
 262  }
 263
 264
 265 $details->th_td('Name',$slice['name']);
 266 $details->th_td('Description',$slice['description'],'description',
 267                 array('input_type'=>'textarea',
 268                       'width'=>50,'height'=>5));
 269 $details->th_td('URL',$slice['url'],'url',array('width'=>50));
 270 $details->tr_submit("submit","Update Slice");
 271 $details->th_td('Expires',$expires);
 272 $details->th_td('Instantiation',$slice['instantiation']);
 273 $details->th_td("OMF-friendly", ($slice['omf_control'] ? 'Yes' : 'No') . " [to change: see 'omf_control' in the tags section below]");
 274 $details->th_td('Site',l_site_obj($site));
 275 // xxx show the PIs here
 276 //$details->th_td('PIs',...);
 277 $details->end();
 278
 279 $details->form_end();
 280 $toggle->end();
 281
 282 //////////////////// persons
 283 $person_columns = array('email','person_id','first_name','last_name','roles');
 284 // get persons in slice
 285 if (!empty($person_ids))
 286   $persons=$api->GetPersons(array('person_id'=>$slice['person_ids']),$person_columns);
 287 // just propose to add everyone else
 288 // xxx this is maybe too much for admins as it slows stuff down
 289 // as regular persons can see only a fraction of the db anyway
 290 $potential_persons=
 291   $api->GetPersons(array('~person_id'=>$slice['person_ids'],
 292                          'peer_id'=>NULL,
 293                          'enabled'=>true),
 294                    $person_columns);
 295 $count=count($persons);
 296
 297 if ($profiling) plc_debug_prof('4: persons',count($persons));
 298 $toggle=
 299   new PlekitToggle ('my-slice-persons',"$count Users",
 300                     array('bubble'=>
 301                           'Manage accounts attached to this slice',
 302                           'visible'=>get_arg('show_persons',false)));
 303 $toggle->start();
 304
 305 ////////// people currently in
 306 // visible:
 307 // hide if both current+add are included
 308 // so user can chose which section is of interest
 309 // show otherwise
 310 $toggle_persons = new PlekitToggle ('my-slice-persons-current',
 311                                     "$count people currently in $name",
 312                                     array('visible'=>get_arg('show_persons_current',!$privileges)));
 313 $toggle_persons->start();
 314
 315 $headers=array();
 316 $headers['email']='string';
 317 $headers['first']='string';
 318 $headers['last']='string';
 319 $headers['R']='string';
 320 if ($privileges) $headers[plc_delete_icon()]="none";
 321 $table=new PlekitTable('persons',$headers,'0',
 322                        array('notes_area'=>false));
 323 $form=new PlekitForm(l_actions(),array('slice_id'=>$slice['slice_id']));
 324 $form->start();
 325 $table->start();
 326 if ($persons) foreach ($persons as $person) {
 327   $table->row_start();
 328   $table->cell(l_person_obj($person));
 329   $table->cell($person['first_name']);
 330   $table->cell($person['last_name']);
 331   $table->cell(plc_vertical_table ($person['roles']));
 332   if ($privileges) $table->cell ($form->checkbox_html('person_ids[]',$person['person_id']));
 333   $table->row_end();
 334 }
 335 // actions area
 336 if ($privileges) {
 337
 338   // remove persons
 339   $table->tfoot_start();
 340
 341   $table->row_start();
 342   $table->cell($form->submit_html ("remove-persons-from-slice","Remove selected"),
 343                array('hfill'=>true,'align'=>'right'));
 344   $table->row_end();
 345  }
 346 $table->end();
 347 $toggle_persons->end();
 348
 349 ////////// people to add
 350 if ($privileges) {
 351   $count=count($potential_persons);
 352   $toggle_persons = new PlekitToggle ('my-slice-persons-add',
 353                                       "$count people may be added to $name",
 354                                       array('visible'=>get_arg('show_persons_add',false)));
 355   $toggle_persons->start();
 356   if ( ! $potential_persons ) {
 357     // xxx improve style
 358     echo "<p class='not-relevant'>No person to add</p>";
 359   } else {
 360     $headers=array();
 361     $headers['email']='string';
 362     $headers['first']='string';
 363     $headers['last']='string';
 364     $headers['R']='string';
 365     $headers['+']="none";
 366     $options = array('notes_area'=>false,
 367                      'search_width'=>15,
 368                      'pagesize'=>8);
 369     // show search for admins only as other people won't get that many names to add
 370     if ( ! plc_is_admin() ) $options['search_area']=false;
 371
 372     $table=new PlekitTable('add_persons',$headers,'0',$options);
 373     $form=new PlekitForm(l_actions(),array('slice_id'=>$slice['slice_id']));
 374     $form->start();
 375     $table->start();
 376     if ($potential_persons) foreach ($potential_persons as $person) {
 377         $table->row_start();
 378         $table->cell(l_person_obj($person));
 379         $table->cell($person['first_name']);
 380         $table->cell($person['last_name']);
 381         $table->cell(plc_vertical_table ($person['roles']));
 382         $table->cell ($form->checkbox_html('person_ids[]',$person['person_id']));
 383         $table->row_end();
 384       }
 385     // add users
 386     $table->tfoot_start();
 387     $table->row_start();
 388     $table->cell($form->submit_html ("add-persons-in-slice","Add selected"),
 389                  array('hfill'=>true,'align'=>'right'));
 390     $table->row_end();
 391     $table->end();
 392     $form->end();
 393   }
 394   $toggle_persons->end();
 395 }
 396 $toggle->end();
 397
 398 //////////////////////////////////////////////////////////// Nodes
 399 // the nodes details to display here
 400 // (1) we search for the tag types for which 'category' matches 'node*/ui*'
 401 // all these tags will then be tentatively displayed in this area
 402 // (2) further information can also be optionally specified in the category:
 403 //     (.) we split the category with '/' and search for assignments of the form var=value
 404 //     (.) header can be set to supersede the column header (default is tagname)
 405 //     (.) rank can be used for ordering the columns (default is tagname)
 406 //     (.) type is passed to the javascript table, for sorting (default is 'string')
 407
 408 // minimal list as a start
 409 $node_fixed_columns = array('hostname','node_id','peer_id','slice_ids_whitelist',
 410                             'run_level','boot_state','last_contact','node_type');
 411 // create a VisibleTags object : basically the list of tag columns to show
 412 $visibletags = new VisibleTags ($api, 'node');
 413 $visiblecolumns = $visibletags->column_names();
 414 $node_columns=array_merge($node_fixed_columns,$visiblecolumns);
 415
 416 // optimizing calls to GetNodes
 417 //$all_nodes=$api->GetNodes(NULL,$node_columns);
 418 //$slice_nodes=$api->GetNodes(array('node_id'=>$slice['node_ids']),$node_columns);
 419 //$potential_nodes=$api->GetNodes(array('~node_id'=>$slice['node_ids']),$node_columns);
 420
 421
 422 //NEW CODE FOR ENABLING COLUMN CONFIGURATION
 423
 424 //prepare fix and configurable columns
 425
 426 $fix_columns = array();
 427 $fix_columns[]=array('tagname'=>'hostname', 'header'=>'hostname', 'type'=>'string', 'title'=>'The name of the node');
 428 $fix_columns[]=array('tagname'=>'peer_id', 'header'=>'AU', 'type'=>'string', 'title'=>'Authority');
 429 $fix_columns[]=array('tagname'=>'run_level', 'header'=>'ST', 'type'=>'string', 'title'=>'Status');
 430 $fix_columns[]=array('tagname'=>'node_type', 'header'=>'RES', 'type'=>'string', 'title'=>'Reservable');
 431
 432 // columns that correspond to the visible tags for nodes (*node/ui*)
 433 $visibletags = new VisibleTags ($api, 'node');
 434 $visibletags->columns();
 435 $tag_columns = $visibletags->headers();
 436
 437 // extra columns that are not tags (for the moment not sorted correctly)
 438
 439 $extra_columns = array();
 440 //$extra_columns[]=array('tagname'=>'site_id', 'header'=>'SN', 'type'=>'string', 'title'=>'Site name', 'description'=>'Site name');
 441
 442 //get user's column configuration
 443
 444 $first_time_configuration = 'false';
 445 $default_configuration = "hostname:f|ST:f|AU:f|RES:f";
 446 $column_configuration = "";
 447 $slice_column_configuration = "";
 448
 449 $show_configuration = "reservable:yes";
 450 $slice_show_configuration = "";
 451 $show_reservable_message = "";
 452
 453 $PersonTags=$api->GetPersonTags (array('person_id'=>$plc->person['person_id']));
 454 //print_r($PersonTags);
 455 foreach ($PersonTags as $ptag) {
 456         if ($ptag['tagname'] == 'columnconf')
 457         {
 458                 $column_configuration = $ptag['value'];
 459                 $conf_tag_id = $ptag['person_tag_id'];
 460         }
 461         if ($ptag['tagname'] == 'showconf')
 462         {
 463                 $show_configuration = $ptag['value'];
 464                 $show_tag_id = $ptag['person_tag_id'];
 465         }
 466 }
 467
 468 //print("<br>person column configuration = ".$column_configuration);
 469
 470 $sliceconf_exists = false;
 471 if ($column_configuration == "")
 472 {
 473         $column_configuration = $slice_id.";";
 474         $sliceconf_exists = true;
 475 }
 476 else {
 477         $slice_conf = explode(";",$column_configuration);
 478         for ($i=0; $i<count($slice_conf); $i++ ) {
 479                 if ($slice_conf[$i] == $slice_id)
 480                 {
 481                         $i++;
 482                         $slice_column_configuration = $slice_conf[$i];
 483                         $sliceconf_exists = true;
 484                         break;
 485                 }
 486                 else
 487                 {
 488                         $i++;
 489                         $slice_column_configuration = $slice_conf[$i];
 490                 }
 491         }
 492 }
 493
 494 if ($sliceconf_exists == false)
 495         $column_configuration = $column_configuration.";".$slice_id.";";
 496
 497 //print("<br>slice configuration = ".$slice_column_configuration);
 498
 499 //instantiate the column configuration class, which prepares the headers array
 500
 501 if ($slice_column_configuration == "")
 502         $full_configuration = $default_configuration;
 503 else
 504         $full_configuration = $default_configuration."|".$slice_column_configuration;
 505
 506 $ConfigureColumns =new PlekitColumns($full_configuration, $fix_columns, $tag_columns, $extra_columns);
 507
 508 $node_columns = $ConfigureColumns->node_tags();
 509 //print_r($node_columns);
 510 $all_nodes=$api->GetNodes(NULL,$node_columns);
 511
 512 //print("<br>person show configuration = ".$show_configuration);
 513
 514 $show_conf = explode(";",$show_configuration);
 515 for ($i=0; $i<count($show_conf); $i++ ) {
 516                 $i++;
 517                 $slice_show_configuration = $show_conf[$i];
 518 }
 519 $reservable_value = explode(":", $slice_show_configuration);
 520         if ($reservable_value[0]=="reservable" && $reservable_value[1] == "no")
 521                 $show_reservable_message = "display:none";
 522
 523 //print("<br>slice show configuration = ".$slice_show_configuration);
 524
 525 $slice_nodes=array();
 526 $potential_nodes=array();
 527 $reservable_nodes=array();
 528 foreach ($all_nodes as $node) {
 529   if (in_array($node['node_id'],$slice['node_ids'])) {
 530     $slice_nodes[]=$node;
 531     if ($node['node_type']=='reservable') $reservable_nodes[]=$node;
 532   } else {
 533     $potential_nodes[]=$node;
 534   }
 535 }
 536 if ($profiling) plc_debug_prof('5: nodes',count($slice_nodes));
 537 ////////////////////
 538 // outline the number of reservable nodes
 539 $nodes_message=count_english($slice_nodes,"node");
 540 if (count($reservable_nodes)) $nodes_message .= " (" . count($reservable_nodes) . " reservable)";
 541 $toggle=new PlekitToggle ('my-slice-nodes',$nodes_message,
 542                           array('bubble'=>
 543                                 'Manage nodes attached to this slice',
 544                                 'visible'=>get_arg('show_nodes',false)));
 545 $toggle->start();
 546
 547 ////////// show a notice to people having attached a reservable node
 548 if (count($reservable_nodes) && $privileges) {
 549   $mark=reservable_mark();
 550   print <<<EOF
 551 <div id='note_reservable_div' style="align:center; border : solid 2px red; padding:4px; width:800px; $show_reservable_message">
 552 <table align=center><tr><td valign=top>
 553 You have attached one or more <span class='bold'>reservable nodes</span> to your slice.
 554 Reservable nodes show up with the '$mark' mark.
 555 Your slivers will be available <span class='bold'>only during timeslots
 556 where you have obtained leases</span>.
 557 You can manage your leases in the tab below.
 558 <br>
 559 Please note that as of August 2010 this feature is experimental.
 560 Feedback is appreciated at <a href="mailto:devel@planet-lab.org">devel@planet-lab.org</a>
 561 </td><td valign=top><span onClick=closeShowReservable()><img class='reset' src="/planetlab/icons/clear.png" alt="hide message"></span>
 562 </td></tr></table>
 563 </div>
 564 EOF;
 565 }
 566
 567 //////////////////// reservable nodes area
 568 $count=count($reservable_nodes);
 569 if ($count && $privileges) {
 570   // having reservable nodes in white lists looks a bit off scope for now...
 571   $toggle_nodes=new PlekitToggle('my-slice-nodes-reserve',
 572                                  "Leases - " . count($reservable_nodes) . " reservable node(s)",
 573                                  array('visible'=>get_arg('show_nodes_resa',false)));
 574   $toggle_nodes->start();
 575   $grain=$api->GetLeaseGranularity();
 576   if ($profiling) plc_debug_prof('6 granul',$grain);
 577   // where to start from, expressed as an offset in hours from now
 578   $resa_offset=$_GET['resa_offset'];
 579   if ( ! $resa_offset ) $resa_offset=0;
 580   $rough_start=time()+$resa_offset*3600;
 581   // xxx should be configurable
 582   $resa_slots=$_GET['resa_slots'];
 583   if ( ! $resa_slots ) $resa_slots = 36;
 584   // for now, show the next 72 hours, or 72 grains, which ever is smaller
 585   $duration=$resa_slots*$grain;
 586   $steps=$duration/$grain;
 587   $start=intval($rough_start/$grain)*$grain;
 588   $end=$rough_start+$duration;
 589   $lease_columns=array('lease_id','name','t_from','t_until','hostname','name');
 590   $leases=$api->GetLeases(array(']t_until'=>$rough_start,'[t_from'=>$end,'-SORT'=>'t_from'),$lease_columns);
 591   if ($profiling) plc_debug_prof('7 leases',count($leases));
 592   // hash nodes -> leases
 593   $host_hash=array();
 594   foreach ($leases as $lease) {
 595     $hostname=$lease['hostname'];
 596     if ( ! $host_hash[$hostname] ) {
 597         $host_hash[$hostname]=array();
 598     }
 599     // resync within the table
 600     $lease['nfrom']=($lease['t_from']-$start)/$grain;
 601     $lease['nuntil']=($lease['t_until']-$start)/$grain;
 602     $host_hash[$hostname] []= $lease;
 603   }
 604   # leases_data is the name used by leases.js to locate this table
 605   echo "<table id='leases_data'>";
 606   # pass (slice_id,slicename) as the [0,0] coordinate as thead>tr>td
 607   echo "<thead><tr><td>" . $slice['slice_id'] . '&' . $slice['name'] . "</td>";
 608   # the timeslot headers read (timestamp,label)
 609   $day_names=array('Su','M','Tu','W','Th','F','Sa');
 610   for ($i=0; $i<$steps; $i++) {
 611     $timestamp=($start+$i*$grain);
 612     $day=$day_names[intval(strftime("%w",$timestamp))];
 613     $label=$day . strftime(" %H:%M",$timestamp);
 614     // expose in each header cell the full timestamp, and how to display it - use & as a separator*/
 615     echo "<th>" . implode("&",array($timestamp,$label)) . "</th>";
 616   }
 617   echo "</tr></thead><tbody>";
 618   // todo - sort on hostnames
 619   function sort_hostname ($a,$b) { return ($a['hostname']<$b['hostname'])?-1:1;}
 620   usort($reservable_nodes,sort_hostname);
 621   foreach ($reservable_nodes as $node) {
 622     echo "<tr><th scope='row'>". $node['hostname'] . "</th>";
 623     $hostname=$node['hostname'];
 624     $leases=$host_hash[$hostname];
 625     $counter=0;
 626     while ($counter<$steps) {
 627       if ($leases && ($leases[0]['nfrom']<=$counter)) {
 628         $lease=array_shift($leases);
 629         /* nicer display, merge two consecutive leases for the same slice
 630            avoid doing that for now, as it might makes things confusing */
 631         /* while ($leases && ($leases[0]['name']==$lease['name']) && ($leases[0]['nfrom']==$lease['nuntil'])) {
 632           $lease['nuntil']=$leases[0]['nuntil'];
 633           array_shift($leases);
 634           }*/
 635         $duration=$lease['nuntil']-$counter;
 636         echo "<td colspan='$duration'>" . $lease['lease_id'] . '&' . $lease['name'] . "</td>";
 637         $counter=$lease['nuntil'];
 638       } else {
 639         echo "<td></td>";
 640         $counter+=1;
 641       }
 642     }
 643     echo "</tr>";
 644   }
 645   echo "</tbody></table>\n";
 646
 647   // the general layout for the scheduler
 648   echo <<< EOF
 649 <div id='leases_area'></div>
 650
 651 <div id='leases_buttons'>
 652   <button id='leases_clear' type='submit'>Clear</button>
 653   <button id='leases_submit' type='submit'>Submit</button>
 654 </div>
 655 EOF;
 656
 657   $toggle_nodes->end();
 658  }
 659
 660
 661 //////////////////// node configuration panel
 662
 663 $toggle_nodes=new PlekitToggle('my-slice-nodes-configuration',
 664                                "Node table layout",
 665                                array('visible'=>'1'));
 666 $toggle_nodes->start();
 667
 668 //usort ($table_headers, create_function('$col1,$col2','return strcmp($col1["header"],$col2["header"]);'));
 669 //print("<p>TABLE HEADERS<p>");
 670 //print_r($table_headers);
 671
 672 print("<div id='debug'></div>");
 673 print("<input type='hidden' id='slice_id' value='".$slice['slice_id']."' />");
 674 print("<input type='hidden' id='person_id' value='".$plc->person['person_id']."' />");
 675 print("<input type='hidden' id='conf_tag_id' value='".$conf_tag_id."' />");
 676 print("<input type='hidden' id='show_tag_id' value='".$show_tag_id."' />");
 677 print("<input type='hidden' id='column_configuration' value='".$slice_column_configuration."' />");
 678 print("<br><input type='hidden' size=80 id='full_column_configuration' value='".$column_configuration."' />");
 679 print("<input type='hidden' id='previousConf' value='".$slice_column_configuration."'></input>");
 680 print("<input type='hidden' id='defaultConf' value='".$default_configuration."'></input>");
 681
 682 $ConfigureColumns->configuration_panel_html(true);
 683
 684 $ConfigureColumns->javascript_init();
 685
 686 $toggle_nodes->end();
 687
 688
 689
 690 //////////////////// nodes currently in
 691 $toggle_nodes=new PlekitToggle('my-slice-nodes-current',
 692                                count_english($slice_nodes,"node") . " currently in $name",
 693                                array('visible'=>get_arg('show_nodes_current',!$privileges)));
 694 $toggle_nodes->start();
 695
 696 $headers=array();
 697 $notes=array();
 698 //$notes=array_merge($notes,$visibletags->notes());
 699 $notes [] = "For information about the different columns please see the <b>node table layout</b> tab above";
 700
 701 /*
 702 $headers['peer']='string';
 703 $headers['hostname']='string';
 704 $short="-S-"; $long=Node::status_footnote(); $type='string';
 705         $headers[$short]=array('type'=>$type,'title'=>$long); $notes []= "$short = $long";
 706 $short=reservable_mark(); $long=reservable_legend(); $type='string';
 707         $headers[$short]=array('type'=>$type,'title'=>$long); $notes []= "$short = $long";
 708 // the extra tags, configured for the UI
 709 $headers=array_merge($headers,$visibletags->headers());
 710
 711 if ($privileges) $headers[plc_delete_icon()]="none";
 712 */
 713
 714 $edit_header = array();
 715 if ($privileges) $edit_header[plc_delete_icon()]="none";
 716 $headers = array_merge($ConfigureColumns->get_headers(),$edit_header);
 717
 718 //print("<p>HEADERS<p>");
 719 //print_r($headers);
 720
 721 $table_options = array('notes'=>$notes,
 722                        'search_width'=>15,
 723                        'pagesize'=>20,
 724                         'configurable'=>true);
 725
 726 $table=new PlekitTable('nodes',$headers,NULL,$table_options);
 727
 728 $form=new PlekitForm(l_actions(),array('slice_id'=>$slice['slice_id']));
 729 $form->start();
 730 $table->start();
 731 if ($slice_nodes) foreach ($slice_nodes as $node) {
 732   $table->row_start();
 733
 734 $table->cell($node['node_id'], array('display'=>'none'));
 735
 736   $table->cell(l_node_obj($node));
 737   $peers->cell($table,$node['peer_id']);
 738   $run_level=$node['run_level'];
 739   list($label,$class) = Node::status_label_class_($node);
 740   $table->cell ($label,array('class'=>$class));
 741   $table->cell( ($node['node_type']=='reservable')?reservable_mark():"" );
 742
 743  //foreach ($visiblecolumns as $tagname) $table->cell($node[$tagname]);
 744  $ConfigureColumns->cells($table, $node);
 745
 746   if ($privileges) $table->cell ($form->checkbox_html('node_ids[]',$node['node_id']));
 747   $table->row_end();
 748 }
 749 // actions area
 750 if ($privileges) {
 751
 752   // remove nodes
 753   $table->tfoot_start();
 754
 755   $table->row_start();
 756   $table->cell($form->submit_html ("remove-nodes-from-slice","Remove selected"),
 757                array('hfill'=>true,'align'=>'right'));
 758   $table->row_end();
 759  }
 760 $table->end();
 761 $toggle_nodes->end();
 762
 763 //////////////////// nodes to add
 764 if ($privileges) {
 765   $new_potential_nodes = array();
 766   if ($potential_nodes) foreach ($potential_nodes as $node) {
 767       $emptywl=empty($node['slice_ids_whitelist']);
 768       $inwl = (!emptywl) and in_array($slice['slice_id'],$node['slice_ids_whitelist']);
 769       if ($emptywl or $inwl)
 770         $new_potential_nodes[]=$node;
 771   }
 772   $potential_nodes=$new_potential_nodes;
 773
 774   $count=count($potential_nodes);
 775   $toggle_nodes=new PlekitToggle('my-slice-nodes-add',
 776                                  count_english($potential_nodes,"more node") . " available",
 777                                  array('visible'=>get_arg('show_nodes_add',false)));
 778   $toggle_nodes->start();
 779
 780   if ( $potential_nodes ) {
 781     $headers=array();
 782     $notes=array();
 783
 784
 785 /*
 786     $headers['peer']='string';
 787     $headers['hostname']='string';
 788     $short="-S-"; $long=Node::status_footnote(); $type='string';
 789         $headers[$short]=array('type'=>$type,'title'=>$long); $notes []= "$short = $long";
 790         $short=reservable_mark(); $long=reservable_legend(); $type='string';
 791         $headers[$short]=array('type'=>$type,'title'=>$long); $notes []= "$short = $long";
 792     // the extra tags, configured for the UI
 793     $headers=array_merge($headers,$visibletags->headers());
 794     $headers['+']="none";
 795 */
 796
 797     $add_header = array();
 798     $add_header['+']="none";
 799     $headers = array_merge($ConfigureColumns->get_headers(),$add_header);
 800
 801     //$notes=array_merge($notes,$visibletags->notes());
 802     $notes [] = "For information about the different columns please see the <b>node table layout</b> tab above";
 803
 804     $table=new PlekitTable('add_nodes',$headers,NULL, $table_options);
 805     $form=new PlekitForm(l_actions(),
 806                          array('slice_id'=>$slice['slice_id']));
 807     $form->start();
 808     $table->start();
 809     if ($potential_nodes) foreach ($potential_nodes as $node) {
 810         $table->row_start();
 811
 812 $table->cell($node['node_id'], array('display'=>'none'));
 813
 814         $table->cell(l_node_obj($node));
 815         $peers->cell($table,$node['peer_id']);
 816         list($label,$class) = Node::status_label_class_($node);
 817         $table->cell ($label,array('class'=>$class));
 818         $table->cell( ($node['node_type']=='reservable')?reservable_mark():"" );
 819
 820         //foreach ($visiblecolumns as $tagname) $table->cell($node[$tagname]);
 821         $ConfigureColumns->cells($table, $node);
 822
 823         $table->cell ($form->checkbox_html('node_ids[]',$node['node_id']));
 824         $table->row_end();
 825       }
 826     // add nodes
 827     $table->tfoot_start();
 828     $table->row_start();
 829     $table->cell($form->submit_html ("add-nodes-in-slice","Add selected"),
 830                  array('hfill'=>true,'align'=>'right'));
 831     $table->row_end();
 832     $table->end();
 833     $form->end();
 834   }
 835   $toggle_nodes->end();
 836 }
 837
 838 $toggle->end();
 839
 840 // very wide values get abbreviated
 841 $tag_value_threshold=24;
 842 //////////////////////////////////////////////////////////// Tags
 843 //if ( $local_peer ) {
 844   $tags=$api->GetSliceTags (array('slice_id'=>$slice_id));
 845   if ($profiling) plc_debug_prof('8 slice tags',count($tags));
 846   function get_tagname ($tag) { return $tag['tagname'];}
 847   $tagnames = array_map ("get_tagname",$tags);
 848
 849   $toggle = new PlekitToggle ('slice-tags',count_english_warning($tags,'tag'),
 850                               array('bubble'=>'Inspect and set tags on tat slice',
 851                                     'visible'=>get_arg('show_tags',false)));
 852   $toggle->start();
 853
 854   $headers=array(
 855     "Name"=>"string",
 856     "Value"=>"string",
 857     "Node"=>"string",
 858     "NodeGroup"=>"string");
 859   if ($tags_privileges) $headers[plc_delete_icon()]="none";
 860
 861   $table_options=array("notes_area"=>false,"pagesize_area"=>false,"search_width"=>10);
 862   $table=new PlekitTable("slice_tags",$headers,'0',$table_options);
 863   $form=new PlekitForm(l_actions(),
 864                        array('slice_id'=>$slice['slice_id']));
 865   $form->start();
 866   $table->start();
 867   if ($tags) {
 868     foreach ($tags as $tag) {
 869       $node_name = "ALL";
 870       if ($tag['node_id']) {
 871         $tag_nodes = $api->GetNodes(array('node_id'=>$tag['node_id']));
 872         if ($profiling) plc_debug_prof('9 node for slice tag',count($tag_nodes));
 873         if($tag_nodes) {
 874           $node = $tag_nodes[0];
 875           $node_name = $node['hostname'];
 876         }
 877       }
 878       $nodegroup_name="n/a";
 879       if ($tag['nodegroup_id']) {
 880         $nodegroups=$api->GetNodeGroups(array('nodegroup_id'=>$tag['nodegroup_id']));
 881         if ($profiling) plc_debug_prof('10 nodegroup for slice tag',$nodegroup);
 882         if ($nodegroup) {
 883           $nodegroup = $nodegroups[0];
 884           $nodegroup_name = $nodegroup['groupname'];
 885         }
 886       }
 887       $table->row_start();
 888       $table->cell(l_tag_obj($tag));
 889       // very wide values get abbreviated
 890       $table->cell(truncate_and_popup($tag['value'],$tag_value_threshold));
 891       $table->cell($node_name);
 892       $table->cell($nodegroup_name);
 893       if ($tags_privileges) $table->cell ($form->checkbox_html('slice_tag_ids[]',$tag['slice_tag_id']));
 894       $table->row_end();
 895     }
 896   }
 897   if ($tags_privileges) {
 898     $table->tfoot_start();
 899     $table->row_start();
 900     $table->cell($form->submit_html ("delete-slice-tags","Remove selected"),
 901                  array('hfill'=>true,'align'=>'right'));
 902     $table->row_end();
 903
 904     $table->row_start();
 905     function tag_selector ($tag) {
 906       return array("display"=>$tag['tagname'],"value"=>$tag['tag_type_id']);
 907     }
 908     $all_tags= $api->GetTagTypes( array ("category"=>"slice*","-SORT"=>"+tagname"), array("tagname","tag_type_id"));
 909     if ($profiling) plc_debug_prof('11 tagtypes',count($all_tags));
 910     $selector_tag=array_map("tag_selector",$all_tags);
 911
 912     function node_selector($node) {
 913       return array("display"=>$node["hostname"],"value"=>$node['node_id']);
 914     }
 915     $selector_node=array_map("node_selector",$slice_nodes);
 916
 917     function nodegroup_selector($ng) {
 918       return array("display"=>$ng["groupname"],"value"=>$ng['nodegroup_id']);
 919     }
 920     $all_nodegroups = $api->GetNodeGroups( array("groupname"=>"*"), array("groupname","nodegroup_id"));
 921     if ($profiling) plc_debug_prof('13 nodegroups',count($all_nodegroups));
 922     $selector_nodegroup=array_map("nodegroup_selector",$all_nodegroups);
 923
 924     $table->cell($form->select_html("tag_type_id",$selector_tag,array('label'=>"Choose Tag")));
 925     $table->cell($form->text_html("value","",array('width'=>8)));
 926     $table->cell($form->select_html("node_id",$selector_node,array('label'=>"All Nodes")));
 927     $table->cell($form->select_html("nodegroup_id",$selector_nodegroup,array('label'=>"No Nodegroup")));
 928     $table->cell($form->submit_html("add-slice-tag","Set Tag"),array('columns'=>2,'align'=>'left'));
 929     $table->row_end();
 930   }
 931
 932   $table->end();
 933   $form->end();
 934   $toggle->end();
 935 //}
 936
 937
 938 //////////////////////// renew slice
 939 if ($local_peer ) {
 940   if ( ! $renew_visible) renew_area ($slice,$site,false);
 941  }
 942
 943 $peers->block_end($peer_id);
 944
 945 if ($profiling) plc_debug_prof_end();
 946
 947 // Print footer
 948 include 'plc_footer.php';
 949
 950 ?>