svn:keywords
[plewww.git] / 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 $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   }
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   //detect tech-only people involved in slices. 
58   if ( ( count($person['roles'])==1 ) && 
59        ( in_array('tech',$person['roles']) )  && 
60        (! empty($person["slice_ids"])) ) 
61     $messages[]="Tech involved in a Slice";  
62   return plc_vertical_table($messages,$class);
63 }
64
65
66 // fetch persons 
67 $person_columns=array('person_id','first_name','last_name','email','roles','peer_id','key_ids','site_ids','enabled');
68 // PIs and admins can see users not yet enabled
69 $privileges=plc_is_admin() || plc_is_pi();
70 if ( ! $privileges ) 
71   $person_filter['enabled']=true;
72 // server-side filtering - set pattern in $_GET for filtering on email
73 if ($pattern) {
74   $person_filter['email']=$pattern;
75   $title .= " matching " . $pattern;
76  } else {
77   $person_filter['email']="*";
78  }
79
80 // server-side selection on peerscope
81 list ( $peer_filter, $peer_label) = plc_peer_info($api,$_GET['peerscope']);
82 $person_filter=array_merge($person_filter,$peer_filter);
83
84 if ($site_id) {
85   $sites=$api->GetSites(array($site_id),array("name","login_base","person_ids"));
86   $site=$sites[0];
87   $name=$site['name'];
88   $login_base=$site['login_base'];
89   $title .= t_site($site);
90   $tabs = array_merge($tabs,tabs_site($site));
91   $person_filter['person_id']=$site['person_ids'];
92   if ($site_id == plc_my_site_id()) 
93     unset($tabs['My accounts']);
94 }
95
96 if ($slice_id) {
97   $slices=$api->GetSlices(array($slice_id),array('person_ids','name'));
98   $slice=$slices[0];
99   $title .= t_slice($slice);
100   $tabs = array_merge($tabs,tabs_slice($slice));
101   $person_filter['person_id'] = $slice['person_ids'];
102  }
103
104 // go
105 $persons=$api->GetPersons($person_filter,$person_columns);
106
107 // build site_ids 
108 $site_ids=array();
109 if ($persons) foreach ($persons as $person) 
110                 if ($person['site_ids'][0])
111                   $site_ids []= $person['site_ids'][0];
112
113 // fetch related sites
114 $site_columns=array('site_id','login_base');
115 $site_filter=array('site_id'=>$site_ids);
116 $sites=$api->GetSites($site_filter,$site_columns);
117
118 // hash on site_id
119 $site_hash=array();
120 foreach ($sites as $site) {
121     $site_hash[$site['site_id']]=$site;
122 }
123
124 // --------------------
125 drupal_set_title($title);
126
127 plc_tabs($tabs);
128
129 if ( ! $persons ) {
130   drupal_set_message ('No account found');
131   return;
132  }
133   
134 $columns = array ("Peer"=>"string",
135                   "Roles"=>"string",
136                   "First"=>"string",
137                   "Last"=>"string",
138                   "Email"=>"string",
139                   "Site" => "string",
140                   "Status"=>"string",
141                   );
142
143 // initial sort on email
144 $table_options=array();
145 plc_table_start("persons",$columns,4,$table_options);
146
147 $peer_hash = plc_peer_get_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($table_options);
173
174 // Print footer
175 include 'plc_footer.php';
176
177
178 ?>