planetlab/nodes/nodes.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_minitabs.php';
  19 require_once 'plc_tables.php';
  20
  21 // --------------------
  22 // recognized URL arguments
  23 $peerscope=$_GET['peerscope'];
  24 $pattern=$_GET['pattern'];
  25 $site_id=intval($_GET['site_id']);
  26 $slice_id=intval($_GET['slice_id']);
  27
  28 // --- decoration
  29 $title="Nodes";
  30 $tabs["Logout"]=array('url'=>l_logout(),
  31                       'bubble'=>'Logout ' . $plc->person['email']);
  32
  33 // --------------------
  34 $peer_filter=array();
  35 $node_filter=array();
  36
  37 //////////////////
  38 // performs sanity check and summarize the result in a single column
  39 function node_status ($node) {
  40
  41   $messages=array();
  42
  43   // do all this stuff on local nodes only
  44   if ( ! $node['peer_id'] ) {
  45     // check that the node has keys
  46     if (count($node['interface_ids']) == 0) {
  47       $messages [] = "No interface";
  48     }
  49   }
  50   return plc_make_table('plc-warning',$messages);
  51 }
  52
  53
  54 // fetch nodes - set pattern in the url for server-side filtering
  55 $node_columns=array('hostname','node_type','site_id','node_id','boot_state','interface_ids','peer_id');
  56 if ($pattern) {
  57   $node_filter['hostname']=$pattern;
  58   $title .= " matching " . $pattern;
  59  } else {
  60   $node_filter['hostname']="*";
  61  }
  62
  63 // server-side selection on peerscope
  64 list ( $peer_filter, $peer_label) = plc_peer_info($api,$_GET['peerscope']);
  65 $node_filter=array_merge($node_filter,$peer_filter);
  66
  67 if ($site_id) {
  68   $sites=$api->GetSites(array($site_id),array("name","login_base"));
  69   $site=$sites[0];
  70   $name=$site['name'];
  71   $login_base=$site['login_base'];
  72   $title .= t_site($site);
  73   $tabs = array_merge($tabs,tabs_site($site));
  74   $node_filter['site_id']=array($site_id);
  75 }
  76
  77 if ($slice_id) {
  78   $slices=$api->GetSlices(array($slice_id),array('node_ids','name'));
  79   $slice=$slices[0];
  80   $title .= t_slice($slice);
  81   $tabs = array_merge($tabs,tabs_slice($slice));
  82   $node_filter['node_id'] = $slice['node_ids'];
  83  }
  84
  85 // go
  86 $nodes=$api->GetNodes($node_filter,$node_columns);
  87
  88 // build site_ids - interface_ids
  89 $site_ids=array();
  90 $interface_ids=array();
  91 if ($nodes) foreach ($nodes as $node) {
  92   $site_ids []= $node['site_id'];
  93   $interface_ids = array_merge ($interface_ids,$node['interface_ids']);
  94 }
  95
  96 // fetch related interfaces
  97 $interface_columns=array('ip','node_id','interface_id');
  98 $interface_filter=array('is_primary'=>TRUE,'interface_id'=>$interface_ids);
  99 $interfaces=$api->GetInterfaces($interface_filter,$interface_columns);
 100
 101 $interface_hash=array();
 102 foreach ($interfaces as $interface) {
 103     $interface_hash[$interface['node_id']]=$interface;
 104 }
 105
 106 // fetch related sites
 107 $site_columns=array('site_id','login_base');
 108 $site_filter=array('site_id'=>$site_ids);
 109 $sites=$api->GetSites($site_filter,$site_columns);
 110
 111 $site_hash=array();
 112 foreach ($sites as $site) {
 113     $site_hash[$site['site_id']]=$site;
 114 }
 115
 116 // --------------------
 117 drupal_set_title($title);
 118
 119 plc_tabs($tabs);
 120
 121 if ( ! $nodes ) {
 122   drupal_set_message ('No node found');
 123   return;
 124  }
 125
 126 $columns = array ("Peer"=>"string",
 127                   "Region"=>"string",
 128                   "Site"=>"string",
 129                   "State"=>"string",
 130                   "Hostname"=>"string",
 131                   "IP"=>"IPAddress",
 132                   "Type"=>"string",
 133                   "?"=>"string",
 134                   "Int"=>"int",
 135                   "Float"=>"float");
 136
 137 # initial sort on hostnames
 138 plc_table_start("nodes",$columns,4);
 139
 140 $peer_hash = plc_peer_get_hash ($api);
 141 // write rows
 142 $fake1=1; $fake2=3.14; $fake_i=0;
 143 foreach ($nodes as $node) {
 144     $hostname=$node['hostname'];
 145     $node_id=$node['node_id'];
 146     $site_id=$node['site_id'];
 147     $site=$site_hash[$site_id];
 148     $login_base = $site['login_base'];
 149     $node_id=$node['node_id'];
 150     $ip=$interface_hash[$node['node_id']]['ip'];
 151     $interface_id=$interface_hash[$node['node_id']]['interface_id'];
 152     $shortname = plc_peer_shortname ($peer_hash,$node['peer_id']);
 153     $node_type = $node['node_type'];
 154
 155     plc_table_row_start($hostname);
 156     plc_table_cell ($shortname);
 157     plc_table_cell (topdomain($hostname));
 158     plc_table_cell (l_site2($site_id,$login_base));
 159     plc_table_cell ($node['boot_state']);
 160     plc_table_cell (l_node2($node_id,$hostname));
 161     plc_table_cell (l_interface2($interface_id,$ip));
 162     plc_table_cell ($node_type);
 163     plc_table_cell (node_status($node));
 164     plc_table_cell ($fake1);
 165     plc_table_cell ($fake2);
 166     plc_table_row_end();
 167
 168     if ($fake_i % 5 == 0) $fake1 += 3;
 169     if ($fake_i % 3 == 0) $fake2 +=5; else $fake2 -= $fake_i;
 170     $fake_i += 1;
 171 }
 172
 173 plc_table_end();
 174
 175 plc_table_notes();
 176 ?>
 177