planetlab/slices/slices.php

   1 <?php
   2
   3 // $Id$
   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 require_once 'nifty.php';
  25
  26 ini_set('memory_limit','48M');
  27
  28 // --------------------
  29 // recognized URL arguments
  30 $peerscope=$_GET['peerscope'];
  31 $pattern=$_GET['pattern'];
  32 $site_id=intval($_GET['site_id']);
  33 $person_id=intval($_GET['person_id']);
  34
  35 // --- decoration
  36 $title="Slices";
  37 $tabs=array();
  38 $tabs []= tab_slices_mysite();
  39 if (plc_is_admin()) $tabs []= tab_slices_local();
  40
  41 // ----------
  42 $slice_filter=array();
  43
  44
  45 // fetch slices
  46 $slice_columns=array('slice_id','name','expires','person_ids','peer_id','node_ids');
  47 // server-side filtering - set pattern in $_GET for filtering on hostname
  48 if ($pattern) {
  49   $slice_filter['name']=$pattern;
  50   $title .= " matching " . $pattern;
  51  } else {
  52   $slice_filter['name']="*";
  53  }
  54
  55 // server-side selection on peerscope
  56 $peerscope=new PeerScope($api,$_GET['peerscope']);
  57 $slice_filter=array_merge($slice_filter,$peerscope->filter());
  58 $title .= ' - ' . $peerscope->label();
  59
  60
  61 if ($site_id) {
  62   $sites=$api->GetSites(array($site_id));
  63   $site=$sites[0];
  64   $name=$site['name'];
  65   $login_base=$site['login_base'];
  66   $title .= t_site($site);
  67   $tabs []= tab_site($site);
  68   $slice_filter['site_id']=array($site_id);
  69 }
  70
  71 if ($person_id) {
  72   $persons=$api->GetPersons(array('person_id'=>$person_id,array('email','person_id','slice_ids')));
  73   $person=$persons[0];
  74   $title .= t_person($person);
  75   $tabs .= tab_person($person);
  76   $slice_filter['slice_id']=$person['slice_ids'];
  77  }
  78
  79 // go
  80 $slices=$api->GetSlices($slice_filter,$slice_columns);
  81
  82 // build person_hash
  83 $person_ids=array();
  84 if ($slices) foreach ($slices as $slice) {
  85   $person_ids = array_merge ($person_ids,$slice['person_ids']);
  86 }
  87 $persons=$api->GetPersons($person_ids,array('person_id','email'));
  88 global $person_hash;
  89 $person_hash=array();
  90 if ($persons) foreach ($persons as $person) $person_hash[$person['person_id']]=$person;
  91
  92 function email_link_from_hash($person_id) {
  93   global $person_hash;
  94   return l_person_obj($person_hash[$person_id]);
  95 }
  96
  97 // --------------------
  98 drupal_set_title($title);
  99
 100 plekit_linetabs($tabs);
 101
 102 if ( ! $slices ) {
 103   drupal_set_message ('No slice found');
 104   return;
 105  }
 106
 107 $nifty=new PlekitNifty ('','objects-list','big');
 108 $nifty->start();
 109 $headers["I"]="int";
 110 $headers["Peer"]="string";
 111 $headers["Name"]="string";
 112 $headers["Users"]="string";
 113 $headers["U"]="int";
 114 $headers["N"]="int";
 115 $headers["Exp. d/m/y"]="date-dmy";
 116
 117 # initial sort on hostnames
 118 $table=new PlekitTable ("slices",$headers,3,
 119                         array('search_width'=>20));
 120 $table->start();
 121
 122 $peers = new Peers ($api);
 123 // write rows
 124 foreach ($slices as $slice) {
 125   $slice_id=$slice['slice_id'];
 126   $peer_id=$slice['peer_id'];
 127   $users=plc_vertical_table (array_map ("email_link_from_hash",$slice['person_ids']));
 128   $expires= date( "d/m/Y", $slice['expires'] );
 129
 130   $table->row_start();
 131   $table->cell (l_slice_t($slice_id,$slice_id));
 132   $peers->cell($table,$peer_id);
 133   $table->cell (l_slice_obj($slice));
 134   $table->cell ($users);
 135   $table->cell(href(l_persons_slice($slice_id),count($slice['person_ids'])));
 136   $table->cell (href(l_nodes_slice($slice_id),count($slice['node_ids'])));
 137   $table->cell ($expires);
 138   $table->row_end();
 139 }
 140
 141 $notes=array();
 142 $notes []= "U = number of users";
 143 $notes []= "N = number of nodes";
 144 $table->end(array('notes'=>$notes));
 145 $nifty->end();
 146
 147 //plekit_linetabs ($tabs,"bottom");
 148
 149 // Print footer
 150 include 'plc_footer.php';
 151
 152 ?>