planetlab/slices/slices.php

   1 <?php
   2
   3 // $Id: index.php 12104 2009-02-19 18:41:19Z thierry $
   4 // pattern-matching selection not implemented
   5 // due to GetSlices bug, see test.php for details
   6 // in addition that would not make much sense
   7
   8 // Require login
   9 require_once 'plc_login.php';
  10
  11 // Get session and API handles
  12 require_once 'plc_session.php';
  13 global $plc, $api;
  14
  15 // Print header
  16 require_once 'plc_drupal.php';
  17 include 'plc_header.php';
  18
  19 // Common functions
  20 require_once 'plc_functions.php';
  21 require_once 'plc_peers.php';
  22 require_once 'linetabs.php';
  23 require_once 'table.php';
  24
  25 // --------------------
  26 // recognized URL arguments
  27 $peerscope=$_GET['peerscope'];
  28 $pattern=$_GET['pattern'];
  29 $site_id=intval($_GET['site_id']);
  30 $person_id=intval($_GET['person_id']);
  31
  32 // --- decoration
  33 $title="Slices";
  34 $tabs=array();
  35 $tabs []= tab_slices_mysite();
  36 if (plc_is_admin()) $tabs []= tab_slices_local();
  37
  38 // ----------
  39 $slice_filter=array();
  40
  41
  42 // fetch slices
  43 $slice_columns=array('slice_id','name','expires','person_ids','peer_id','node_ids');
  44 // server-side filtering - set pattern in $_GET for filtering on hostname
  45 if ($pattern) {
  46   $slice_filter['name']=$pattern;
  47   $title .= " matching " . $pattern;
  48  } else {
  49   $slice_filter['name']="*";
  50  }
  51
  52 // server-side selection on peerscope
  53 $peerscope=new PeerScope($api,$_GET['peerscope']);
  54 $slice_filter=array_merge($slice_filter,$peerscope->filter());
  55 $title .= ' - ' . $peerscope->label();
  56
  57
  58 if ($site_id) {
  59   $sites=$api->GetSites(array($site_id));
  60   $site=$sites[0];
  61   $name=$site['name'];
  62   $login_base=$site['login_base'];
  63   $title .= t_site($site);
  64   $tabs []= tab_site($site);
  65   $slice_filter['site_id']=array($site_id);
  66 }
  67
  68 if ($person_id) {
  69   $persons=$api->GetPersons(array('person_id'=>$person_id,array('email','person_id','slice_ids')));
  70   $person=$persons[0];
  71   $title .= t_person($person);
  72   $tabs .= tab_person($person);
  73   $slice_filter['slice_id']=$person['slice_ids'];
  74  }
  75
  76 // go
  77 $slices=$api->GetSlices($slice_filter,$slice_columns);
  78
  79 // build person_hash
  80 $person_ids=array();
  81 if ($slices) foreach ($slices as $slice) {
  82   $person_ids = array_merge ($person_ids,$slice['person_ids']);
  83 }
  84 $persons=$api->GetPersons($person_ids,array('person_id','email'));
  85 global $person_hash;
  86 $person_hash=array();
  87 if ($persons) foreach ($persons as $person) $person_hash[$person['person_id']]=$person;
  88
  89 function email_link_from_hash($person_id) {
  90   global $person_hash;
  91   return l_person_obj($person_hash[$person_id]);
  92 }
  93
  94 // --------------------
  95 drupal_set_title($title);
  96
  97 plekit_linetabs($tabs);
  98
  99 if ( ! $slices ) {
 100   drupal_set_message ('No slice found');
 101   return;
 102  }
 103
 104 $headers = array ("Peer"=>"string",
 105                   "Name"=>"string",
 106                   "Users"=>"string",
 107                   "N"=>"int",
 108                   "Exp. d/m/y"=>"date-dmy");
 109
 110 # initial sort on hostnames
 111 $table=new PlekitTable ("slices",$headers,2,
 112                         array('search_width'=>20));
 113 $table->start();
 114
 115 $peers = new Peers ($api);
 116 // write rows
 117 foreach ($slices as $slice) {
 118   $peer_id=$slice['peer_id'];
 119   $shortname = $peers->shortname($peer_id);
 120   $users=plc_vertical_table (array_map ("email_link_from_hash",$slice['person_ids']));
 121   $expires= date( "d/m/Y", $slice['expires'] );
 122
 123   $table->row_start();
 124   $table->cell ($peers->link($peer_id,$shortname));
 125   $table->cell (l_slice_obj($slice));
 126   $table->cell ($users);
 127   $table->cell (href(l_nodes_slice($slice['slice_id']),count($slice['node_ids'])));
 128   $table->cell ($expires);
 129   $table->row_end();
 130 }
 131
 132 $table->end();
 133
 134 //plekit_linetabs ($tabs,"bottom");
 135
 136 // Print footer
 137 include 'plc_footer.php';
 138
 139 ?>