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_minitabs.php';
  19 require_once 'plc_tables.php';
  20
  21 //fix the memory limit for this page
  22 ini_set("memory_limit","48M");
  23
  24 // --------------------
  25 // recognized URL arguments
  26 $peerscope=$_GET['peerscope'];
  27 $pattern=$_GET['pattern'];
  28 $site_id=intval($_GET['site_id']);
  29 $slice_id=intval($_GET['slice_id']);
  30
  31 // --- decoration
  32 $title="Accounts";
  33 $tabs=array();
  34 $tabs['My accounts'] = array('url'=>l_persons(),
  35                              'values'=>array('site_id'=>plc_my_site_id()),
  36                              'bubble'=>'Lists accounts on site ' . plc_my_site_id());
  37 // --------------------
  38 $person_filter=array();
  39
  40 ////////////////////
  41 function person_status ($person) {
  42
  43   $messages=array();
  44
  45   if ( $person['peer_id'] ) {
  46     $class='plc-foreign';
  47   } else {
  48     $class='plc-warning';
  49   }
  50   // check that the person has keys
  51   if ( count($person['key_ids']) == 0)
  52     $messages [] = "No Key";
  53   if ( ! $person['enabled'] )
  54     $messages[] = "Disabled";
  55   // for tech-only people: outline user if in a slice
  56   if ( ( count($person['roles'])==1 ) &&
  57        ( in_array('tech',$person['roles']) ) ) {
  58     if (! empty($person["slice_ids"]) ) $messages[]="Tech in a Slice";
  59   } else {
  60     // or for other kind of people, if they have no slice
  61     if ( count($person['slice_ids']) == 0) $messages [] = "No Slice";
  62   }
  63   return plc_vertical_table($messages,$class);
  64 }
  65
  66
  67 // fetch persons
  68 $person_columns=array('person_id','first_name','last_name','email','roles','peer_id','key_ids','site_ids','enabled','slice_ids');
  69 // PIs and admins can see users not yet enabled
  70 $privileges=plc_is_admin() || plc_is_pi();
  71 if ( ! $privileges )
  72   $person_filter['enabled']=true;
  73 // server-side filtering - set pattern in $_GET for filtering on email
  74 if ($pattern) {
  75   $person_filter['email']=$pattern;
  76   $title .= " matching " . $pattern;
  77  } else {
  78   $person_filter['email']="*";
  79  }
  80
  81 // server-side selection on peerscope
  82 list ( $peer_filter, $peer_label) = plc_peer_info($api,$_GET['peerscope']);
  83 $person_filter=array_merge($person_filter,$peer_filter);
  84
  85 if ($site_id) {
  86   $sites=$api->GetSites(array($site_id),array("name","login_base","person_ids"));
  87   $site=$sites[0];
  88   $name=$site['name'];
  89   $login_base=$site['login_base'];
  90   $title .= t_site($site);
  91   $tabs = array_merge($tabs,tabs_site($site));
  92   $person_filter['person_id']=$site['person_ids'];
  93   if ($site_id == plc_my_site_id())
  94     unset($tabs['My accounts']);
  95 }
  96
  97 if ($slice_id) {
  98   $slices=$api->GetSlices(array($slice_id),array('person_ids','name'));
  99   $slice=$slices[0];
 100   $title .= t_slice($slice);
 101   $tabs = array_merge($tabs,tabs_slice($slice));
 102   $person_filter['person_id'] = $slice['person_ids'];
 103  }
 104
 105 // go
 106 $persons=$api->GetPersons($person_filter,$person_columns);
 107
 108 // build site_ids
 109 $site_ids=array();
 110 if ($persons) foreach ($persons as $person)
 111                 if ($person['site_ids'][0])
 112                   $site_ids []= $person['site_ids'][0];
 113
 114 // fetch related sites
 115 $site_columns=array('site_id','login_base');
 116 $site_filter=array('site_id'=>$site_ids);
 117 $sites=$api->GetSites($site_filter,$site_columns);
 118
 119 // hash on site_id
 120 $site_hash=array();
 121 foreach ($sites as $site) {
 122     $site_hash[$site['site_id']]=$site;
 123 }
 124
 125 // --------------------
 126 drupal_set_title($title);
 127
 128 plc_tabs($tabs);
 129
 130 if ( ! $persons ) {
 131   drupal_set_message ('No account found');
 132   return;
 133  }
 134
 135 $headers = array ("Peer"=>"string",
 136                   "Roles"=>"string",
 137                   "First"=>"string",
 138                   "Last"=>"string",
 139                   "Email"=>"string",
 140                   "Site" => "string",
 141                   "Status"=>"string",
 142                   );
 143
 144 // initial sort on email
 145 plc_table_start("persons",$headers,4);
 146
 147 $peer_hash = plc_peer_global_hash ($api);
 148 // write rows
 149
 150 foreach ($persons as $person) {
 151     $person_id=$person['person_id'];
 152     $email=$person['email'];
 153     $shortname = plc_peer_shortname ($peer_hash,$person['peer_id']);
 154     $site_id=$person['site_ids'][0];
 155     $site=$site_hash[$site_id];
 156     $login_base = $site['login_base'];
 157     $roles = plc_vertical_table ($person['roles']);
 158
 159     plc_table_row_start($email);
 160
 161     plc_table_cell($shortname);
 162     plc_table_cell($roles);
 163     plc_table_cell ($person['first_name']);
 164     plc_table_cell ($person['last_name']);
 165     plc_table_cell(l_person_t($person_id,$email));
 166     plc_table_cell($login_base);
 167     plc_table_cell(person_status($person));
 168     plc_table_row_end();
 169
 170 }
 171
 172 plc_table_end("persons");
 173
 174 // Print footer
 175 include 'plc_footer.php';
 176
 177
 178 ?>