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