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