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