planetlab/nodes/node.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 'linetabs.php';
  20 require_once 'table.php';
  21 require_once 'details.php';
  22 require_once 'form.php';
  23 require_once 'toggle.php';
  24 require_once 'plc_objects.php';
  25
  26 // --------------------
  27 // recognized URL arguments
  28 $node_id=intval($_GET['id']);
  29 if ( ! $node_id ) { plc_error('Malformed URL - id not set'); return; }
  30
  31 ////////////////////
  32 // Get all columns as we focus on only one entry
  33 $nodes= $api->GetNodes( array($node_id));
  34
  35 if (empty($nodes)) {
  36   drupal_set_message ("Node " . $node_id . " not found");
  37   return;
  38  }
  39
  40 $node=$nodes[0];
  41 // node info
  42 $hostname= $node['hostname'];
  43 $boot_state= $node['boot_state'];
  44 $run_level = $node['run_level'];
  45 $site_id= $node['site_id'];
  46 $model= $node['model'];
  47 $version= $node['version'];
  48 $node_type = $node['node_type'];
  49
  50 // arrays of ids of node info
  51 $slice_ids= $node['slice_ids'];
  52 $conf_file_ids= $node['conf_file_ids'];
  53 $interface_ids= $node['interface_ids'];
  54 $nodegroup_ids= $node['nodegroup_ids'];
  55
  56 // get peers
  57 $peer_id = $node['peer_id'];
  58 $peers=new Peers ($api);
  59
  60 // gets site info
  61 $sites= $api->GetSites( array( $site_id ) );
  62 $site=$sites[0];
  63 $site_name= $site['name'];
  64 $site_node_ids= $site['node_ids'];
  65
  66 // hash node_id=>hostname for this site's nodes
  67 $site_node_hash=array();
  68 if( !empty( $site_node_ids ) ) {
  69   // get site node info basics
  70   $site_nodes= $api->GetNodes( $site_node_ids );
  71
  72   foreach( $site_nodes as $site_node ) {
  73     $site_node_hash[$site_node['node_id']]= $site_node['hostname'];
  74   }
  75  }
  76
  77 // gets slice info for each slice
  78 if( !empty( $slice_ids ) )
  79   $slices= $api->GetSlices( $slice_ids, array( "slice_id", "name" , "peer_id" ) );
  80
  81 // get interface info
  82 if( !empty( $interface_ids ) )
  83   $interfaces= $api->GetInterfaces( $interface_ids );
  84
  85 // gets nodegroup info
  86 if( !empty( $nodegroup_ids ) )
  87   $nodegroups= $api->GetNodeGroups( $nodegroup_ids, array("groupname","tag_type_id","value"));
  88
  89 // Thierry : remaining stuff
  90 // (*) events: xxx todo xxx for admins xxx
  91 // should display the latest events relating to that node.
  92 // historically we had to turn this off at some point as GetEvents was getting the session deleted in the DB
  93 // (*) conf_files: xxx todo xxx for admins xxx
  94 //if( !empty( $conf_file_ids ) )
  95 //  $conf_files= $api->GetConfFiles( $conf_file_ids );
  96
  97 //////////////////// display node info
  98
  99 drupal_set_title("Details for node " . $hostname);
 100 $local_peer= ! $peer_id;
 101
 102
 103 // extra privileges to admins, and (pi||tech) on this site
 104 $privileges = (plc_is_admin () && $local_peer) || ( plc_in_site($site_id) && ( plc_is_pi() || plc_is_tech()));
 105
 106 $tabs=array();
 107 // available actions
 108 $tabs [] = tab_nodes_site($site_id);
 109 $tabs [] = tab_site($site_id);
 110 //$tabs [] = tab_nodes();
 111
 112 if ( $local_peer  && $privileges ) {
 113
 114   $tabs["Add Interface"]=array('url'=>l_interface_add($node_id),
 115                                'bubble'=>"Define new network interface on $hostname");
 116   $tabs['Delete'] = array ('url'=>l_actions(),
 117                            'method'=>'POST',
 118                            'values'=>array('action'=>'delete-node','node_id'=>$node_id),
 119                            'bubble'=>"Delete node $hostname",
 120                            'confirm'=>'Are you sure to delete ' . $hostname);
 121   $tabs["Events"]=array_merge(tablook_event(),
 122                               array('url'=>l_event("Node","node",$node_id),
 123                                     'bubble'=>"Events for node $hostname"));
 124   $tabs["Comon"]=array_merge(tablook_comon(),
 125                              array('url'=>l_comon("node_id",$node_id),
 126                                    'bubble'=>"Comon page about node $hostname"));
 127  }
 128
 129 plekit_linetabs($tabs);
 130
 131 // show gray background on foreign objects : start a <div> with proper class
 132 $peers->block_start ($peer_id);
 133
 134 $toggle = new PlekitToggle ('node',"Details",
 135                             array('bubble'=>'Display and modify details for that node',
 136                                   'visible'=>get_arg('show_details',true)));
 137 $toggle->start();
 138
 139 $details=new PlekitDetails($privileges);
 140 $details->start();
 141 if ( ! $local_peer) {
 142   $details->th_td("Peer",$peers->peer_link($peer_id));
 143   $details->space();
 144  }
 145
 146 $details->form_start(l_actions(),array("action"=>"update-node", "node_id"=>$node_id, "hostname"=>$hostname));
 147 // xxx can hostname really be changed like this without breaking the rest, bootcd .. ?
 148 //$details->th_td("Hostname",$hostname,"hostname");
 149 $details->th_td("Hostname",$hostname);
 150 $details->th_td("Model",$model,"model");
 151 $details->tr_submit("submit","Update Node");
 152 $details->form_end();
 153 if ($privileges) $details->space();
 154
 155 ////////////////////
 156 // PCU stuff - not too sure why, but GetPCUs is not exposed to the 'user' role
 157 $display_pcus = ( $local_peer && (plc_is_admin() || plc_is_pi() || plc_is_tech()));
 158 if ($display_pcus) {
 159   $pcu_ids= $node['pcu_ids'];
 160   $ports= $node['ports'];
 161   // avoid 2 API calls : get all site PCUs and then search from there
 162   function search_pcu ($site_pcus,$pcu_id) {
 163     if ($site_pcus) foreach ($site_pcus as $site_pcu) if ($site_pcu['pcu_id']==$pcu_id) return $site_pcu;
 164     return FALSE;
 165   }
 166   $site_pcus = $api->GetPCUs(array('site_id'=>$site_id));
 167   // not sure what the exact semantics is, but I expect pcu_ids and ports should have same cardinality
 168   if (count ($pcu_ids) != count ($ports))
 169     $pcu_string = plc_error_html("Unexpected condition: " . count($pcu_ids) . " pcu_ids and " . count($ports) . " ports");
 170   else if (count($pcu_ids) == 0)
 171     $pcu_string = plc_warning_html("No PCU !");
 172   else if (count($pcu_ids) == 1) {
 173     $pcu_id=$pcu_ids[0];
 174     $port=$ports[0];
 175     $pcu_columns = array('hostname');
 176     $pcu=search_pcu($site_pcus,$pcu_id);
 177     if ( ! $pcu )
 178       $pcu_string = plc_error_html("Cannot find PCU " . $pcu_id);
 179     // else : regular case - don't set pcu_string
 180   } else
 181     $pcu_string = plc_warning_html("More than one PCU attached ? ");
 182
 183   // in the regular case, pcu_string is not set here
 184
 185   $details->form_start(l_actions(),array("action"=>"attach-pcu","node_id"=>$node_id));
 186   // prepare selectors
 187   if (! $site_pcus) {
 188     $pcu_update_area = "This site has no PCU - " . href ( l_pcu_add(), "add one here");
 189   } else {
 190     $pcu_add_link = href (l_pcu_add(),plc_add_icon() . "Add new");
 191
 192     // first option in pcus
 193     if ($pcu_ids)
 194       $none_detach = 'Detach';
 195     else
 196       $none_detach='None';
 197     $pcu_selectors = array(array('display'=>$none_detach,'value'=>-1));
 198     // one option per site pcu
 199     foreach ($site_pcus as $site_pcu) {
 200       $selector=array('display'=>$site_pcu['hostname'],'value'=>$site_pcu['pcu_id']);
 201       if ($pcu_id == $site_pcu['pcu_id']) $selector['selected']=true;
 202       $pcu_selectors []= $selector;
 203     }
 204     $pcu_chooser = $details->form()->select_html('pcu_id',$pcu_selectors);
 205
 206     function port_selector ($i,$port) {
 207       $selector = array ('display'=>'port ' . $i, 'value'=>$i);
 208       if ($i == $port) $selector['selected'] = true;
 209       return $selector;
 210     }
 211     $port_selectors = array () ;
 212     $available_ports =range(1,8);
 213     foreach ($available_ports as $available_port)
 214       $port_selectors []= port_selector ($available_port,$port);
 215     $port_chooser = $details->form()->select_html('port',$port_selectors);
 216
 217     $pcu_attach_button =
 218       $details->form()->submit_html('attach_pcu',"Attach PCU");
 219
 220     $pcu_update_area = $pcu_add_link . "<br>Or, select existing  " . $pcu_chooser . " " . $port_chooser . " " . $pcu_attach_button;
 221   }
 222
 223   if ($pcu_string)
 224     $pcu_value_area=plc_vertical_table(array($pcu_string,$pcu_update_area));
 225   else
 226     $pcu_value_area=$pcu_update_area;
 227
 228   $details->th_td("PCU",$pcu_value_area);
 229   $details->form_end();
 230   $details->space();
 231  }
 232
 233 //////////////////// type & version
 234 $details->th_td("Type",$node_type);
 235 $details->th_td("Version",$version);
 236 // let's use plc_objects
 237 $Node = new Node($node);
 238 $details->th_td("Date created",$Node->dateCreated());
 239 $details->th_td("Last update",$Node->lastUpdated());
 240 $details->th_td("Last contact",$Node->lastContact());
 241
 242 // boot area
 243 $details->space ();
 244 $stale_text =  $Node->stale() ? ("... (more than " . Node::stale_text() . " ago)") : "" ;
 245 $details->th_td ("Observed Boot state", $run_level . $stale_text);
 246 if ( ! ($local_peer && $privileges)) {
 247   // just display it
 248   $boot_value=$boot_state;
 249  } else {
 250   $boot_value="";
 251   $boot_form = new PlekitForm (l_actions(), array("node_id"=>$node_id,
 252                                                "action"=>"node-boot-state"));
 253   $boot_value .= $boot_form->start_html();
 254   $states = array( 'boot'=>'Boot', 'safeboot'=>'SafeBoot',
 255                    'disabled' => 'Disabled', 'reinstall'=>'Reinstall');
 256   $selectors=array();
 257   foreach ($states as $dbname=>$displayname) {
 258     $selector=array("display"=>$displayname, "value"=>$dbname);
 259     if ($dbname == $boot_state) $selector['selected']=true;
 260     $selectors []= $selector;
 261   }
 262   $boot_value .= $boot_form->select_html("boot_state",$selectors,array('autosubmit'=>true));
 263   $boot_value .= $boot_form->end_html();
 264  }
 265 $details->th_td ("Preferred Boot state",$boot_value);
 266
 267 // same here for the download area
 268 if ( $local_peer  && $privileges) {
 269
 270   $download_value="";
 271   $download_form = new PlekitForm (l_actions_download(),array("node_id"=>$node_id));
 272   $download_value .= $download_form->start_html();
 273   $selectors = array(
 274                      array("display"=>"-- All in one images --","disabled"=>true),
 275                      array("value"=>"download-node-iso","display"=>"Download ISO image for $hostname"),
 276                      array("value"=>"download-node-usb","display"=>"Download USB image for $hostname"),
 277                      array("value"=>"download-node-usb-partition", "display"=>"Download partitioned, USB image for $hostname"),
 278                      //              array("display"=>"-- Floppy + generic image --","disabled"=>true),
 279                      //              array("value"=>"download-node-floppy","display"=>"Download Floppy file for $hostname"),
 280                      //              array("value"=>"download-generic-iso","display"=>"Download generic ISO image (requires floppy)"),
 281                      //              array("value"=>"download-generic-usb","display"=>"Download generic USB image (requires floppy)"),
 282                       );
 283   $download_value .= $download_form->select_html("action",$selectors,
 284                                                  array('label'=>"Download mode",'autosubmit'=>true));
 285   $download_value .= $download_form->end_html();
 286   $details->th_td ("Download",$download_value);
 287
 288  }
 289
 290 // site info and all site nodes
 291 $details->space ();
 292 $details->th_td("Site",l_site_t($site_id,$site_name));
 293
 294 // build list of node links
 295 $nodes_area=array();
 296 foreach ($site_node_hash as $hash_node_id => $hash_hostname) {
 297   $nodes_area []= l_node_t($hash_node_id,$hash_hostname);
 298 }
 299 $details->th_tds ("All site nodes",$nodes_area);
 300
 301 $details->end ();
 302 $toggle->end();
 303
 304 $form=new PlekitForm (l_actions(), array('node_id'=>$node_id));
 305 $form->start();
 306
 307 //////////////////////////////////////////////////////////// slivers
 308 {
 309   $toggle=new PlekitToggle ('slices',count_english_warning($slices,'sliver'),
 310                             array('bubble'=>'Review slices running on that node',
 311                                   'visible'=>get_arg('show_slices',false)));
 312   $toggle->start();
 313   if ( ! $slices  ) {
 314     plc_warning ("This node is not associated to any slice");
 315   } else {
 316     $headers=array();
 317     $headers['Peer']="string";
 318     $headers['Slice Name']="string";
 319     $headers['Sliver']="string";
 320     $reasonable_page=10;
 321     $table_options = array('notes_area'=>false,"search_width"=>10,'pagesize'=>$reasonable_page);
 322     if (count ($slices) <= $reasonable_page) {
 323       $table_options['search_area']=false;
 324       $table_options['pagesize_area']=false;
 325     }
 326     $table=new PlekitTable("node_slices",$headers,1,$table_options);
 327     $table->start();
 328
 329     foreach ($slices as $slice) {
 330       $table->row_start();
 331       $peers->cell ($table,$slice['peer_id']);
 332       $table->cell (l_slice_t ($slice['slice_id'],$slice['name']));
 333       $table->cell (l_sliver_t ($node_id,$slice['slice_id'],'sliver tags'));
 334       $table->row_end();
 335     }
 336     $table->end();
 337   }
 338   $toggle->end();
 339 }
 340
 341 //////////////////////////////////////////////////////////// Tags
 342 // tags section
 343 if ( $local_peer ) {
 344
 345   $tags=$api->GetNodeTags (array('node_id'=>$node_id));
 346   function get_tagname ($tag) { return $tag['tagname'];}
 347   // xxx looks like tech-only see an error here,
 348   // might be that GetNodeTags is not accessible or something
 349   $tagnames = array_map ("get_tagname",$tags);
 350   $nodegroups_hash=plc_nodegroup_global_hash($api,$tagnames);
 351
 352   $toggle = new PlekitToggle ('tags',count_english_warning($tags,'tag'),
 353                               array('bubble'=>'Inspect and set tags on that node',
 354                                     'visible'=>get_arg('show_tags',false)));
 355   $toggle->start();
 356
 357   $headers=array("Name"=>"string",
 358                  "Value"=>"string",
 359                  "Nodegroup"=>"string",
 360                  );
 361   if (plc_is_admin()) $headers[plc_delete_icon()]="none";
 362
 363   $table_options=array("notes_area"=>false,"pagesize_area"=>false,"search_width"=>10);
 364   $table=new PlekitTable("node_tags",$headers,0,$table_options);
 365   $table->start();
 366   if ($tags) foreach ($tags as $tag) {
 367       // does this match a nodegroup ?
 368       $nodegroup_name="n/a";
 369       $nodegroup_key=$tag['tagname'] . "=" . $tag['value'];
 370       $nodegroup=$nodegroups_hash[$nodegroup_key];
 371       if ($nodegroup) $nodegroup_name=l_nodegroup_t($nodegroup['nodegroup_id'],$nodegroup['groupname']);
 372       $table->row_start();
 373       $table->cell(l_tag_obj($tag));
 374       $table->cell($tag['value']);
 375       $table->cell($nodegroup_name);
 376       // the remove checkbox
 377       if (plc_is_admin()) $table->cell ($form->checkbox_html('node_tag_ids[]',$tag['node_tag_id']));
 378       $table->row_end();
 379     }
 380
 381   if ($privileges) {
 382     $table->tfoot_start();
 383
 384     // remove tag
 385     $table->row_start();
 386     $table->cell($form->submit_html("delete-node-tags","Remove Tags"),
 387                  // use the whole columns and right adjust
 388                  array('hfill'=>true,'align'=>'right'));
 389     $table->row_end();
 390
 391     // set tag area
 392     $table->row_start();
 393     // get list of tag names in the node/* category
 394     $all_tags= $api->GetTagTypes( array ("category"=>"node*"), array("tagname","tag_type_id"));
 395     // xxx cannot use onchange=submit() - would need to somehow pass action name
 396     function tag_selector ($tag) { return array("display"=>$tag['tagname'],"value"=>$tag['tag_type_id']); }
 397     $selector=array_map("tag_selector",$all_tags);
 398     $table->cell($form->select_html("tag_type_id",$selector,array('label'=>"Choose")));
 399     $table->cell($form->text_html("value","",array('width'=>8)));
 400     $table->cell($form->submit_html("set-tag-on-node","Set Tag"),array('columns'=>2,'align'=>'left'));
 401     $table->row_end();
 402   }
 403
 404   $table->end();
 405   $toggle->end();
 406 }
 407
 408 //////////////////////////////////////////////////////////// interfaces
 409 if ( $local_peer ) {
 410   $toggle=new PlekitToggle ('interfaces',count_english_warning($interfaces,'interface'),
 411                             array('bubble'=>'Inspect and tune interfaces on that node',
 412                                   'visible'=>get_arg('show_interfaces',false)));
 413   $toggle->start();
 414   // display interfaces
 415   if( ! $interfaces ) {
 416     echo '<p>';
 417     plc_warning_html("This node has no interface");
 418     echo "Please add an interface to make this a usable PLC node.</p>\n";
 419   } else {
 420
 421     // display a hostname column iff at least one interface has a hostname
 422     $need_hostname=false;
 423     if ($interfaces) foreach ($interfaces as $interface) if ($interface['hostname']) $need_hostname=true;
 424
 425     $headers=array();
 426
 427     $sort_column=0;
 428     if (plc_is_admin()) { $headers['I']='int'; $sort_column +=1;}
 429     $headers["IP"]="sortIPAddress";
 430     if ($need_hostname) $headers['hostname']='string';
 431     $headers["Method"]="string";
 432     $headers["Type"]="string";
 433     $headers["MAC"]="string";
 434     $headers["bw limit"]="sortBandwidth";
 435     // a single symbol, marking 'p' for primary and a delete button for non-primary
 436     if ( $privileges ) $headers[plc_delete_icon()]='string';
 437
 438     $table_options=array('search_area'=>false,"pagesize_area"=>false,'notes_area'=>false);
 439     $table=new PlekitTable("node_interfaces",$headers,$sort_column,$table_options);
 440     $table->start();
 441
 442     foreach ( $interfaces as $interface ) {
 443       $interface_id= $interface['interface_id'];
 444       $interface_ip= $interface['ip'];
 445
 446       $table->row_start();
 447       if (plc_is_admin()) $table->cell(l_interface_t($interface_id,$interface_id));
 448       $table->cell(l_interface_t($interface_id,$interface_ip));
 449       if ($need_hostname) $table->cell($interface['hostname']);
 450       $table->cell($interface['method']);
 451       $table->cell($interface['type']);
 452       $table->cell($interface['mac']);
 453       $table->cell(pretty_bandwidth($interface['bwlimit']));
 454       if ( $privileges ) {
 455         if ($interface['is_primary']) {
 456           $table->cell(plc_bubble("p","Cannot delete a primary interface"));
 457         } else {
 458           $table->cell ($form->checkbox_html('interface_ids[]',$interface_id));
 459         }
 460       }
 461       $table->row_end();
 462     }
 463     if ($privileges) {
 464       $table->tfoot_start();
 465       $table->row_start();
 466       // we should have 6 cols, use 3 for the left (new) and the rest for the right (remove)
 467       //$add_button=new PlekitFormButton (l_interface_add($node_id),"add","Add Interface","GET");
 468       //$table->cell($add_button->html(),array('columns'=> 3,'align'=>'left'));
 469       $table->cell($form->submit_html("new-interface","Add Interface"),
 470                 array('columns'=> 3,'align'=>'left'));
 471       $table->cell($form->submit_html("delete-interfaces","Remove Interfaces"),
 472                    array('columns'=>$table->columns()-3,'align'=>'right'));
 473       $table->row_end();
 474     }
 475     $table->end();
 476   }
 477   $toggle->end();
 478  }
 479
 480 $form->end();
 481
 482 ////////////////////////////////////////////////////////////
 483 $peers->block_end($peer_id);
 484
 485 //plekit_linetabs ($tabs,"bottom");
 486
 487 // Print footer
 488 include 'plc_footer.php';
 489
 490 ?>