planetlab/persons/persons.php

   1 <?php
   2
   3 // $Id: index.php 11645 2009-01-21 23:09:49Z thierry $
   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 $mysite_id=plc_my_site_id();
  35 $tabs['My accounts'] = array('url'=>l_persons(),
  36                              'values'=>array('site_id'=>plc_my_site_id()),
  37                              'bubble'=>'Lists accounts on site ' . $mysite_id);
  38 // --------------------
  39 $peer_filter=array();
  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     // check that the person has keys
  52     if ( count($person['key_ids']) == 0)
  53       $messages [] = "No Key";
  54     if ( ! $person['enabled'] )
  55       $messages[] = "Disabled";
  56     //detect tech-only people involved in slices.
  57   }
  58   if( ( count($person['roles'])==1 ) && ( in_array('tech',$person['roles']) )  && (! empty($person["slice_ids"])) ) {
  59     $messages[]="Tech involved in a Slice";
  60   }
  61   return plc_vertical_table($messages,$class);
  62 }
  63
  64
  65 // fetch persons
  66 $person_columns=array('first_name','last_name','email','roles','peer_id','key_ids','site_ids');
  67 // PIs and admins can see users not yet enabled
  68 $privileges=plc_is_admin() || plc_is_pi();
  69 if ( ! $privileges )
  70   $person_filter['enabled']=true;
  71 // server-side filtering - set pattern in $_GET for filtering on email
  72 if ($pattern) {
  73   $person_filter['email']=$pattern;
  74   $title .= " matching " . $pattern;
  75  } else {
  76   $person_filter['email']="*";
  77  }
  78
  79 // server-side selection on peerscope
  80 list ( $peer_filter, $peer_label) = plc_peer_info($api,$_GET['peerscope']);
  81 $person_filter=array_merge($person_filter,$peer_filter);
  82
  83 if ($site_id) {
  84   $sites=$api->GetSites(array($site_id),array("name","login_base","person_ids"));
  85   $site=$sites[0];
  86   $name=$site['name'];
  87   $login_base=$site['login_base'];
  88   $title .= t_site($site);
  89   $tabs = array_merge($tabs,tabs_site($site));
  90   $person_filter['person_id']=$site['person_ids'];
  91 }
  92
  93 if ($slice_id) {
  94   $slices=$api->GetSlices(array($slice_id),array('person_ids','name'));
  95   $slice=$slices[0];
  96   $title .= t_slice($slice);
  97   $tabs = array_merge($tabs,tabs_slice($slice));
  98   $person_filter['person_id'] = $slice['person_ids'];
  99  }
 100
 101 // go
 102 $persons=$api->GetPersons($person_filter,$person_columns);
 103
 104 // build site_ids
 105 $site_ids=array();
 106 if ($persons) foreach ($persons as $person)
 107                 if ($person['site_ids'][0])
 108                   $site_ids []= $person['site_ids'][0];
 109
 110 // fetch related sites
 111 $site_columns=array('site_id','login_base');
 112 $site_filter=array('site_id'=>$site_ids);
 113 $sites=$api->GetSites($site_filter,$site_columns);
 114
 115 // hash on site_id
 116 $site_hash=array();
 117 foreach ($sites as $site) {
 118     $site_hash[$site['site_id']]=$site;
 119 }
 120
 121 // --------------------
 122 drupal_set_title($title);
 123
 124 plc_tabs($tabs);
 125
 126 if ( ! $persons ) {
 127   drupal_set_message ('No account found');
 128   return;
 129  }
 130
 131 $columns = array ("Peer"=>"string",
 132                   "Roles"=>"string",
 133                   "First"=>"string",
 134                   "Last"=>"string",
 135                   "Email"=>"string",
 136                   "Site" => "string",
 137                   "Status"=>"string",
 138                   );
 139
 140 // initial sort on email
 141 $table_options=array();
 142 plc_table_start("persons",$columns,5,$table_options);
 143
 144 $peer_hash = plc_peer_get_hash ($api);
 145 // write rows
 146
 147 foreach ($persons as $person) {
 148     $person_id=$person['person_id'];
 149     $email=$person['email'];
 150     $shortname = plc_peer_shortname ($peer_hash,$person['peer_id']);
 151     $site_id=$person['site_ids'][0];
 152     $site=$site_hash[$site_id];
 153     $login_base = $site['login_base'];
 154     $roles = plc_vertical_table ($person['roles']);
 155
 156     plc_table_row_start($email);
 157
 158     plc_table_cell($shortname);
 159     plc_table_cell($roles);
 160     plc_table_cell ($person['first_name']);
 161     plc_table_cell ($person['last_name']);
 162     plc_table_cell($email);
 163     plc_table_cell($login_base);
 164     plc_table_cell(person_status($person));
 165     plc_table_row_end();
 166
 167 }
 168
 169 plc_table_end($table_options);
 170
 171 // Print footer
 172 include 'plc_footer.php';
 173
 174
 175 ?>