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