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', 'site_id',
 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
 415 // optimizing calls to GetNodes
 416 //$all_nodes=$api->GetNodes(NULL,$node_columns);
 417 //$slice_nodes=$api->GetNodes(array('node_id'=>$slice['node_ids']),$node_columns);
 418 //$potential_nodes=$api->GetNodes(array('~node_id'=>$slice['node_ids']),$node_columns);
 419
 420
 421 //NEW CODE FOR ENABLING COLUMN CONFIGURATION
 422
 423 //prepare fix and configurable columns
 424
 425 $fix_columns = array();
 426 $fix_columns[]=array('tagname'=>'hostname', 'header'=>'hostname', 'type'=>'string', 'title'=>'The name of the node');
 427 $fix_columns[]=array('tagname'=>'peer_id', 'header'=>'AU', 'type'=>'string', 'title'=>'Authority');
 428 $fix_columns[]=array('tagname'=>'run_level', 'header'=>'ST', 'type'=>'string', 'title'=>'Status');
 429 $fix_columns[]=array('tagname'=>'node_type', 'header'=>'RES', 'type'=>'string', 'title'=>'Reservable');
 430
 431 // columns that correspond to the visible tags for nodes (*node/ui*)
 432 $visibletags = new VisibleTags ($api, 'node');
 433 $visibletags->columns();
 434 $tag_columns = $visibletags->headers();
 435
 436 // extra columns that are not tags (for the moment not sorted correctly)
 437
 438 $extra_columns = array();
 439 $extra_columns[]=array('tagname'=>'sitename', 'header'=>'SN', 'type'=>'string', 'title'=>'Site name', 'fetched'=>true);
 440 $extra_columns[]=array('tagname'=>'domain', 'header'=>'DN', 'type'=>'string', 'title'=>'Toplevel domain name', 'fetched'=>true);
 441 $extra_columns[]=array('tagname'=>'ipaddress', 'header'=>'IP', 'type'=>'string', 'title'=>'IP Address', 'fetched'=>true);
 442
 443 //get user's column configuration
 444
 445 $first_time_configuration = 'false';
 446 $default_configuration = "hostname:f|ST:f|AU:f|RES:f";
 447 $column_configuration = "";
 448 $slice_column_configuration = "";
 449
 450 $show_configuration = "reservable:yes";
 451 $slice_show_configuration = "";
 452 $show_reservable_message = "";
 453
 454 $PersonTags=$api->GetPersonTags (array('person_id'=>$plc->person['person_id']));
 455 //print_r($PersonTags);
 456 foreach ($PersonTags as $ptag) {
 457         if ($ptag['tagname'] == 'columnconf')
 458         {
 459                 $column_configuration = $ptag['value'];
 460                 $conf_tag_id = $ptag['person_tag_id'];
 461         }
 462         if ($ptag['tagname'] == 'showconf')
 463         {
 464                 $show_configuration = $ptag['value'];
 465                 $show_tag_id = $ptag['person_tag_id'];
 466         }
 467 }
 468
 469 //print("<br>person column configuration = ".$column_configuration);
 470
 471 $sliceconf_exists = false;
 472 if ($column_configuration == "")
 473 {
 474         $column_configuration = $slice_id.";default";
 475         $sliceconf_exists = true;
 476 }
 477 else {
 478         $slice_conf = explode(";",$column_configuration);
 479         for ($i=0; $i<count($slice_conf); $i++ ) {
 480                 if ($slice_conf[$i] == $slice_id)
 481                 {
 482                         $i++;
 483                         $slice_column_configuration = $slice_conf[$i];
 484                         $sliceconf_exists = true;
 485                         break;
 486                 }
 487                 else
 488                 {
 489                         $i++;
 490                         $slice_column_configuration = $slice_conf[$i];
 491                 }
 492         }
 493 }
 494
 495 if ($sliceconf_exists == false)
 496         $column_configuration = $column_configuration.";".$slice_id.";default";
 497
 498 //print("<br>slice configuration = ".$slice_column_configuration);
 499
 500 //instantiate the column configuration class, which prepares the headers array
 501
 502 if ($slice_column_configuration == "")
 503         $full_configuration = $default_configuration;
 504 else
 505         $full_configuration = $default_configuration."|".$slice_column_configuration;
 506
 507 $ConfigureColumns =new PlekitColumns($full_configuration, $fix_columns, $tag_columns, $extra_columns);
 508
 509 $visiblecolumns = $ConfigureColumns->node_tags();
 510
 511 $node_columns=array_merge($node_fixed_columns,$visiblecolumns);
 512 //print_r($node_columns);
 513 $all_nodes=$api->GetNodes(NULL,$node_columns);
 514
 515 //print("<br>person show configuration = ".$show_configuration);
 516
 517 $show_conf = explode(";",$show_configuration);
 518 for ($i=0; $i<count($show_conf); $i++ ) {
 519                 $i++;
 520                 $slice_show_configuration = $show_conf[$i];
 521 }
 522 $reservable_value = explode(":", $slice_show_configuration);
 523         if ($reservable_value[0]=="reservable" && $reservable_value[1] == "no")
 524                 $show_reservable_message = "display:none";
 525
 526 //print("<br>slice show configuration = ".$slice_show_configuration);
 527
 528 $slice_nodes=array();
 529 $potential_nodes=array();
 530 $reservable_nodes=array();
 531 foreach ($all_nodes as $node) {
 532   if (in_array($node['node_id'],$slice['node_ids'])) {
 533     $slice_nodes[]=$node;
 534     if ($node['node_type']=='reservable') $reservable_nodes[]=$node;
 535   } else {
 536     $potential_nodes[]=$node;
 537   }
 538 }
 539 if ($profiling) plc_debug_prof('5: nodes',count($slice_nodes));
 540 ////////////////////
 541 // outline the number of reservable nodes
 542 $nodes_message=count_english($slice_nodes,"node");
 543 if (count($reservable_nodes)) $nodes_message .= " (" . count($reservable_nodes) . " reservable)";
 544 $toggle=new PlekitToggle ('my-slice-nodes',$nodes_message,
 545                           array('bubble'=>
 546                                 'Manage nodes attached to this slice',
 547                                 'visible'=>get_arg('show_nodes',false)));
 548 $toggle->start();
 549
 550 ////////// show a notice to people having attached a reservable node
 551 if (count($reservable_nodes) && $privileges) {
 552   $mark=reservable_mark();
 553   print <<<EOF
 554 <div id='note_reservable_div' style="align:center; border : solid 2px red; padding:4px; width:800px; $show_reservable_message">
 555 <table align=center><tr><td valign=top>
 556 You have attached one or more <span class='bold'>reservable nodes</span> to your slice.
 557 Reservable nodes show up with the '$mark' mark.
 558 Your slivers will be available <span class='bold'>only during timeslots
 559 where you have obtained leases</span>.
 560 You can manage your leases in the tab below.
 561 <br>
 562 Please note that as of August 2010 this feature is experimental.
 563 Feedback is appreciated at <a href="mailto:devel@planet-lab.org">devel@planet-lab.org</a>
 564 </td><td valign=top><span onClick=closeShowReservable()><img class='reset' src="/planetlab/icons/clear.png" alt="hide message"></span>
 565 </td></tr></table>
 566 </div>
 567 EOF;
 568 }
 569
 570 //////////////////// reservable nodes area
 571 $count=count($reservable_nodes);
 572 if ($count && $privileges) {
 573   // having reservable nodes in white lists looks a bit off scope for now...
 574   $toggle_nodes=new PlekitToggle('my-slice-nodes-reserve',
 575                                  "Leases - " . count($reservable_nodes) . " reservable node(s)",
 576                                  array('visible'=>get_arg('show_nodes_resa',false)));
 577   $toggle_nodes->start();
 578   $grain=$api->GetLeaseGranularity();
 579   if ($profiling) plc_debug_prof('6 granul',$grain);
 580   // where to start from, expressed as an offset in hours from now
 581   $resa_offset=$_GET['resa_offset'];
 582   if ( ! $resa_offset ) $resa_offset=0;
 583   $rough_start=time()+$resa_offset*3600;
 584   // xxx should be configurable
 585   $resa_slots=$_GET['resa_slots'];
 586   if ( ! $resa_slots ) $resa_slots = 36;
 587   // for now, show the next 72 hours, or 72 grains, which ever is smaller
 588   $duration=$resa_slots*$grain;
 589   $steps=$duration/$grain;
 590   $start=intval($rough_start/$grain)*$grain;
 591   $end=$rough_start+$duration;
 592   $lease_columns=array('lease_id','name','t_from','t_until','hostname','name');
 593   $leases=$api->GetLeases(array(']t_until'=>$rough_start,'[t_from'=>$end,'-SORT'=>'t_from'),$lease_columns);
 594   if ($profiling) plc_debug_prof('7 leases',count($leases));
 595   // hash nodes -> leases
 596   $host_hash=array();
 597   foreach ($leases as $lease) {
 598     $hostname=$lease['hostname'];
 599     if ( ! $host_hash[$hostname] ) {
 600         $host_hash[$hostname]=array();
 601     }
 602     // resync within the table
 603     $lease['nfrom']=($lease['t_from']-$start)/$grain;
 604     $lease['nuntil']=($lease['t_until']-$start)/$grain;
 605     $host_hash[$hostname] []= $lease;
 606   }
 607   # leases_data is the name used by leases.js to locate this table
 608   echo "<table id='leases_data'>";
 609   # pass (slice_id,slicename) as the [0,0] coordinate as thead>tr>td
 610   echo "<thead><tr><td>" . $slice['slice_id'] . '&' . $slice['name'] . "</td>";
 611   # the timeslot headers read (timestamp,label)
 612   $day_names=array('Su','M','Tu','W','Th','F','Sa');
 613   for ($i=0; $i<$steps; $i++) {
 614     $timestamp=($start+$i*$grain);
 615     $day=$day_names[intval(strftime("%w",$timestamp))];
 616     $label=$day . strftime(" %H:%M",$timestamp);
 617     // expose in each header cell the full timestamp, and how to display it - use & as a separator*/
 618     echo "<th>" . implode("&",array($timestamp,$label)) . "</th>";
 619   }
 620   echo "</tr></thead><tbody>";
 621   // todo - sort on hostnames
 622   function sort_hostname ($a,$b) { return ($a['hostname']<$b['hostname'])?-1:1;}
 623   usort($reservable_nodes,sort_hostname);
 624   foreach ($reservable_nodes as $node) {
 625     echo "<tr><th scope='row'>". $node['hostname'] . "</th>";
 626     $hostname=$node['hostname'];
 627     $leases=$host_hash[$hostname];
 628     $counter=0;
 629     while ($counter<$steps) {
 630       if ($leases && ($leases[0]['nfrom']<=$counter)) {
 631         $lease=array_shift($leases);
 632         /* nicer display, merge two consecutive leases for the same slice
 633            avoid doing that for now, as it might makes things confusing */
 634         /* while ($leases && ($leases[0]['name']==$lease['name']) && ($leases[0]['nfrom']==$lease['nuntil'])) {
 635           $lease['nuntil']=$leases[0]['nuntil'];
 636           array_shift($leases);
 637           }*/
 638         $duration=$lease['nuntil']-$counter;
 639         echo "<td colspan='$duration'>" . $lease['lease_id'] . '&' . $lease['name'] . "</td>";
 640         $counter=$lease['nuntil'];
 641       } else {
 642         echo "<td></td>";
 643         $counter+=1;
 644       }
 645     }
 646     echo "</tr>";
 647   }
 648   echo "</tbody></table>\n";
 649
 650   // the general layout for the scheduler
 651   echo <<< EOF
 652 <div id='leases_area'></div>
 653
 654 <div id='leases_buttons'>
 655   <button id='leases_clear' type='submit'>Clear</button>
 656   <button id='leases_submit' type='submit'>Submit</button>
 657 </div>
 658 EOF;
 659
 660   $toggle_nodes->end();
 661  }
 662
 663
 664 //////////////////// node configuration panel
 665
 666 $toggle_nodes=new PlekitToggle('my-slice-nodes-configuration',
 667                                "Node table layout",
 668                                array('visible'=>'1'));
 669 $toggle_nodes->start();
 670
 671 //usort ($table_headers, create_function('$col1,$col2','return strcmp($col1["header"],$col2["header"]);'));
 672 //print("<p>TABLE HEADERS<p>");
 673 //print_r($table_headers);
 674
 675 print("<div id='debug'></div>");
 676 print("<input type='hidden' id='slice_id' value='".$slice['slice_id']."' />");
 677 print("<input type='hidden' id='person_id' value='".$plc->person['person_id']."' />");
 678 print("<input type='hidden' id='conf_tag_id' value='".$conf_tag_id."' />");
 679 print("<input type='hidden' id='show_tag_id' value='".$show_tag_id."' />");
 680 print("<input type='hidden' id='column_configuration' value='".$slice_column_configuration."' />");
 681 print("<br><input type='hidden' size=80 id='full_column_configuration' value='".$column_configuration."' />");
 682 print("<input type='hidden' id='previousConf' value='".$slice_column_configuration."'></input>");
 683 print("<input type='hidden' id='defaultConf' value='".$default_configuration."'></input>");
 684
 685 $ConfigureColumns->configuration_panel_html(true);
 686
 687 $ConfigureColumns->javascript_init();
 688
 689 $toggle_nodes->end();
 690
 691
 692 $all_sites=$api->GetSites(NULL, array('site_id','login_base'));
 693 $site_hash=array();
 694 foreach ($all_sites as $site) $site_hash[$site['site_id']]=$site['login_base'];
 695
 696 $interface_columns=array('ip','node_id','interface_id');
 697 $interface_filter=array('is_primary'=>TRUE);
 698 $interfaces=$api->GetInterfaces($interface_filter,$interface_columns);
 699
 700 $interface_hash=array();
 701 foreach ($interfaces as $interface) $interface_hash[$interface['node_id']]=$interface;
 702
 703
 704
 705
 706
 707 //////////////////// nodes currently in
 708 $toggle_nodes=new PlekitToggle('my-slice-nodes-current',
 709                                count_english($slice_nodes,"node") . " currently in $name",
 710                                array('visible'=>get_arg('show_nodes_current',!$privileges)));
 711 $toggle_nodes->start();
 712
 713 $headers=array();
 714 $notes=array();
 715 //$notes=array_merge($notes,$visibletags->notes());
 716 $notes [] = "For information about the different columns please see the <b>node table layout</b> tab above or <b>mouse over</b> the column headers";
 717
 718 /*
 719 $headers['peer']='string';
 720 $headers['hostname']='string';
 721 $short="-S-"; $long=Node::status_footnote(); $type='string';
 722         $headers[$short]=array('type'=>$type,'title'=>$long); $notes []= "$short = $long";
 723 $short=reservable_mark(); $long=reservable_legend(); $type='string';
 724         $headers[$short]=array('type'=>$type,'title'=>$long); $notes []= "$short = $long";
 725 // the extra tags, configured for the UI
 726 $headers=array_merge($headers,$visibletags->headers());
 727
 728 if ($privileges) $headers[plc_delete_icon()]="none";
 729 */
 730
 731 $edit_header = array();
 732 if ($privileges) $edit_header[plc_delete_icon()]="none";
 733 $headers = array_merge($ConfigureColumns->get_headers(),$edit_header);
 734
 735 //print("<p>HEADERS<p>");
 736 //print_r($headers);
 737
 738 $table_options = array('notes'=>$notes,
 739                        'search_width'=>15,
 740                        'pagesize'=>20,
 741                         'configurable'=>true);
 742
 743 $table=new PlekitTable('nodes',$headers,NULL,$table_options);
 744
 745 $form=new PlekitForm(l_actions(),array('slice_id'=>$slice['slice_id']));
 746 $form->start();
 747 $table->start();
 748 if ($slice_nodes) foreach ($slice_nodes as $node) {
 749   $table->row_start();
 750
 751 $table->cell($node['node_id'], array('display'=>'none'));
 752
 753   $table->cell(l_node_obj($node));
 754   $peers->cell($table,$node['peer_id']);
 755   $run_level=$node['run_level'];
 756   list($label,$class) = Node::status_label_class_($node);
 757   $table->cell ($label,array('class'=>$class));
 758   $table->cell( ($node['node_type']=='reservable')?reservable_mark():"" );
 759
 760   $hostname=$node['hostname'];
 761   $ip=$interface_hash[$node['node_id']]['ip'];
 762   $interface_id=$interface_hash[$node['node_id']]['interface_id'];
 763
 764 //extra columns
 765 $node['domain'] = topdomain($hostname);
 766 $node['sitename'] = l_site_t($node['site_id'],$site_hash[$node['site_id']]);
 767 $node['ipaddress'] = l_interface_t($interface_id,$ip);
 768
 769
 770  //foreach ($visiblecolumns as $tagname) $table->cell($node[$tagname]);
 771  $ConfigureColumns->cells($table, $node);
 772
 773   if ($privileges) $table->cell ($form->checkbox_html('node_ids[]',$node['node_id']));
 774   $table->row_end();
 775 }
 776 // actions area
 777 if ($privileges) {
 778
 779   // remove nodes
 780   $table->tfoot_start();
 781
 782   $table->row_start();
 783   $table->cell($form->submit_html ("remove-nodes-from-slice","Remove selected"),
 784                array('hfill'=>true,'align'=>'right'));
 785   $table->row_end();
 786  }
 787 $table->end();
 788 $toggle_nodes->end();
 789
 790 //////////////////// nodes to add
 791 if ($privileges) {
 792   $new_potential_nodes = array();
 793   if ($potential_nodes) foreach ($potential_nodes as $node) {
 794       $emptywl=empty($node['slice_ids_whitelist']);
 795       $inwl = (!emptywl) and in_array($slice['slice_id'],$node['slice_ids_whitelist']);
 796       if ($emptywl or $inwl)
 797         $new_potential_nodes[]=$node;
 798   }
 799   $potential_nodes=$new_potential_nodes;
 800
 801   $count=count($potential_nodes);
 802   $toggle_nodes=new PlekitToggle('my-slice-nodes-add',
 803                                  count_english($potential_nodes,"more node") . " available",
 804                                  array('visible'=>get_arg('show_nodes_add',false)));
 805   $toggle_nodes->start();
 806
 807   if ( $potential_nodes ) {
 808     $headers=array();
 809     $notes=array();
 810
 811
 812 /*
 813     $headers['peer']='string';
 814     $headers['hostname']='string';
 815     $short="-S-"; $long=Node::status_footnote(); $type='string';
 816         $headers[$short]=array('type'=>$type,'title'=>$long); $notes []= "$short = $long";
 817         $short=reservable_mark(); $long=reservable_legend(); $type='string';
 818         $headers[$short]=array('type'=>$type,'title'=>$long); $notes []= "$short = $long";
 819     // the extra tags, configured for the UI
 820     $headers=array_merge($headers,$visibletags->headers());
 821     $headers['+']="none";
 822 */
 823
 824     $add_header = array();
 825     $add_header['+']="none";
 826     $headers = array_merge($ConfigureColumns->get_headers(),$add_header);
 827
 828     //$notes=array_merge($notes,$visibletags->notes());
 829 $notes [] = "For information about the different columns please see the <b>node table layout</b> tab above or <b>mouse over</b> the column headers";
 830
 831     $table=new PlekitTable('add_nodes',$headers,NULL, $table_options);
 832     $form=new PlekitForm(l_actions(),
 833                          array('slice_id'=>$slice['slice_id']));
 834     $form->start();
 835     $table->start();
 836     if ($potential_nodes) foreach ($potential_nodes as $node) {
 837         $table->row_start();
 838
 839 $table->cell($node['node_id'], array('display'=>'none'));
 840
 841         $table->cell(l_node_obj($node));
 842         $peers->cell($table,$node['peer_id']);
 843         list($label,$class) = Node::status_label_class_($node);
 844         $table->cell ($label,array('class'=>$class));
 845         $table->cell( ($node['node_type']=='reservable')?reservable_mark():"" );
 846
 847         //extra columns
 848           $hostname=$node['hostname'];
 849           $ip=$interface_hash[$node['node_id']]['ip'];
 850           $interface_id=$interface_hash[$node['node_id']]['interface_id'];
 851         $node['domain'] = topdomain($hostname);
 852         $node['sitename'] = l_site_t($node['site_id'],$site_hash[$node['site_id']]);
 853         $node['ipaddress'] = l_interface_t($interface_id,$ip);
 854
 855         //foreach ($visiblecolumns as $tagname) $table->cell($node[$tagname]);
 856         $ConfigureColumns->cells($table, $node);
 857
 858         $table->cell ($form->checkbox_html('node_ids[]',$node['node_id']));
 859         $table->row_end();
 860       }
 861     // add nodes
 862     $table->tfoot_start();
 863     $table->row_start();
 864     $table->cell($form->submit_html ("add-nodes-in-slice","Add selected"),
 865                  array('hfill'=>true,'align'=>'right'));
 866     $table->row_end();
 867     $table->end();
 868     $form->end();
 869   }
 870   $toggle_nodes->end();
 871 }
 872
 873 $toggle->end();
 874
 875 // very wide values get abbreviated
 876 $tag_value_threshold=24;
 877 //////////////////////////////////////////////////////////// Tags
 878 //if ( $local_peer ) {
 879   $tags=$api->GetSliceTags (array('slice_id'=>$slice_id));
 880   if ($profiling) plc_debug_prof('8 slice tags',count($tags));
 881   function get_tagname ($tag) { return $tag['tagname'];}
 882   $tagnames = array_map ("get_tagname",$tags);
 883
 884   $toggle = new PlekitToggle ('slice-tags',count_english_warning($tags,'tag'),
 885                               array('bubble'=>'Inspect and set tags on tat slice',
 886                                     'visible'=>get_arg('show_tags',false)));
 887   $toggle->start();
 888
 889   $headers=array(
 890     "Name"=>"string",
 891     "Value"=>"string",
 892     "Node"=>"string",
 893     "NodeGroup"=>"string");
 894   if ($tags_privileges) $headers[plc_delete_icon()]="none";
 895
 896   $table_options=array("notes_area"=>false,"pagesize_area"=>false,"search_width"=>10);
 897   $table=new PlekitTable("slice_tags",$headers,'0',$table_options);
 898   $form=new PlekitForm(l_actions(),
 899                        array('slice_id'=>$slice['slice_id']));
 900   $form->start();
 901   $table->start();
 902   if ($tags) {
 903     foreach ($tags as $tag) {
 904       $node_name = "ALL";
 905       if ($tag['node_id']) {
 906         $tag_nodes = $api->GetNodes(array('node_id'=>$tag['node_id']));
 907         if ($profiling) plc_debug_prof('9 node for slice tag',count($tag_nodes));
 908         if($tag_nodes) {
 909           $node = $tag_nodes[0];
 910           $node_name = $node['hostname'];
 911         }
 912       }
 913       $nodegroup_name="n/a";
 914       if ($tag['nodegroup_id']) {
 915         $nodegroups=$api->GetNodeGroups(array('nodegroup_id'=>$tag['nodegroup_id']));
 916         if ($profiling) plc_debug_prof('10 nodegroup for slice tag',$nodegroup);
 917         if ($nodegroup) {
 918           $nodegroup = $nodegroups[0];
 919           $nodegroup_name = $nodegroup['groupname'];
 920         }
 921       }
 922       $table->row_start();
 923       $table->cell(l_tag_obj($tag));
 924       // very wide values get abbreviated
 925       $table->cell(truncate_and_popup($tag['value'],$tag_value_threshold));
 926       $table->cell($node_name);
 927       $table->cell($nodegroup_name);
 928       if ($tags_privileges) $table->cell ($form->checkbox_html('slice_tag_ids[]',$tag['slice_tag_id']));
 929       $table->row_end();
 930     }
 931   }
 932   if ($tags_privileges) {
 933     $table->tfoot_start();
 934     $table->row_start();
 935     $table->cell($form->submit_html ("delete-slice-tags","Remove selected"),
 936                  array('hfill'=>true,'align'=>'right'));
 937     $table->row_end();
 938
 939     $table->row_start();
 940     function tag_selector ($tag) {
 941       return array("display"=>$tag['tagname'],"value"=>$tag['tag_type_id']);
 942     }
 943     $all_tags= $api->GetTagTypes( array ("category"=>"slice*","-SORT"=>"+tagname"), array("tagname","tag_type_id"));
 944     if ($profiling) plc_debug_prof('11 tagtypes',count($all_tags));
 945     $selector_tag=array_map("tag_selector",$all_tags);
 946
 947     function node_selector($node) {
 948       return array("display"=>$node["hostname"],"value"=>$node['node_id']);
 949     }
 950     $selector_node=array_map("node_selector",$slice_nodes);
 951
 952     function nodegroup_selector($ng) {
 953       return array("display"=>$ng["groupname"],"value"=>$ng['nodegroup_id']);
 954     }
 955     $all_nodegroups = $api->GetNodeGroups( array("groupname"=>"*"), array("groupname","nodegroup_id"));
 956     if ($profiling) plc_debug_prof('13 nodegroups',count($all_nodegroups));
 957     $selector_nodegroup=array_map("nodegroup_selector",$all_nodegroups);
 958
 959     $table->cell($form->select_html("tag_type_id",$selector_tag,array('label'=>"Choose Tag")));
 960     $table->cell($form->text_html("value","",array('width'=>8)));
 961     $table->cell($form->select_html("node_id",$selector_node,array('label'=>"All Nodes")));
 962     $table->cell($form->select_html("nodegroup_id",$selector_nodegroup,array('label'=>"No Nodegroup")));
 963     $table->cell($form->submit_html("add-slice-tag","Set Tag"),array('columns'=>2,'align'=>'left'));
 964     $table->row_end();
 965   }
 966
 967   $table->end();
 968   $form->end();
 969   $toggle->end();
 970 //}
 971
 972
 973 //////////////////////// renew slice
 974 if ($local_peer ) {
 975   if ( ! $renew_visible) renew_area ($slice,$site,false);
 976  }
 977
 978 $peers->block_end($peer_id);
 979
 980 if ($profiling) plc_debug_prof_end();
 981
 982 // Print footer
 983 include 'plc_footer.php';
 984
 985 ?>