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 'plc_objects.php';
  20 require_once 'plc_visibletags.php';
  21 require_once 'linetabs.php';
  22 require_once 'table.php';
  23 require_once 'details.php';
  24 require_once 'toggle.php';
  25 require_once 'form.php';
  26 require_once 'raphael.php';
  27
  28 plc_debug('legend',reservable_legend());
  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 $slice_nodes=array();
 421 $potential_nodes=array();
 422 $reservable_nodes=array();
 423 foreach ($all_nodes as $node) {
 424   if (in_array($node['node_id'],$slice['node_ids'])) {
 425     $slice_nodes[]=$node;
 426     if ($node['node_type']=='reservable') $reservable_nodes[]=$node;
 427   } else {
 428     $potential_nodes[]=$node;
 429   }
 430 }
 431 if ($profiling) plc_debug_prof('5: nodes',count($slice_nodes));
 432 ////////////////////
 433 // outline the number of reservable nodes
 434 $nodes_message=count_english($slice_nodes,"node");
 435 if (count($reservable_nodes)) $nodes_message .= " (" . count($reservable_nodes) . " reservable)";
 436 $toggle=new PlekitToggle ('my-slice-nodes',$nodes_message,
 437                           array('bubble'=>
 438                                 'Manage nodes attached to this slice',
 439                                 'visible'=>get_arg('show_nodes',false)));
 440 $toggle->start();
 441
 442 //////////////////// nodes currently in
 443 $toggle_nodes=new PlekitToggle('my-slice-nodes-current',
 444                                count_english($slice_nodes,"node") . " currently in $name",
 445                                array('visible'=>get_arg('show_nodes_current',!$privileges)));
 446 $toggle_nodes->start();
 447
 448 $headers=array();
 449 $notes=array();
 450 $headers['peer']='string';
 451 $headers['hostname']='string';
 452 $short="-S-"; $long=Node::status_footnote(); $type='string';
 453         $headers[$short]=array('type'=>$type,'title'=>$long); $notes []= "$short = $long";
 454 $short=reservable_mark(); $long=reservable_legend(); $type='string';
 455         $headers[$short]=array('type'=>$type,'title'=>$long); $notes []= "$short = $long";
 456 // the extra tags, configured for the UI
 457 $headers=array_merge($headers,$visibletags->headers());
 458 $notes=array_merge($notes,$visibletags->notes());
 459
 460 if ($privileges) $headers[plc_delete_icon()]="none";
 461
 462 $table_options = array('notes'=>$notes,
 463                        'search_width'=>15,
 464                        'pagesize'=>20);
 465 $table=new PlekitTable('nodes',$headers,'1',$table_options);
 466
 467 $form=new PlekitForm(l_actions(),array('slice_id'=>$slice['slice_id']));
 468 $form->start();
 469 $table->start();
 470 if ($slice_nodes) foreach ($slice_nodes as $node) {
 471   $table->row_start();
 472   $peers->cell($table,$node['peer_id']);
 473   $table->cell(l_node_obj($node));
 474   $run_level=$node['run_level'];
 475   list($label,$class) = Node::status_label_class_($node);
 476   $table->cell ($label,array('class'=>$class));
 477   $table->cell( ($node['node_type']=='reservable')?reservable_mark():"" );
 478   foreach ($visiblecolumns as $tagname) $table->cell($node[$tagname]);
 479
 480   if ($privileges) $table->cell ($form->checkbox_html('node_ids[]',$node['node_id']));
 481   $table->row_end();
 482 }
 483 // actions area
 484 if ($privileges) {
 485
 486   // remove nodes
 487   $table->tfoot_start();
 488
 489   $table->row_start();
 490   $table->cell($form->submit_html ("remove-nodes-from-slice","Remove selected"),
 491                array('hfill'=>true,'align'=>'right'));
 492   $table->row_end();
 493  }
 494 $table->end();
 495 $toggle_nodes->end();
 496
 497 //////////////////// nodes to add
 498 if ($privileges) {
 499   $new_potential_nodes = array();
 500   if ($potential_nodes) foreach ($potential_nodes as $node) {
 501       $emptywl=empty($node['slice_ids_whitelist']);
 502       $inwl = (!emptywl) and in_array($slice['slice_id'],$node['slice_ids_whitelist']);
 503       if ($emptywl or $inwl)
 504         $new_potential_nodes[]=$node;
 505   }
 506   $potential_nodes=$new_potential_nodes;
 507
 508   $count=count($potential_nodes);
 509   $toggle_nodes=new PlekitToggle('my-slice-nodes-add',
 510                                  count_english($potential_nodes,"more node") . " available",
 511                                  array('visible'=>get_arg('show_nodes_add',false)));
 512   $toggle_nodes->start();
 513
 514   if ( $potential_nodes ) {
 515     $headers=array();
 516     $notes=array();
 517     $headers['peer']='string';
 518     $headers['hostname']='string';
 519     $short="-S-"; $long=Node::status_footnote(); $type='string';
 520         $headers[$short]=array('type'=>$type,'title'=>$long); $notes []= "$short = $long";
 521         $short=reservable_mark(); $long=reservable_legend(); $type='string';
 522         $headers[$short]=array('type'=>$type,'title'=>$long); $notes []= "$short = $long";
 523     // the extra tags, configured for the UI
 524     $headers=array_merge($headers,$visibletags->headers());
 525     $notes=array_merge($notes,$visibletags->notes());
 526     $headers['+']="none";
 527
 528     $table=new PlekitTable('add_nodes',$headers,'1', $table_options);
 529     $form=new PlekitForm(l_actions(),
 530                          array('slice_id'=>$slice['slice_id']));
 531     $form->start();
 532     $table->start();
 533     if ($potential_nodes) foreach ($potential_nodes as $node) {
 534         $table->row_start();
 535         $peers->cell($table,$node['peer_id']);
 536         $table->cell(l_node_obj($node));
 537         list($label,$class) = Node::status_label_class_($node);
 538         $table->cell ($label,array('class'=>$class));
 539         $table->cell( ($node['node_type']=='reservable')?reservable_mark():"" );
 540         foreach ($visiblecolumns as $tagname) $table->cell($node[$tagname]);
 541         $table->cell ($form->checkbox_html('node_ids[]',$node['node_id']));
 542         $table->row_end();
 543       }
 544     // add nodes
 545     $table->tfoot_start();
 546     $table->row_start();
 547     $table->cell($form->submit_html ("add-nodes-in-slice","Add selected"),
 548                  array('hfill'=>true,'align'=>'right'));
 549     $table->row_end();
 550     $table->end();
 551     $form->end();
 552   }
 553   $toggle_nodes->end();
 554 }
 555
 556 //////////////////// reservable nodes area
 557 $count=count($reservable_nodes);
 558 if ($count && $privileges) {
 559   // having reservable nodes in white lists looks a bit off scope for now...
 560   $toggle_nodes=new PlekitToggle('my-slice-nodes-reserve',
 561                                  count_english($reservable_nodes,"reservable node") . " in slice",
 562                                  array('visible'=>get_arg('show_nodes_resa',false)));
 563   $toggle_nodes->start();
 564   $grain=$api->GetLeaseGranularity();
 565   if ($profiling) plc_debug_prof('6 granul',$grain);
 566   // where to start from, expressed as an offset in hours from now
 567   $resa_offset=$_GET['resa_offset'];
 568   if ( ! $resa_offset ) $resa_offset=0;
 569   $rough_start=time()+$resa_offset*3600;
 570   // xxx should be configurable
 571   $resa_slots=$_GET['resa_slots'];
 572   if ( ! $resa_slots ) $resa_slots = 36;
 573   // for now, show the next 72 hours, or 72 grains, which ever is smaller
 574   $duration=$resa_slots*$grain;
 575   $steps=$duration/$grain;
 576   $start=intval($rough_start/$grain)*$grain;
 577   $end=$rough_start+$duration;
 578   $lease_columns=array('lease_id','name','t_from','t_until','hostname','name');
 579   $leases=$api->GetLeases(array(']t_until'=>$rough_start,'[t_from'=>$end,'-SORT'=>'t_from'),$lease_columns);
 580   if ($profiling) plc_debug_prof('7 leases',count($leases));
 581   // hash nodes -> leases
 582   $host_hash=array();
 583   foreach ($leases as $lease) {
 584     $hostname=$lease['hostname'];
 585     if ( ! $host_hash[$hostname] ) {
 586         $host_hash[$hostname]=array();
 587     }
 588     // resync within the table
 589     $lease['nfrom']=($lease['t_from']-$start)/$grain;
 590     $lease['nuntil']=($lease['t_until']-$start)/$grain;
 591     $host_hash[$hostname] []= $lease;
 592   }
 593   # leases_data is the name used by leases.js to locate this table
 594   echo "<table id='leases_data'>";
 595   # pass (slice_id,slicename) as the [0,0] coordinate as thead>tr>td
 596   echo "<thead><tr><td>" . $slice['slice_id'] . '&' . $slice['name'] . "</td>";
 597   # the timeslot headers read (timestamp,label)
 598   $day_names=array('Su','M','Tu','W','Th','F','Sa');
 599   for ($i=0; $i<$steps; $i++) {
 600     $timestamp=($start+$i*$grain);
 601     $day=$day_names[intval(strftime("%w",$timestamp))];
 602     $label=$day . strftime(" %H:%M",$timestamp);
 603     // expose in each header cell the full timestamp, and how to display it - use & as a separator*/
 604     echo "<th>" . implode("&",array($timestamp,$label)) . "</th>";
 605   }
 606   echo "</tr></thead><tbody>";
 607   // todo - sort on hostnames
 608   function sort_hostname ($a,$b) { return ($a['hostname']<$b['hostname'])?-1:1;}
 609   usort($reservable_nodes,sort_hostname);
 610   foreach ($reservable_nodes as $node) {
 611     echo "<tr><th scope='row'>". $node['hostname'] . "</th>";
 612     $hostname=$node['hostname'];
 613     $leases=$host_hash[$hostname];
 614     $counter=0;
 615     while ($counter<$steps) {
 616       if ($leases && ($leases[0]['nfrom']<=$counter)) {
 617         $lease=array_shift($leases);
 618         /* nicer display, merge two consecutive leases for the same slice
 619            avoid doing that for now, as it might makes things confusing */
 620         /* while ($leases && ($leases[0]['name']==$lease['name']) && ($leases[0]['nfrom']==$lease['nuntil'])) {
 621           $lease['nuntil']=$leases[0]['nuntil'];
 622           array_shift($leases);
 623           }*/
 624         $duration=$lease['nuntil']-$counter;
 625         echo "<td colspan='$duration'>" . $lease['lease_id'] . '&' . $lease['name'] . "</td>";
 626         $counter=$lease['nuntil'];
 627       } else {
 628         echo "<td></td>";
 629         $counter+=1;
 630       }
 631     }
 632     echo "</tr>";
 633   }
 634   echo "</tbody></table>\n";
 635
 636   // the general layout for the scheduler
 637   echo <<< EOF
 638 <div id='leases_area'></div>
 639
 640 <div id='leases_buttons'>
 641   <button id='leases_clear' type='submit'>Clear</button>
 642   <button id='leases_submit' type='submit'>Submit</button>
 643 </div>
 644 EOF;
 645
 646   $toggle_nodes->end();
 647  }
 648 $toggle->end();
 649
 650 // very wide values get abbreviated
 651 $tag_value_threshold=24;
 652 //////////////////////////////////////////////////////////// Tags
 653 //if ( $local_peer ) {
 654   $tags=$api->GetSliceTags (array('slice_id'=>$slice_id));
 655   if ($profiling) plc_debug_prof('8 slice tags',count($tags));
 656   function get_tagname ($tag) { return $tag['tagname'];}
 657   $tagnames = array_map ("get_tagname",$tags);
 658
 659   $toggle = new PlekitToggle ('slice-tags',count_english_warning($tags,'tag'),
 660                               array('bubble'=>'Inspect and set tags on tat slice',
 661                                     'visible'=>get_arg('show_tags',false)));
 662   $toggle->start();
 663
 664   $headers=array(
 665     "Name"=>"string",
 666     "Value"=>"string",
 667     "Node"=>"string",
 668     "NodeGroup"=>"string");
 669   if ($tags_privileges) $headers[plc_delete_icon()]="none";
 670
 671   $table_options=array("notes_area"=>false,"pagesize_area"=>false,"search_width"=>10);
 672   $table=new PlekitTable("slice_tags",$headers,'0',$table_options);
 673   $form=new PlekitForm(l_actions(),
 674                        array('slice_id'=>$slice['slice_id']));
 675   $form->start();
 676   $table->start();
 677   if ($tags) {
 678     foreach ($tags as $tag) {
 679       $node_name = "ALL";
 680       if ($tag['node_id']) {
 681         $tag_nodes = $api->GetNodes(array('node_id'=>$tag['node_id']));
 682         if ($profiling) plc_debug_prof('9 node for slice tag',count($tag_nodes));
 683         if($tag_nodes) {
 684           $node = $tag_nodes[0];
 685           $node_name = $node['hostname'];
 686         }
 687       }
 688       $nodegroup_name="n/a";
 689       if ($tag['nodegroup_id']) {
 690         $nodegroups=$api->GetNodeGroups(array('nodegroup_id'=>$tag['nodegroup_id']));
 691         if ($profiling) plc_debug_prof('10 nodegroup for slice tag',$nodegroup);
 692         if ($nodegroup) {
 693           $nodegroup = $nodegroups[0];
 694           $nodegroup_name = $nodegroup['groupname'];
 695         }
 696       }
 697       $table->row_start();
 698       $table->cell(l_tag_obj($tag));
 699       // very wide values get abbreviated
 700       $table->cell(truncate_and_popup($tag['value'],$tag_value_threshold));
 701       $table->cell($node_name);
 702       $table->cell($nodegroup_name);
 703       if ($tags_privileges) $table->cell ($form->checkbox_html('slice_tag_ids[]',$tag['slice_tag_id']));
 704       $table->row_end();
 705     }
 706   }
 707   if ($tags_privileges) {
 708     $table->tfoot_start();
 709     $table->row_start();
 710     $table->cell($form->submit_html ("delete-slice-tags","Remove selected"),
 711                  array('hfill'=>true,'align'=>'right'));
 712     $table->row_end();
 713
 714     $table->row_start();
 715     function tag_selector ($tag) {
 716       return array("display"=>$tag['tagname'],"value"=>$tag['tag_type_id']);
 717     }
 718     $all_tags= $api->GetTagTypes( array ("category"=>"slice*","-SORT"=>"+tagname"), array("tagname","tag_type_id"));
 719     if ($profiling) plc_debug_prof('11 tagtypes',count($all_tags));
 720     $selector_tag=array_map("tag_selector",$all_tags);
 721
 722     function node_selector($node) {
 723       return array("display"=>$node["hostname"],"value"=>$node['node_id']);
 724     }
 725     $selector_node=array_map("node_selector",$slice_nodes);
 726
 727     function nodegroup_selector($ng) {
 728       return array("display"=>$ng["groupname"],"value"=>$ng['nodegroup_id']);
 729     }
 730     $all_nodegroups = $api->GetNodeGroups( array("groupname"=>"*"), array("groupname","nodegroup_id"));
 731     if ($profiling) plc_debug_prof('13 nodegroups',count($all_nodegroups));
 732     $selector_nodegroup=array_map("nodegroup_selector",$all_nodegroups);
 733
 734     $table->cell($form->select_html("tag_type_id",$selector_tag,array('label'=>"Choose Tag")));
 735     $table->cell($form->text_html("value","",array('width'=>8)));
 736     $table->cell($form->select_html("node_id",$selector_node,array('label'=>"All Nodes")));
 737     $table->cell($form->select_html("nodegroup_id",$selector_nodegroup,array('label'=>"No Nodegroup")));
 738     $table->cell($form->submit_html("add-slice-tag","Set Tag"),array('columns'=>2,'align'=>'left'));
 739     $table->row_end();
 740   }
 741
 742   $table->end();
 743   $form->end();
 744   $toggle->end();
 745 //}
 746
 747
 748 //////////////////////// renew slice
 749 if ($local_peer ) {
 750   if ( ! $renew_visible) renew_area ($slice,$site,false);
 751  }
 752
 753 $peers->block_end($peer_id);
 754
 755 if ($profiling) plc_debug_prof_end();
 756
 757 // Print footer
 758 include 'plc_footer.php';
 759
 760 ?>