planetlab/nodes/newindex.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 //////////////////
  43 // performs sanity check and summarize the result in a single column
  44 function node_status ($node) {
  45
  46   $messages=array();
  47
  48   // do all this stuff on local nodes only
  49   if ( ! $node['peer_id'] ) {
  50     // check that the node has keys
  51     if (count($node['interface_ids']) == 0) {
  52       $messages [] = "No interface";
  53     }
  54   }
  55   return plc_make_table('plc-warning',$messages);
  56 }
  57
  58
  59 // fetch nodes - set pattern in the url for server-side filtering
  60 $node_columns=array('hostname','site_id','node_id','boot_state','interface_ids','peer_id');
  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 list ( $peer_filter, $peer_label) = plc_peer_info($api,$_GET['peerscope']);
  70 $node_filter=array_merge($node_filter,$peer_filter);
  71
  72 if ($site_id) {
  73   $sites=$api->GetSites(array($site_id),array("name","login_base"));
  74   $site=$sites[0];
  75   $name=$site['name'];
  76   $login_base=$site['login_base'];
  77   $title .= t_site($site);
  78   $tabs = array_merge($tabs,tabs_site($site));
  79   $node_filter['site_id']=array($site_id);
  80 }
  81
  82 if ($slice_id) {
  83   $slices=$api->GetSlices(array($slice_id),array('node_ids','name'));
  84   $slice=$slices[0];
  85   $title .= t_slice($slice);
  86   $tabs = array_merge($tabs,tabs_slice($slice));
  87   $node_filter['node_id'] = $slice['node_ids'];
  88  }
  89
  90 // go
  91 $nodes=$api->GetNodes($node_filter,$node_columns);
  92
  93 // build site_ids - interface_ids
  94 $site_ids=array();
  95 $interface_ids=array();
  96 if ($nodes) foreach ($nodes as $node) {
  97   $site_ids []= $node['site_id'];
  98   $interface_ids = array_merge ($interface_ids,$node['interface_ids']);
  99 }
 100
 101 // fetch related interfaces
 102 $interface_columns=array('ip','node_id','interface_id');
 103 $interface_filter=array('is_primary'=>TRUE,'interface_id'=>$interface_ids);
 104 $interfaces=$api->GetInterfaces($interface_filter,$interface_columns);
 105
 106 $interface_hash=array();
 107 foreach ($interfaces as $interface) {
 108     $interface_hash[$interface['node_id']]=$interface;
 109 }
 110
 111 // fetch related sites
 112 $site_columns=array('site_id','login_base');
 113 $site_filter=array('site_id'=>$site_ids);
 114 $sites=$api->GetSites($site_filter,$site_columns);
 115
 116 $site_hash=array();
 117 foreach ($sites as $site) {
 118     $site_hash[$site['site_id']]=$site;
 119 }
 120
 121 // fetch peers
 122 $peer_columns=array('peer_id','shortname');
 123 $peer_filter=array();
 124 $peers = $api->GetPeers($peer_filter,$peer_columns);
 125
 126 $peer_hash=array();
 127 foreach ($peers as $peer) {
 128     $peer_hash[$peer['peer_id']]=$peer;
 129 }
 130
 131 // --------------------
 132 drupal_set_title($title);
 133
 134 plc_tabs($tabs);
 135
 136 if ( ! $nodes ) {
 137   drupal_set_message ('No node found');
 138   return;
 139  }
 140
 141 $columns = array ("Peer"=>"string",
 142                   "Region"=>"string",
 143                   "Site"=>"string",
 144                   "State"=>"string",
 145                   "Hostname"=>"string",
 146                   "IP"=>"IPAddress",
 147                   "Load"=>"int",
 148                   "Avg Load"=>"float",
 149                   "Status"=>"string");
 150
 151 # initial sort on hostnames
 152 plc_table_start("nodes",$columns,4);
 153
 154 // write rows
 155 $fake1=1; $fake2=3.14; $fake_i=0;
 156 foreach ($nodes as $node) {
 157     $hostname=$node['hostname'];
 158     $node_id=$node['node_id'];
 159     $site_id=$node['site_id'];
 160     $site=$site_hash[$site_id];
 161     $login_base = $site['login_base'];
 162     $node_id=$node['node_id'];
 163     $ip=$interface_hash[$node['node_id']]['ip'];
 164     $interface_id=$interface_hash[$node['node_id']]['interface_id'];
 165     if ( ! $node['peer_id'] ) {
 166       $shortname=PLC_SHORTNAME;
 167     } else {
 168       $shortname=$peer_hash[$node['peer_id']]['shortname'];
 169     }
 170     printf ('<tr id="%s">',$hostname);
 171
 172     plc_table_cell ($shortname);
 173     plc_table_cell (topdomain($hostname));
 174     plc_table_cell (l_site2($site_id,$login_base));
 175     plc_table_cell ($node['boot_state']);
 176     plc_table_cell (l_node2($node_id,$hostname));
 177     plc_table_cell (l_interface2($interface_id,$ip));
 178     plc_table_cell ($fake1);
 179     plc_table_cell ($fake2);
 180     plc_table_cell (node_status($node));
 181
 182     printf ( '</tr>');
 183
 184     if ($fake_i % 5 == 0) $fake1 += 3;
 185     if ($fake_i % 3 == 0) $fake2 +=5; else $fake2 -= $fake_i;
 186     $fake_i += 1;
 187 }
 188
 189 plc_table_end();
 190
 191 plc_table_notes();
 192 ?>
 193