planetlab/persons/persons.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 'linetabs.php';
  20 require_once 'table.php';
  21
  22 //fix the memory limit for this page
  23 ini_set("memory_limit","48M");
  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="Accounts";
  34 $tabs=array();
  35 $tabs []= tab_persons_mysite();
  36
  37 if (plc_is_admin())
  38   $tabs []= tab_persons_local();
  39 // --------------------
  40 $person_filter=array();
  41
  42 ////////////////////
  43 function person_status ($person) {
  44
  45   $messages=array();
  46
  47   if ( $person['peer_id'] ) {
  48     $class='plc-foreign';
  49   } else {
  50     $class='plc-warning';
  51   }
  52   // check that the person has keys
  53   if ( count($person['key_ids']) == 0)
  54     $messages [] = "No Key";
  55   if ( ! $person['enabled'] )
  56     $messages[] = "Disabled";
  57   // for tech-only people: outline user if in a slice
  58   if ( ( count($person['roles'])==1 ) &&
  59        ( in_array('tech',$person['roles']) ) ) {
  60     if (! empty($person["slice_ids"]) ) $messages[]="Tech in a Slice";
  61   } else {
  62     // or for other kind of people, if they have no slice
  63     if ( count($person['slice_ids']) == 0) $messages [] = "No Slice";
  64   }
  65   return plc_vertical_table($messages,$class);
  66 }
  67
  68
  69 // fetch persons
  70 $person_columns=array('person_id','first_name','last_name','email','roles','peer_id','key_ids','site_ids','enabled','slice_ids');
  71 // PIs and admins can see users not yet enabled
  72 $privileges=plc_is_admin() || plc_is_pi();
  73 if ( ! $privileges )
  74   $person_filter['enabled']=true;
  75 // server-side filtering - set pattern in $_GET for filtering on email
  76 if ($pattern) {
  77   $person_filter['email']=$pattern;
  78   $title .= " matching " . $pattern;
  79  } else {
  80   $person_filter['email']="*";
  81  }
  82
  83 // server-side selection on peerscope
  84 $peerscope=new PeerScope ($api,$_GET['peerscope']);
  85 $person_filter=array_merge($person_filter,$peerscope->filter());
  86 $title .= ' - ' . $peerscope->label();
  87
  88 if ($site_id) {
  89   $sites=$api->GetSites(array($site_id),array("name","login_base","person_ids"));
  90   $site=$sites[0];
  91   $name=$site['name'];
  92   $login_base=$site['login_base'];
  93   $title .= t_site($site);
  94   $person_filter['person_id']=$site['person_ids'];
  95   if ($site_id != plc_my_site_id())
  96     $tabs []= tab_site($site);
  97 }
  98
  99 if ($slice_id) {
 100   $slices=$api->GetSlices(array($slice_id),array('person_ids','name'));
 101   $slice=$slices[0];
 102   $title .= t_slice($slice);
 103   $tabs []= tab_slice($slice);
 104   $person_filter['person_id'] = $slice['person_ids'];
 105  }
 106
 107 // go
 108 $persons=$api->GetPersons($person_filter,$person_columns);
 109
 110 // build site_ids
 111 $site_ids=array();
 112 if ($persons) foreach ($persons as $person)
 113                 if ($person['site_ids'][0])
 114                   $site_ids []= $person['site_ids'][0];
 115
 116 // fetch related sites
 117 $site_columns=array('site_id','login_base');
 118 $site_filter=array('site_id'=>$site_ids);
 119 $sites=$api->GetSites($site_filter,$site_columns);
 120
 121 // hash on site_id
 122 $site_hash=array();
 123 foreach ($sites as $site) {
 124     $site_hash[$site['site_id']]=$site;
 125 }
 126
 127 // --------------------
 128 drupal_set_title($title);
 129
 130 //plekit_linetabs($tabs);
 131
 132 if ( ! $persons ) {
 133   drupal_set_message ('No account found');
 134   return;
 135  }
 136
 137 $headers = array ("Peer"=>"string",
 138                   "First"=>"string",
 139                   "Last"=>"string",
 140                   "Email"=>"string",
 141                   "Site" => "string",
 142                   "Roles"=>"string",
 143                   "S" => "int",
 144                   "Status"=>"string",
 145                   );
 146
 147 // initial sort on email
 148 $table=new PlekitTable("persons",$headers,3);
 149 $table->start();
 150
 151 $peers=new Peers ($api);
 152
 153 // write rows
 154
 155 foreach ($persons as $person) {
 156     $person_id=$person['person_id'];
 157     $email=$person['email'];
 158     $shortname = $peers->shortname($person['peer_id']);
 159     $site_id=$person['site_ids'][0];
 160     $site=$site_hash[$site_id];
 161     $login_base = $site['login_base'];
 162     $roles = plc_vertical_table ($person['roles']);
 163
 164     $table->row_start();
 165
 166     $table->cell($shortname);
 167     $table->cell ($person['first_name']);
 168     $table->cell ($person['last_name']);
 169     $table->cell(l_person_t($person_id,$email));
 170     $table->cell(l_site_t($site_id,$login_base));
 171     $table->cell($roles);
 172     $table->cell(count($person['slice_ids']));
 173     $table->cell(person_status($person));
 174     $table->row_end();
 175
 176 }
 177 $notes=array("The S column shows the number of slices for the given user");
 178 $table->end(array('notes'=>$notes));
 179
 180 //plekit_linetabs ($tabs,"bottom");
 181
 182 // Print footer
 183 include 'plc_footer.php';
 184
 185
 186 ?>