projects / platal.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Fixes some errors in the profile_update reminder.
[platal.git] / modules / profile.php
CommitLineData
7d8b17cb 1<?php
2/***************************************************************************
8d84c630 3 * Copyright (C) 2003-2009 Polytechnique.org *
7d8b17cb 4 * http://opensource.polytechnique.org/ *
5 * *
6 * This program is free software; you can redistribute it and/or modify *
7 * it under the terms of the GNU General Public License as published by *
8 * the Free Software Foundation; either version 2 of the License, or *
9 * (at your option) any later version. *
10 * *
11 * This program is distributed in the hope that it will be useful, *
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
14 * GNU General Public License for more details. *
15 * *
16 * You should have received a copy of the GNU General Public License *
17 * along with this program; if not, write to the Free Software *
18 * Foundation, Inc., *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
21
22class ProfileModule extends PLModule
23{
24 function handlers()
25 {
26 return array(
2398e553
SJ		 27 'photo' => $this->make_hook('photo', AUTH_PUBLIC),
28 'photo/change' => $this->make_hook('photo_change', AUTH_MDP),
e49018a7 29
2398e553
SJ		 30 'fiche.php' => $this->make_hook('fiche', AUTH_PUBLIC),
31 'profile' => $this->make_hook('profile', AUTH_PUBLIC),
32 'profile/private' => $this->make_hook('profile', AUTH_COOKIE),
33 'profile/ax' => $this->make_hook('ax', AUTH_COOKIE, 'admin'),
34 'profile/edit' => $this->make_hook('p_edit', AUTH_MDP),
35 'profile/ajax/address' => $this->make_hook('ajax_address', AUTH_COOKIE, 'user', NO_AUTH),
36 'profile/ajax/tel' => $this->make_hook('ajax_tel', AUTH_COOKIE, 'user', NO_AUTH),
37 'profile/ajax/edu' => $this->make_hook('ajax_edu', AUTH_COOKIE, 'user', NO_AUTH),
38 'profile/ajax/medal' => $this->make_hook('ajax_medal', AUTH_COOKIE, 'user', NO_AUTH),
39 'profile/networking' => $this->make_hook('networking', AUTH_PUBLIC),
40 'profile/ajax/job' => $this->make_hook('ajax_job', AUTH_COOKIE, 'user', NO_AUTH),
541e8d03
SJ		 41 'profile/ajax/sector' => $this->make_hook('ajax_sector', AUTH_COOKIE, 'user', NO_AUTH),
42 'profile/ajax/sub_sector' => $this->make_hook('ajax_sub_sector', AUTH_COOKIE, 'user', NO_AUTH),
07e72582 43 'profile/ajax/alternates' => $this->make_hook('ajax_alternates', AUTH_COOKIE, 'user', NO_AUTH),
2398e553
SJ		 44 'profile/ajax/skill' => $this->make_hook('ajax_skill', AUTH_COOKIE, 'user', NO_AUTH),
45 'profile/ajax/searchname' => $this->make_hook('ajax_searchname', AUTH_COOKIE, 'user', NO_AUTH),
6e32823c 46 'profile/ajax/buildnames' => $this->make_hook('ajax_buildnames', AUTH_COOKIE, 'user', NO_AUTH),
f711b03f 47 'javascript/education.js' => $this->make_hook('education_js', AUTH_COOKIE),
2398e553
SJ		 48 'javascript/grades.js' => $this->make_hook('grades_js', AUTH_COOKIE),
49 'profile/medal' => $this->make_hook('medal', AUTH_PUBLIC),
70c65f3a 50 'profile/name_info' => $this->make_hook('name_info', AUTH_PUBLIC),
2398e553 51 'profile/orange' => $this->make_hook('p_orange', AUTH_MDP),
e49018a7 52
2398e553
SJ		 53 'referent' => $this->make_hook('referent', AUTH_COOKIE),
54 'emploi' => $this->make_hook('ref_search', AUTH_COOKIE),
55 'referent/search' => $this->make_hook('ref_search', AUTH_COOKIE),
56 'referent/ssect' => $this->make_hook('ref_sect', AUTH_COOKIE, 'user', NO_AUTH),
57 'referent/country' => $this->make_hook('ref_country', AUTH_COOKIE, 'user', NO_AUTH),
2f678da1 58
2398e553 59 'groupes-x' => $this->make_hook('xnet', AUTH_COOKIE),
926f16d7 60
2398e553
SJ		 61 'vcard' => $this->make_hook('vcard', AUTH_COOKIE, 'user', NO_HTTPS),
62 'admin/binets' => $this->make_hook('admin_binets', AUTH_MDP, 'admin'),
63 'admin/medals' => $this->make_hook('admin_medals', AUTH_MDP, 'admin'),
64 'admin/education' => $this->make_hook('admin_education', AUTH_MDP, 'admin'),
65 'admin/education_field' => $this->make_hook('admin_education_field', AUTH_MDP, 'admin'),
66 'admin/education_degree' => $this->make_hook('admin_education_degree', AUTH_MDP, 'admin'),
043bbacf 67 'admin/education_degree_set' => $this->make_hook('admin_education_degree_set', AUTH_MDP, 'admin'),
2398e553 68 'admin/sections' => $this->make_hook('admin_sections', AUTH_MDP, 'admin'),
2398e553
SJ		 69 'admin/networking' => $this->make_hook('admin_networking', AUTH_MDP, 'admin'),
70 'admin/trombino' => $this->make_hook('admin_trombino', AUTH_MDP, 'admin'),
b6e9d1ca 71 'admin/sectors' => $this->make_hook('admin_sectors', AUTH_MDP, 'admin'),
4962a9ce
SJ		 72 'admin/corps_enum' => $this->make_hook('admin_corps_enum', AUTH_MDP, 'admin'),
73 'admin/corps_rank' => $this->make_hook('admin_corps_rank', AUTH_MDP, 'admin'),
b62db02e 74 'admin/names' => $this->make_hook('admin_names', AUTH_MDP, 'admin'),
7d8b17cb 75 );
76 }
77
e8599c21 78 /* XXX COMPAT */
79 function handler_fiche(&$page)
80 {
5e2307dc 81 return $this->handler_profile($page, Env::v('user'));
e8599c21 82 }
83
adbdf493 84 function handler_photo(&$page, $x = null, $req = null)
85 {
954cfb01 86 if (!$x || !($user = User::getSilent($x))) {
adbdf493 87 return PL_NOT_FOUND;
88 }
89
954cfb01
VZ		 90 // Retrieve the photo and its mime type.
91 $photo_data = null;
92 $photo_type = null;
adbdf493 93
cab08090 94 if ($req && S::logged()) {
adbdf493 95 include 'validations.inc.php';
954cfb01
VZ		 96 $myphoto = PhotoReq::get_request($user->id());
97 if ($myphoto) {
98 $photo_data = $myphoto->data;
99 $photo_type = $myphoto->mimetype;
100 }
adbdf493 101 } else {
08cce2ff 102 $res = XDB::query(
954cfb01 103 "SELECT attachmime, attach, pub
adbdf493 104 FROM photo
954cfb01
VZ		 105 WHERE uid = {?}", $user->id());
106 list($photo_type, $photo_data, $photo_pub) = $res->fetchOneRow();
107 if ($photo_pub != 'public' && !S::logged()) {
108 $photo_type = $photo_data = null;
adbdf493 109 }
110 }
954cfb01
VZ		 111
112 // Display the photo, or a default one when not available.
113 if ($photo_type && $photo_data != null) {
114 header('Content-type: image/' . $photo_type);
115 echo $photo_data;
116 } else {
117 header('Content-type: image/png');
118 echo file_get_contents(dirname(__FILE__).'/../htdocs/images/none.png');
119 }
adbdf493 120 exit;
121 }
122
85cc366b
FB		 123 function handler_medal(&$page, $mid)
124 {
bd6a5fe3
VZ		 125 $thumb = ($mid == 'thumb');
126 $mid = $thumb ? @func_get_arg(2) : $mid;
127
85cc366b
FB		 128 $res = XDB::query("SELECT img
129 FROM profile_medals
130 WHERE id = {?}",
131 $mid);
bd6a5fe3
VZ		 132 $img = $thumb ?
133 dirname(__FILE__).'/../htdocs/images/medals/thumb/' . $res->fetchOneCell() :
134 dirname(__FILE__).'/../htdocs/images/medals/' . $res->fetchOneCell();
85cc366b
FB		 135 $type = mime_content_type($img);
136 header("Content-Type: $type");
137 echo file_get_contents($img);
138 exit;
139 }
140
70c65f3a
SJ		 141 function handler_name_info(&$page)
142 {
143 header('Content-Type: text/html; charset=utf-8');
144 $page->changeTpl('profile/name_info.tpl', SIMPLE);
145 $res = XDB::iterator("SELECT name, explanations,
146 FIND_IN_SET('public', flags) AS public,
147 FIND_IN_SET('has_particle', flags) AS has_particle
97a98687 148 FROM profile_name_enum
70c65f3a
SJ		 149 WHERE NOT FIND_IN_SET('not_displayed', flags)
150 ORDER BY NOT FIND_IN_SET('public', flags)");
151 $page->assign('types', $res);
152 }
153
40176c6c
GB		 154 function handler_networking(&$page, $mid)
155 {
156 $res = XDB::query("SELECT icon
157 FROM profile_networking_enum
158 WHERE network_type = {?}",
159 $mid);
160 $img = dirname(__FILE__) . '/../htdocs/images/networking/' . $res->fetchOneCell();
161 $type = mime_content_type($img);
162 header("Content-Type: $type");
163 echo file_get_contents($img);
164 exit;
165 }
166
fb9a56cb 167 function handler_photo_change(&$page)
168 {
ebfdf077 169 global $globals;
8b1f8e12 170 $page->changeTpl('profile/trombino.tpl');
fb9a56cb 171
172 require_once('validations.inc.php');
173
54cabe90 174 $trombi_x = '/home/web/trombino/photos' . S::v('promo') . '/' . S::user()->login() . '.jpg';
fb9a56cb 175 if (Env::has('upload')) {
8827fc52
VZ		 176 S::assert_xsrf_token();
177
954cfb01 178 $upload = new PlUpload(S::user()->login(), 'photo');
abe7e055 179 if (!$upload->upload($_FILES['userfile']) && !$upload->download(Env::v('photo'))) {
a7d35093 180 $page->trigError('Une erreur est survenue lors du téléchargement du fichier');
abe7e055 181 } else {
5daf68f6 182 $myphoto = new PhotoReq(S::user(), $upload);
abe7e055 183 if ($myphoto->isValid()) {
184 $myphoto->submit();
fb9a56cb 185 }
fb9a56cb 186 }
187 } elseif (Env::has('trombi')) {
8827fc52
VZ		 188 S::assert_xsrf_token();
189
954cfb01 190 $upload = new PlUpload(S::user()->login(), 'photo');
abe7e055 191 if ($upload->copyFrom($trombi_x)) {
5daf68f6 192 $myphoto = new PhotoReq(S::user(), $upload);
abe7e055 193 if ($myphoto->isValid()) {
194 $myphoto->commit();
195 $myphoto->clean();
196 }
fb9a56cb 197 }
5e2307dc 198 } elseif (Env::v('suppr')) {
8827fc52
VZ		 199 S::assert_xsrf_token();
200
84868ee9
FB		 201 XDB::execute('DELETE FROM photo
202 WHERE uid = {?}',
203 S::v('uid'));
204 XDB::execute('DELETE FROM requests
205 WHERE user_id = {?} AND type="photo"',
206 S::v('uid'));
ebfdf077 207 $globals->updateNbValid();
5e2307dc 208 } elseif (Env::v('cancel')) {
8827fc52
VZ		 209 S::assert_xsrf_token();
210
84868ee9
FB		 211 $sql = XDB::query('DELETE FROM requests
212 WHERE user_id={?} AND type="photo"',
213 S::v('uid'));
ebfdf077 214 $globals->updateNbValid();
fb9a56cb 215 }
216
84868ee9
FB		 217 $sql = XDB::query('SELECT COUNT(*)
218 FROM requests
219 WHERE user_id={?} AND type="photo"',
abe7e055 220 S::v('uid'));
fb9a56cb 221 $page->assign('submited', $sql->fetchOneCell());
222 $page->assign('has_trombi_x', file_exists($trombi_x));
fb9a56cb 223 }
224
e8599c21 225 function handler_profile(&$page, $x = null)
226 {
54cabe90
VZ		 227 // TODO/note for upcoming developers:
228 // We currently maintain both $user and $login; $user is the old way of
229 // obtaining information, and eventually everything will be loaded
230 // through $login. That is the reason why in the template $user is named
231 // $x, and $login $user (sorry for the confusion).
232
233 // Determines which user to display the profile of, and retrieves basic
234 // information on this user.
e8599c21 235 if (is_null($x)) {
236 return PL_NOT_FOUND;
237 }
238
efe597c5 239 $login = (!is_numeric($x) || S::has_perms()) ? Profile::get($x) : null;
344234db 240 if (!$login) {
efe597c5
FB		 241 if (S::logged()) {
242 $page->trigError($x . ' inconnu dans l\'annuaire');
243 }
344234db 244 return PL_NOT_FOUND;
e8599c21 245 }
e8599c21 246
54cabe90
VZ		 247 // Now that we know this is the profile of an existing user, we can
248 // switch to the appropriate template.
b13048df 249 $page->changeTpl('profile/profile.tpl', SIMPLE);
54cabe90 250 require_once 'user.func.inc.php';
e8599c21 251
54cabe90
VZ		 252 // Determines the access level at which the profile will be displayed.
253 if (!S::logged() || Env::v('view') == 'public') {
254 $view = 'public';
255 } else if (S::logged() && Env::v('view') == 'ax') {
256 $view = 'ax';
e8599c21 257 } else {
54cabe90 258 $view = 'private';
e8599c21 259 }
260
54cabe90
VZ		 261 // Determines is the user is registered, and fetches the user infos in
262 // the appropriate way.
c52d86d1
FB		 263 $owner = $login->owner();
264 if (!$owner || $owner->state != 'pending') {
54cabe90 265 $new = Env::v('modif') == 'new';
c52d86d1
FB		 266 // XXX: Deprecated...
267 $user = get_user_details($login->hrid(), S::i('uid'), $view);
54cabe90
VZ		 268 } else {
269 $new = false;
270 $user = array();
ba25f663 271 if (S::logged()) {
c52d86d1 272 pl_redirect('marketing/public/' . $owner->login());
ba25f663 273 }
e8599c21 274 }
ba25f663 275
54cabe90 276 // Profile view are logged.
e31c1c3e 277 if (S::logged()) {
efe597c5 278 S::logger()->log('view_profile', $login->hrid());
e8599c21 279 }
280
54cabe90
VZ		 281 // Sets the title of the html page.
282 $page->setTitle($login->fullName());
e8599c21 283
54cabe90 284 // Prepares the display of the user's mugshot.
efe597c5 285 $photo = 'photo/' . $login->hrid() . ($new ? '/req' : '');
54cabe90
VZ		 286 if (!isset($user['photo_pub']) || !has_user_right($user['photo_pub'], $view)) {
287 $photo = "";
288 }
289 $page->assign('photo_url', $photo);
e8599c21 290
2f678da1 291 if (!isset($user['y']) and !isset($user['x'])) {
e8599c21 292 list($user['x'], $user['y']) = getimagesize("images/none.png");
293 }
2f678da1 294 if (!isset($user['y']) or $user['y'] < 1) $user['y']=1;
295 if (!isset($user['x']) or $user['x'] < 1) $user['x']=1;
296 if ($user['x'] > 240) {
e8599c21 297 $user['y'] = (integer)($user['y']*240/$user['x']);
298 $user['x'] = 240;
299 }
2f678da1 300 if ($user['y'] > 300) {
e8599c21 301 $user['x'] = (integer)($user['x']*300/$user['y']);
302 $user['y'] = 300;
303 }
2f678da1 304 if ($user['x'] < 160) {
e8599c21 305 $user['y'] = (integer)($user['y']*160/$user['x']);
306 $user['x'] = 160;
307 }
308
54cabe90
VZ		 309 // Determines and displays the virtual alias.
310 global $globals;
efe597c5
FB		 311 $owner = $login->owner();
312 if ($owner) {
313 $page->assign('virtualalias', $owner->emailAlias());
314 }
54cabe90
VZ		 315
316 // Adds miscellaneous properties to the display.
317 // Adds the global user property array to the display.
318 $page->assign_by_ref('x', $user);
efe597c5 319 $page->assign_by_ref('user', $owner);
54cabe90 320 $page->assign('logged', has_user_right('private', $view));
24f4c06a 321 $page->assign('view', $view);
e8599c21 322
c99ef281 323 $page->addJsLink('close_on_esc.js');
54cabe90
VZ		 324 if (isset($user['date'])) {
325 header('Last-Modified: ' . date('r', strtotime($user['date'])));
326 }
e8599c21 327 }
328
5122b820 329 function handler_ax(&$page, $user = null)
330 {
c52d86d1 331 $user = Profile::get($user);
5122b820 332 if (!$user) {
333 return PL_NOT_FOUND;
334 }
c52d86d1
FB		 335 if (!$user->ax_id) {
336 $page->kill("Le matricule AX de {$user->hrid()} est inconnu");
5122b820 337 }
c52d86d1 338 http_redirect("http://www.polytechniciens.com/?page=AX_FICHE_ANCIEN&anc_id=" . $user->ax_id);
5122b820 339 }
340
d1e61677 341 function handler_p_edit(&$page, $user = null, $opened_tab = null, $mode = null, $success = null)
2f678da1 342 {
343 global $globals;
344
3af21f99
FB		 345 if (is_null($user)) {
346 $user = S::user();
347 if (!$user->hasProfile()) {
348 return PL_NOT_FOUND;
349 } else {
350 pl_redirect('profile/edit/' . $user->profile()->hrid());
351 }
352 } else {
353 $user = Profile::get($user);
354 if (!$user) {
355 return PL_NOT_FOUND;
356 } else if (!S::user()->canEdit($user) && Platal::notAllowed()) {
357 return PL_FORBIDDEN;
358 }
359 }
360
7bff4cb0 361 // Build the page
c6a7beb2 362 $page->addJsLink('ajax.js');
f711b03f 363 $page->addJsLink('education.js');
46ae38a9 364 $page->addJsLink('grades.js');
16594a1a 365 $page->addJsLink('profile.js');
4b4b4b67 366 $page->addJsLink('jquery.autocomplete.js');
e5bcd851
FB		 367 $wiz = new PlWizard('Profil', PlPage::getCoreTpl('plwizard.tpl'), true, true, false);
368 $wiz->addUserData('profile', $user);
369 $wiz->addUserData('owner', $user->owner());
460d8f55 370 $this->load('page.inc.php');
e1635d16 371 $wiz->addPage('ProfileGeneral', 'Général', 'general');
0b14f91d 372 $wiz->addPage('ProfileAddresses', 'Adresses personnelles', 'adresses');
e1635d16 373 $wiz->addPage('ProfileGroups', 'Groupes X - Binets', 'poly');
a7c28fff 374 $wiz->addPage('ProfileDecos', 'Décorations - Medailles', 'deco');
3950bc21 375 $wiz->addPage('ProfileJobs', 'Informations professionnelles', 'emploi');
e1635d16
FB		 376 $wiz->addPage('ProfileSkills', 'Compétences diverses', 'skill');
377 $wiz->addPage('ProfileMentor', 'Mentoring', 'mentor');
3af21f99 378 $wiz->apply($page, 'profile/edit/' . $user->hrid(), $opened_tab, $mode);
35aedff2 379
c52d86d1 380 if (!$user->birthdate) {
a7d35093 381 $page->trigWarning("Ta date de naissance n'est pas renseignée, ce qui t'empêcheras de réaliser"
6e32823c 382 . " la procédure de récupération de mot de passe si un jour tu le perdais.");
7bff4cb0
FB		 383 }
384
46f272fe 385 $page->setTitle('Mon Profil');
eb563236
SJ		 386 if (isset($success) && $success) {
387 $page->trigSuccess('Ton profil a bien été mis à jour.');
388 }
2f678da1 389 }
390
f711b03f 391 function handler_education_js(&$page)
46ae38a9
FB		 392 {
393 header('Content-Type: text/javascript; charset=utf-8');
394 header('Expires: Mon, 26 Jul 1997 05:00:00 GMT');
395 header('Last-Modified:' . gmdate('D, d M Y H:i:s') . ' GMT');
396 header('Cache-Control: no-cache, must-revalidate');
397 header('Pragma: no-cache');
f711b03f
SJ		 398 $page->changeTpl('profile/education.js.tpl', NO_SKIN);
399 require_once "education.func.inc.php";
46ae38a9
FB		 400 }
401
402 function handler_grades_js(&$page)
403 {
404 header('Content-Type: text/javascript; charset=utf-8');
405 header('Expires: Mon, 26 Jul 1997 05:00:00 GMT');
406 header('Last-Modified:' . gmdate('D, d M Y H:i:s') . ' GMT');
407 header('Cache-Control: no-cache, must-revalidate');
408 header('Pragma: no-cache');
409 $page->changeTpl('profile/grades.js.tpl', NO_SKIN);
410 $res = XDB::iterator("SELECT *
411 FROM profile_medals_grades
412 ORDER BY mid, pos");
413 $grades = array();
414 while ($tmp = $res->next()) {
415 $grades[$tmp['mid']][] = $tmp;
416 }
417 $page->assign('grades', $grades);
418
419 $res = XDB::iterator("SELECT *, FIND_IN_SET('validation', flags) AS validate
420 FROM profile_medals
421 ORDER BY type, text");
422 $mlist = array();
423 while ($tmp = $res->next()) {
424 $mlist[$tmp['type']][] = $tmp;
425 }
426 $page->assign('medal_list', $mlist);
427 }
428
041a5cec 429 function handler_ajax_address(&$page, $id)
c6a7beb2 430 {
46ae38a9 431 header('Content-Type: text/html; charset=utf-8');
c6a7beb2 432 $page->changeTpl('profile/adresses.address.tpl', NO_SKIN);
041a5cec
SJ		 433 $page->assign('i', $id);
434 $page->assign('address', array());
c6a7beb2
FB		 435 }
436
bde2be3b 437 function handler_ajax_tel(&$page, $prefid, $prefname, $telid)
c6a7beb2 438 {
46ae38a9 439 header('Content-Type: text/html; charset=utf-8');
bde2be3b
GB		 440 $page->changeTpl('profile/phone.tpl', NO_SKIN);
441 $page->assign('prefid', $prefid);
442 $page->assign('prefname', $prefname);
443 $page->assign('telid', $telid);
c6a7beb2 444 $page->assign('tel', array());
c6a7beb2
FB		 445 }
446
58acfe8b 447 function handler_ajax_edu(&$page, $eduid, $class)
043bbacf
SJ		 448 {
449 header('Content-Type: text/html; charset=utf-8');
2700a4f5 450 $page->changeTpl('profile/general.edu.tpl', NO_SKIN);
043bbacf
SJ		 451 $res = XDB::iterator("SELECT id, field
452 FROM profile_education_field_enum
453 ORDER BY field");
454 $page->assign('edu_fields', $res->fetchAllAssoc());
455 $page->assign('eduid', $eduid);
58acfe8b 456 $page->assign('class', $class);
f711b03f 457 require_once "education.func.inc.php";
043bbacf
SJ		 458 }
459
85cc366b
FB		 460 function handler_ajax_medal(&$page, $id)
461 {
46ae38a9 462 header('Content-Type: text/html; charset=utf-8');
85cc366b
FB		 463 $page->changeTpl('profile/deco.medal.tpl', NO_SKIN);
464 $page->assign('id', $id);
465 $page->assign('medal', array('valid' => 0, 'grade' => 0));
85cc366b
FB		 466 }
467
2dcac0f5
FB		 468 function handler_ajax_job(&$page, $id)
469 {
46ae38a9 470 header('Content-Type: text/html; charset=utf-8');
2dcac0f5
FB		 471 $page->changeTpl('profile/jobs.job.tpl', NO_SKIN);
472 $page->assign('i', $id);
473 $page->assign('job', array());
2dcac0f5 474 $page->assign('new', true);
2992a284 475 $res = XDB::query("SELECT id, name AS label
b814a8b8 476 FROM profile_job_sector_enum");
541e8d03 477 $page->assign('sectors', $res->fetchAllAssoc());
06a99865
SJ		 478 require_once "emails.combobox.inc.php";
479 fill_email_combobox($page);
2dcac0f5
FB		 480 }
481
541e8d03 482 function handler_ajax_sector(&$page, $id, $jobid, $jobpref, $sect, $ssect = -1)
2dcac0f5 483 {
46ae38a9 484 header('Content-Type: text/html; charset=utf-8');
541e8d03 485 $res = XDB::iterator("SELECT id, name, FIND_IN_SET('optgroup', flags) AS optgroup
c7139c07
SJ		 486 FROM profile_job_subsector_enum
487 WHERE sectorid = {?}", $sect);
541e8d03 488 $page->changeTpl('profile/jobs.sector.tpl', NO_SKIN);
2dcac0f5 489 $page->assign('id', $id);
541e8d03 490 $page->assign('subSectors', $res);
2dcac0f5 491 $page->assign('sel', $ssect);
5fecdf6d
SJ		 492 if ($id != -1) {
493 $page->assign('change', 1);
494 $page->assign('jobid', $jobid);
495 $page->assign('jobpref', $jobpref);
496 }
c7139c07
SJ		 497 }
498
541e8d03 499 function handler_ajax_sub_sector(&$page, $id, $ssect, $sssect = -1)
c7139c07
SJ		 500 {
501 header('Content-Type: text/html; charset=utf-8');
541e8d03 502 $res = XDB::iterator("SELECT id, name
c7139c07
SJ		 503 FROM profile_job_subsubsector_enum
504 WHERE subsectorid = {?}", $ssect);
541e8d03 505 $page->changeTpl('profile/jobs.sub_sector.tpl', NO_SKIN);
c7139c07 506 $page->assign('id', $id);
541e8d03 507 $page->assign('subSubSectors', $res);
c7139c07 508 $page->assign('sel', $sssect);
2dcac0f5
FB		 509 }
510
07e72582
SJ		 511 function handler_ajax_alternates(&$page, $id, $sssect)
512 {
513 header('Content-Type: text/html; charset=utf-8');
514 $res = XDB::iterator('SELECT name
515 FROM profile_job_alternates
516 WHERE subsubsectorid = {?}
517 ORDER BY id',
518 $sssect);
519 $page->changeTpl('profile/jobs.alternates.tpl', NO_SKIN);
520 $alternate = $res->next();
521 $alternates = $alternate['name'];
522 while ($alternate = $res->next()) {
523 $alternates .= ', ' . $alternate['name'];
524 }
525 $page->assign('alternates', $alternates);
526 }
527
f25e1a56
FB		 528 function handler_ajax_skill(&$page, $cat, $id)
529 {
46ae38a9 530 header('Content-Type: text/html; charset=utf-8');
f25e1a56 531 $page->changeTpl('profile/skill.skill.tpl', NO_SKIN);
f25e1a56
FB		 532 $page->assign('cat', $cat);
533 $page->assign('id', $id);
534 if ($cat == 'competences') {
535 $page->assign('levels', array('initié' => 'initié',
536 'bonne connaissance' => 'bonne connaissance',
537 'expert' => 'expert'));
538 } else {
539 $page->assign('levels', array(1 => 'connaissance basique',
540 2 => 'maîtrise des bases',
541 3 => 'maîtrise limitée',
542 4 => 'maîtrise générale',
543 5 => 'bonne maîtrise',
544 6 => 'maîtrise complète'));
545 }
546 }
547
6e32823c 548 function handler_ajax_searchname(&$page, $id)
b04882ff
PC		 549 {
550 header('Content-Type: text/html; charset=utf-8');
551 $page->changeTpl('profile/general.searchname.tpl', NO_SKIN);
6e32823c 552 $res = XDB::query("SELECT id, name, FIND_IN_SET('public', flags) AS pub
97a98687 553 FROM profile_name_enum
6e32823c
SJ		 554 WHERE NOT FIND_IN_SET('not_displayed', flags)
555 AND NOT FIND_IN_SET('always_displayed', flags)");
556 $page->assign('sn_type_list', $res->fetchAllAssoc());
557 $page->assign('i', $id);
b04882ff 558 }
6e32823c
SJ		 559
560 function handler_ajax_buildnames(&$page, $data)
561 {
562 header('Content-Type: text/html; charset=utf-8');
563 $page->changeTpl('profile/general.buildnames.tpl', NO_SKIN);
564 require_once 'name.func.inc.php';
dced83b4 565 $page->assign('names', build_javascript_names($data));
b04882ff 566 }
6e32823c 567
c52d86d1 568 function handler_p_orange(&$page, $pid = null)
9b0fa329 569 {
8b1f8e12 570 $page->changeTpl('profile/orange.tpl');
9b0fa329 571
572 require_once 'validations.inc.php';
c52d86d1
FB		 573 $profile = Profile::get($pid);
574 if (is_null($profile)) {
575 return PL_NOT_FOUND;
576 }
577 $page->assign('promo_sortie_old', $profile->grad_year);
578 $page->assign('promo', $profile->entry_year);
579 $page->assign('promo_display', $profile->promo());
580 $page->assign('sexe', $profile->isFemale());
9b0fa329 581
582 if (!Env::has('promo_sortie')) {
fd8f77de 583 return;
8827fc52
VZ		 584 } else {
585 S::assert_xsrf_token();
9b0fa329 586 }
587
5e2307dc 588 $promo_sortie = Env::i('promo_sortie');
c52d86d1 589 $promo = $profile->entry_year;
9b0fa329 590 if ($promo_sortie < 1000 || $promo_sortie > 9999) {
fb2c09c9 591 $page->trigError('L\'année de sortie doit être un nombre de quatre chiffres.');
c52d86d1 592 } elseif ($promo_sortie < $promo + 3) {
fb2c09c9 593 $page->trigError('Trop tôt !');
c52d86d1 594 } elseif ($promo_sortie == $promo_sortie_old) {
a7d35093 595 $page->trigWarning('Tu appartiens déjà à la promotion correspondante à cette année de sortie.');
c52d86d1
FB		 596 } elseif ($promo_sortie == $promo + 3) {
597 XDB::execute('UPDATE profile_education
fb2c09c9 598 SET grad_year = {?}
c52d86d1
FB		 599 WHERE uid = {?} AND FIND_IN_SET(\'primary\', flags)',
600 $promo_sortie, $profile->id());
601 $page->trigSuccess('Ton statut "orange" a été supprimé.');
602 $page->assign('promo_sortie_old', $promo_sortie);
603 } else {
9b0fa329 604 $page->assign('promo_sortie', $promo_sortie);
605
606 if (Env::has('submit')) {
5daf68f6 607 $myorange = new OrangeReq(S::user(), $promo_sortie);
9b0fa329 608 $myorange->submit();
609 $page->assign('myorange', $myorange);
610 }
611 }
9b0fa329 612 }
613
c52d86d1 614 function handler_referent(&$page, $user)
28e16d4d 615 {
28e16d4d 616 require_once 'user.func.inc.php';
8b1f8e12 617 $page->changeTpl('profile/fiche_referent.tpl', SIMPLE);
28e16d4d 618
c52d86d1
FB		 619 $user = Profile::get($user);
620 if (!$user) {
28e16d4d 621 return PL_NOT_FOUND;
622 }
623
b3bf7395 624 $page->assign_by_ref('user', $user);
c52d86d1
FB		 625 $page->assign('cv', MiniWiki::WikiToHTML($user->cv, true));
626 //TODO: waiting for job refactoring to be done
627 //$page->assign('adr_pro', get_user_details_pro($user->id()));
28e16d4d 628
629 ///// recuperations infos referent
630
631 //expertise
c52d86d1
FB		 632 $res = XDB::query('SELECT expertise
633 FROM profile_mentor
634 WHERE uid = {?}', $user->id());
28e16d4d 635 $page->assign('expertise', $res->fetchOneCell());
636
541e8d03
SJ		 637 // Sectors
638 $sectors = $subSectors = Array();
08cce2ff 639 $res = XDB::iterRow(
f926f2b8 640 "SELECT s.name AS label, ss.name AS label
5fecdf6d
SJ		 641 FROM profile_mentor_sector AS m
642 LEFT JOIN profile_job_sector_enum AS s ON(m.sectorid = s.id)
643 LEFT JOIN profile_job_subsector_enum AS ss ON(m.sectorid = ss.sectorid AND m.subsectorid = ss.id)
b3bf7395 644 WHERE uid = {?}", $user->id());
541e8d03
SJ		 645 while (list($sector, $subSector) = $res->next()) {
646 $sectors[] = $sector;
647 $subSectors[] = $subSector;
28e16d4d 648 }
541e8d03
SJ		 649 $page->assign_by_ref('sectors', $sectors);
650 $page->assign_by_ref('subSectors', $subSectors);
28e16d4d 651
e4cd7a1f 652 // Countries.
08cce2ff 653 $res = XDB::query(
e4cd7a1f 654 "SELECT gc.countryFR
5fecdf6d 655 FROM profile_mentor_country AS m
e4cd7a1f 656 LEFT JOIN geoloc_countries AS gc ON (m.country = gc.iso_3166_1_a2)
b3bf7395 657 WHERE uid = {?}", $user->id());
28e16d4d 658 $page->assign('pays', $res->fetchColumn());
659
c99ef281 660 $page->addJsLink('close_on_esc.js');
28e16d4d 661 }
662
ff3eb9b7 663 function handler_ref_search(&$page, $action = null, $subaction = null)
2f678da1 664 {
8f201b69
FB		 665 $wp = new PlWikiPage('Docs.Emploi');
666 $wp->buildCache();
667
46f272fe 668 $page->setTitle('Conseil Pro');
2f678da1 669
541e8d03
SJ		 670 // Retrieval of sector names
671 $res = XDB::iterRow("SELECT id, name AS label
672 FROM profile_job_sector_enum");
673 $sectors[''] = '';
2f678da1 674 while (list($tmp_id, $tmp_label) = $res->next()) {
541e8d03 675 $sectors[$tmp_id] = $tmp_label;
2f678da1 676 }
541e8d03 677 $page->assign_by_ref('sectors', $sectors);
2f678da1 678
2f678da1 679 // nb de mentors
5fecdf6d 680 $res = XDB::query("SELECT count(*) FROM profile_mentor");
2f678da1 681 $page->assign('mentors_number', $res->fetchOneCell());
682
2f678da1 683 // On vient d'un formulaire
541e8d03
SJ		 684 $where = array();
685 $pays_sel = XDB::escape(Env::v('pays_sel'));
686 $sectorSelection = XDB::escape(Env::v('sector'));
687 $subSectorSelection = XDB::escape(Env::v('subSector'));
688 $expertise_champ = XDB::escape(Env::v('expertise'));
ff3eb9b7 689
690 if ($pays_sel != "''") {
5fecdf6d 691 $where[] = "mp.country = $pays_sel";
ff3eb9b7 692 }
541e8d03
SJ		 693 if ($sectorSelection != "''") {
694 $where[] = "ms.sectorid = " . $sectorSelection;
695 if ($selectedSubSector != "''") {
696 $where[] = "ms.subsectorid = " . $subSectorSelection;
2f678da1 697 }
698 }
ff3eb9b7 699 if ($expertise_champ != "''") {
700 $where[] = "MATCH(m.expertise) AGAINST($expertise_champ)";
2f678da1 701 }
702
703 if ($where) {
704 $where = join(' AND ', $where);
705
5fecdf6d
SJ		 706 $set = new UserSet("INNER JOIN profile_mentor AS m ON (m.uid = u.user_id)
707 LEFT JOIN profile_mentor_country AS mp ON (mp.uid = m.uid)
708 LEFT JOIN profile_mentor_sector AS ms ON (ms.uid = m.uid)",
ff3eb9b7 709 $where);
710 $set->addMod('mentor', 'Référents');
711 $set->apply('referent/search', $page, $action, $subaction);
712 if ($set->count() > 100) {
e1635d16 713 $page->assign('recherche_trop_large', true);
2f678da1 714 }
ff3eb9b7 715 }
e1635d16 716 $page->changeTpl('profile/referent.tpl');
ff3eb9b7 717 }
2f678da1 718
e1635d16 719 function handler_ref_sect(&$page, $sect)
ff3eb9b7 720 {
721 header('Content-Type: text/html; charset=utf-8');
05cb05c0 722 $page->changeTpl('include/field.select.tpl', NO_SKIN);
541e8d03 723 $page->assign('onchange', 'setSSectors()');
ff3eb9b7 724 $page->assign('id', 'ssect_field');
541e8d03 725 $page->assign('name', 'subSector');
5fecdf6d
SJ		 726 $it = XDB::iterator("SELECT id, name AS field
727 FROM profile_job_subsector_enum
728 WHERE sectorid = {?}", $sect);
ff3eb9b7 729 $page->assign('list', $it);
730 }
2f678da1 731
ff3eb9b7 732 function handler_ref_country(&$page, $sect, $ssect = '')
733 {
734 header('Content-Type: text/html; charset=utf-8');
05cb05c0 735 $page->changeTpl('include/field.select.tpl', NO_SKIN);
ff3eb9b7 736 $page->assign('name', 'pays_sel');
5fecdf6d 737 $where = ($ssect ? ' AND ms.subsectorid = {?}' : '');
e4cd7a1f
SJ		 738 $it = XDB::iterator("SELECT gc.iso_3166_1_a2 AS id, gc.countryFR AS field
739 FROM geoloc_countries AS gc
740 INNER JOIN profile_mentor_country AS mp ON (mp.country = gc.iso_3166_1_a2)
5fecdf6d 741 INNER JOIN profile_mentor_sector AS ms ON (ms.uid = mp.uid)
e4cd7a1f
SJ		 742 WHERE ms.sectorid = {?} " . $where . "
743 GROUP BY iso_3166_1_a2
744 ORDER BY countryFR", $sect, $ssect);
ff3eb9b7 745 $page->assign('list', $it);
2f678da1 746 }
747
a1d79217 748 function handler_xnet(&$page)
749 {
8b1f8e12 750 $page->changeTpl('profile/groupesx.tpl');
46f272fe 751 $page->setTitle('Promo, Groupes X, Binets');
e1635d16 752
a1d79217 753 $req = XDB::query('
e1635d16 754 SELECT m.asso_id, a.nom, diminutif, a.logo IS NOT NULL AS has_logo,
46e1d3ba 755 COUNT(e.eid) AS events, mail_domain AS lists
e1635d16 756 FROM groupex.membres AS m
46e1d3ba 757 INNER JOIN groupex.asso AS a ON(m.asso_id = a.id)
758 LEFT JOIN groupex.evenements AS e ON(e.asso_id = m.asso_id AND e.archive = 0)
759 WHERE uid = {?} GROUP BY m.asso_id ORDER BY a.nom', S::i('uid'));
a1d79217 760 $page->assign('assos', $req->fetchAllAssoc());
761 }
e1635d16 762
e49018a7 763 function handler_vcard(&$page, $x = null)
764 {
765 if (is_null($x)) {
766 return PL_NOT_FOUND;
767 }
768
769 global $globals;
770
771 if (substr($x, -4) == '.vcf') {
772 $x = substr($x, 0, strlen($x) - 4);
773 }
774
5d42c993
FB		 775 $vcard = new VCard();
776 $vcard->addUser($x);
777 $vcard->show();
e49018a7 778 }
92423144 779
54cabe90 780 function handler_admin_trombino(&$page, $login = null, $action = null) {
8b1f8e12 781 $page->changeTpl('profile/admin_trombino.tpl');
46f272fe 782 $page->setTitle('Administration - Trombino');
e1635d16 783
54cabe90
VZ		 784 if (!$login || !($user = User::get($login))) {
785 return PL_NOT_FOUND;
786 } else {
787 $page->assign_by_ref('user', $user);
788 }
e1635d16 789
92423144 790 switch ($action) {
92423144 791 case "original":
792 header("Content-type: image/jpeg");
54cabe90 793 readfile("/home/web/trombino/photos" . $user->promo() . "/" . $user->login() . ".jpg");
92423144 794 exit;
795 break;
e1635d16 796
92423144 797 case "new":
8827fc52
VZ		 798 S::assert_xsrf_token();
799
92423144 800 $data = file_get_contents($_FILES['userfile']['tmp_name']);
801 list($x, $y) = getimagesize($_FILES['userfile']['tmp_name']);
802 $mimetype = substr($_FILES['userfile']['type'], 6);
803 unlink($_FILES['userfile']['tmp_name']);
804 XDB::execute(
805 "REPLACE INTO photo SET uid={?}, attachmime = {?}, attach={?}, x={?}, y={?}",
54cabe90 806 $user->id(), $mimetype, $data, $x, $y);
92423144 807 break;
e1635d16 808
92423144 809 case "delete":
8827fc52
VZ		 810 S::assert_xsrf_token();
811
54cabe90 812 XDB::execute('DELETE FROM photo WHERE uid = {?}', $user->id());
92423144 813 break;
814 }
92423144 815 }
b62db02e
SJ		 816 function handler_admin_names(&$page, $action = 'list', $id = null) {
817 $page->setTitle('Administration - Types de noms');
818 $page->assign('title', 'Gestion des types de noms');
819 $table_editor = new PLTableEditor('admin/names', 'profile_name_enum', 'id', true);
820 $table_editor->describe('name', 'Nom', true);
821 $table_editor->describe('explanations', 'Explications', true);
822 $table_editor->describe('type', 'Type', true);
823 $table_editor->describe('flags', 'Flags', true);
824 $table_editor->describe('score', 'Score', true);
825 $table_editor->apply($page, $action, $id);
826 }
92423144 827 function handler_admin_binets(&$page, $action = 'list', $id = null) {
46f272fe 828 $page->setTitle('Administration - Binets');
92423144 829 $page->assign('title', 'Gestion des binets');
830 $table_editor = new PLTableEditor('admin/binets', 'binets_def', 'id');
831 $table_editor->add_join_table('binets_ins','binet_id',true);
a7de4ef7 832 $table_editor->describe('text','intitulé',true);
92423144 833 $table_editor->apply($page, $action, $id);
834 }
043bbacf 835 function handler_admin_education(&$page, $action = 'list', $id = null) {
46f272fe 836 $page->setTitle('Administration - Formations');
92423144 837 $page->assign('title', 'Gestion des formations');
043bbacf
SJ		 838 $table_editor = new PLTableEditor('admin/education', 'profile_education_enum', 'id');
839 $table_editor->add_join_table('profile_education', 'eduid', true);
840 $table_editor->add_join_table('profile_education_degree', 'eduid', true);
841 $table_editor->describe('name', 'intitulé', true);
842 $table_editor->describe('url', 'site web', false);
843 $table_editor->apply($page, $action, $id);
844 }
845 function handler_admin_education_field(&$page, $action = 'list', $id = null) {
846 $page->setTitle('Administration - Domaines de formation');
847 $page->assign('title', 'Gestion des domaines de formation');
848 $table_editor = new PLTableEditor('admin/education_field', 'profile_education_field_enum', 'id', true);
849 $table_editor->add_join_table('profile_education', 'fieldid', true);
850 $table_editor->describe('field', 'domaine', true);
851 $table_editor->apply($page, $action, $id);
852 }
853 function handler_admin_education_degree(&$page, $action = 'list', $id = null) {
854 $page->setTitle('Administration - Niveau de formation');
855 $page->assign('title', 'Gestion des niveau de formation');
856 $table_editor = new PLTableEditor('admin/education_degree', 'profile_education_degree_enum', 'id', true);
857 $table_editor->add_join_table('profile_education_degree', 'degreeid', true);
858 $table_editor->add_join_table('profile_education', 'degreeid', true);
859 $table_editor->describe('degree', 'niveau', true);
860 $table_editor->apply($page, $action, $id);
861 }
862 function handler_admin_education_degree_set(&$page, $action = 'list', $id = null) {
863 $page->setTitle('Administration - Correspondances formations - niveau de formation');
864 $page->assign('title', 'Gestion des correspondances formations - niveau de formation');
865 $table_editor = new PLTableEditor('admin/education_degree_set', 'profile_education_degree', 'eduid', true);
866 $table_editor->describe('eduid', 'formation', true);
867 $table_editor->describe('degreeid', 'niveau', true);
92423144 868 $table_editor->apply($page, $action, $id);
e1635d16 869 }
b09690be 870 function handler_admin_sections(&$page, $action = 'list', $id = null) {
46f272fe 871 $page->setTitle('Administration - Sections');
a20aab02 872 $page->assign('title', 'Gestion des sections');
b09690be 873 $table_editor = new PLTableEditor('admin/sections','sections','id');
874 $table_editor->describe('text','intitulé',true);
875 $table_editor->apply($page, $action, $id);
e1635d16 876 }
b6e9d1ca
SJ		 877 function handler_admin_sectors(&$page, $action = 'list', $id = null) {
878 $page->setTitle('Administration - Secteurs');
879 $page->assign('title', 'Gestion des secteurs');
880 $table_editor = new PLTableEditor('admin/sectors', 'profile_job_subsubsector_enum', 'id', true);
881 $table_editor->describe('sectorid', 'id du secteur', false);
882 $table_editor->describe('subsectorid', 'id du sous-secteur', false);
883 $table_editor->describe('name', 'nom', true);
884 $table_editor->describe('flags', 'affichage', true);
a20aab02
SJ		 885 $table_editor->apply($page, $action, $id);
886 }
15beefb3
GB		 887 function handler_admin_networking(&$page, $action = 'list', $id = null) {
888 $page->assign('xorg_title', 'Polytechnique.org - Administration - Networking');
889 $page->assign('title', 'Gestion des types de networking');
890 $table_editor = new PLTableEditor('admin/networking', 'profile_networking_enum', 'network_type');
891 $table_editor->describe('name', 'intitulé', true);
892 $table_editor->describe('icon', 'nom de l\'icône', false);
dc6378df
GB		 893 $table_editor->describe('filter', 'filtre', true);
894 $table_editor->describe('link', 'lien web', true);
15beefb3
GB		 895 $table_editor->apply($page, $action, $id);
896 }
4962a9ce
SJ		 897 function handler_admin_corps_enum(&$page, $action = 'list', $id = null) {
898 $page->setTitle('Administration - Corps');
899 $page->assign('title', 'Gestion des Corps');
900 $table_editor = new PLTableEditor('admin/corps_enum', 'profile_corps_enum', 'id');
901 $table_editor->describe('name', 'intitulé', true);
902 $table_editor->describe('abbreviation', 'abbréviation', true);
903 $table_editor->describe('still_exists', 'existe encore ?', true);
904 $table_editor->apply($page, $action, $id);
905 }
906 function handler_admin_corps_rank(&$page, $action = 'list', $id = null) {
907 $page->setTitle('Administration - Grade dans les Corps');
908 $page->assign('title', 'Gestion des grade dans les Corps');
909 $table_editor = new PLTableEditor('admin/corps_rank', 'profile_corps_rank_enum', 'id');
910 $table_editor->describe('name', 'intitulé', true);
911 $table_editor->describe('abbreviation', 'abbréviation', true);
912 $table_editor->apply($page, $action, $id);
913 }
92423144 914 function handler_admin_medals(&$page, $action = 'list', $id = null) {
46f272fe 915 $page->setTitle('Administration - Distinctions');
92423144 916 $page->assign('title', 'Gestion des Distinctions');
917 $table_editor = new PLTableEditor('admin/medals','profile_medals','id');
a7de4ef7 918 $table_editor->describe('text', 'intitulé', true);
92423144 919 $table_editor->describe('img', 'nom de l\'image', false);
d02b8359 920 $table_editor->describe('flags', 'valider', true);
92423144 921 $table_editor->apply($page, $action, $id);
922 if ($id && $action == 'edit') {
8b1f8e12 923 $page->changeTpl('profile/admin_decos.tpl');
e1635d16 924
92423144 925 $mid = $id;
e1635d16 926
92423144 927 if (Post::v('act') == 'del') {
75a17710
FB		 928 XDB::execute('DELETE FROM profile_medals_grades
929 WHERE mid={?} AND gid={?}', $mid, Post::i('gid'));
92423144 930 } else {
931 foreach (Post::v('grades', array()) as $gid=>$text) {
154ee23a
OLF		 932 if ($gid === 0) {
933 if (!empty($text)) {
934 $res = XDB::query('SELECT MAX(gid)
935 FROM profile_medals_grades
936 WHERE mid = {?}', $mid);
937 $gid = $res->fetchOneCell() + 1;
938
939 XDB::execute('INSERT INTO profile_medals_grades (mid, gid, text, pos)
940 VALUES ({?}, {?}, {?}, {?})',
941 $mid, $gid, $text, $_POST['pos']['0']);
942 }
943 } else {
944 XDB::execute('UPDATE profile_medals_grades
945 SET pos={?}, text={?}
946 WHERE gid={?} AND mid={?}', $_POST['pos'][$gid], $text, $gid, $mid);
947 }
92423144 948 }
949 }
950 $res = XDB::iterator('SELECT gid, text, pos FROM profile_medals_grades WHERE mid={?} ORDER BY pos', $mid);
951 $page->assign('grades', $res);
952 }
e1635d16 953 }
7d8b17cb 954}
955
a7de4ef7 956// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
7d8b17cb 957?>
plat/al