Fixes sector and function's display in the profile edition interface.
[platal.git] / modules / profile.php
CommitLineData
7d8b17cb 1<?php
2/***************************************************************************
179afa7f 3 * Copyright (C) 2003-2008 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),
41 'profile/ajax/secteur' => $this->make_hook('ajax_secteur', AUTH_COOKIE, 'user', NO_AUTH),
c7139c07 42 'profile/ajax/ssecteur' => $this->make_hook('ajax_ssecteur', AUTH_COOKIE, 'user', NO_AUTH),
2398e553
SJ
43 'profile/ajax/skill' => $this->make_hook('ajax_skill', AUTH_COOKIE, 'user', NO_AUTH),
44 'profile/ajax/searchname' => $this->make_hook('ajax_searchname', AUTH_COOKIE, 'user', NO_AUTH),
f711b03f 45 'javascript/education.js' => $this->make_hook('education_js', AUTH_COOKIE),
2398e553
SJ
46 'javascript/grades.js' => $this->make_hook('grades_js', AUTH_COOKIE),
47 'profile/medal' => $this->make_hook('medal', AUTH_PUBLIC),
48 'profile/orange' => $this->make_hook('p_orange', AUTH_MDP),
49 'profile/usage' => $this->make_hook('p_usage', AUTH_MDP),
e49018a7 50
2398e553
SJ
51 'referent' => $this->make_hook('referent', AUTH_COOKIE),
52 'emploi' => $this->make_hook('ref_search', AUTH_COOKIE),
53 'referent/search' => $this->make_hook('ref_search', AUTH_COOKIE),
54 'referent/ssect' => $this->make_hook('ref_sect', AUTH_COOKIE, 'user', NO_AUTH),
55 'referent/country' => $this->make_hook('ref_country', AUTH_COOKIE, 'user', NO_AUTH),
2f678da1 56
2398e553 57 'groupes-x' => $this->make_hook('xnet', AUTH_COOKIE),
926f16d7 58
2398e553
SJ
59 'vcard' => $this->make_hook('vcard', AUTH_COOKIE, 'user', NO_HTTPS),
60 'admin/binets' => $this->make_hook('admin_binets', AUTH_MDP, 'admin'),
61 'admin/medals' => $this->make_hook('admin_medals', AUTH_MDP, 'admin'),
62 'admin/education' => $this->make_hook('admin_education', AUTH_MDP, 'admin'),
63 'admin/education_field' => $this->make_hook('admin_education_field', AUTH_MDP, 'admin'),
64 'admin/education_degree' => $this->make_hook('admin_education_degree', AUTH_MDP, 'admin'),
043bbacf 65 'admin/education_degree_set' => $this->make_hook('admin_education_degree_set', AUTH_MDP, 'admin'),
2398e553
SJ
66 'admin/sections' => $this->make_hook('admin_sections', AUTH_MDP, 'admin'),
67 'admin/secteurs' => $this->make_hook('admin_secteurs', AUTH_MDP, 'admin'),
68 'admin/networking' => $this->make_hook('admin_networking', AUTH_MDP, 'admin'),
69 'admin/trombino' => $this->make_hook('admin_trombino', AUTH_MDP, 'admin'),
70 'admin/ss_secteurs' => $this->make_hook('admin_ss_secteurs', AUTH_MDP, 'admin'),
71 'admin/fonctions' => $this->make_hook('admin_fonctions', 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'),
92423144 74
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
40176c6c
GB
141 function handler_networking(&$page, $mid)
142 {
143 $res = XDB::query("SELECT icon
144 FROM profile_networking_enum
145 WHERE network_type = {?}",
146 $mid);
147 $img = dirname(__FILE__) . '/../htdocs/images/networking/' . $res->fetchOneCell();
148 $type = mime_content_type($img);
149 header("Content-Type: $type");
150 echo file_get_contents($img);
151 exit;
152 }
153
fb9a56cb 154 function handler_photo_change(&$page)
155 {
ebfdf077 156 global $globals;
8b1f8e12 157 $page->changeTpl('profile/trombino.tpl');
fb9a56cb 158
159 require_once('validations.inc.php');
160
54cabe90 161 $trombi_x = '/home/web/trombino/photos' . S::v('promo') . '/' . S::user()->login() . '.jpg';
fb9a56cb 162 if (Env::has('upload')) {
8827fc52
VZ
163 S::assert_xsrf_token();
164
954cfb01 165 $upload = new PlUpload(S::user()->login(), 'photo');
abe7e055 166 if (!$upload->upload($_FILES['userfile']) && !$upload->download(Env::v('photo'))) {
a7d35093 167 $page->trigError('Une erreur est survenue lors du téléchargement du fichier');
abe7e055 168 } else {
5daf68f6 169 $myphoto = new PhotoReq(S::user(), $upload);
abe7e055 170 if ($myphoto->isValid()) {
171 $myphoto->submit();
fb9a56cb 172 }
fb9a56cb 173 }
174 } elseif (Env::has('trombi')) {
8827fc52
VZ
175 S::assert_xsrf_token();
176
954cfb01 177 $upload = new PlUpload(S::user()->login(), 'photo');
abe7e055 178 if ($upload->copyFrom($trombi_x)) {
5daf68f6 179 $myphoto = new PhotoReq(S::user(), $upload);
abe7e055 180 if ($myphoto->isValid()) {
181 $myphoto->commit();
182 $myphoto->clean();
183 }
fb9a56cb 184 }
5e2307dc 185 } elseif (Env::v('suppr')) {
8827fc52
VZ
186 S::assert_xsrf_token();
187
84868ee9
FB
188 XDB::execute('DELETE FROM photo
189 WHERE uid = {?}',
190 S::v('uid'));
191 XDB::execute('DELETE FROM requests
192 WHERE user_id = {?} AND type="photo"',
193 S::v('uid'));
ebfdf077 194 $globals->updateNbValid();
5e2307dc 195 } elseif (Env::v('cancel')) {
8827fc52
VZ
196 S::assert_xsrf_token();
197
84868ee9
FB
198 $sql = XDB::query('DELETE FROM requests
199 WHERE user_id={?} AND type="photo"',
200 S::v('uid'));
ebfdf077 201 $globals->updateNbValid();
fb9a56cb 202 }
203
84868ee9
FB
204 $sql = XDB::query('SELECT COUNT(*)
205 FROM requests
206 WHERE user_id={?} AND type="photo"',
abe7e055 207 S::v('uid'));
fb9a56cb 208 $page->assign('submited', $sql->fetchOneCell());
209 $page->assign('has_trombi_x', file_exists($trombi_x));
fb9a56cb 210 }
211
e8599c21 212 function handler_profile(&$page, $x = null)
213 {
54cabe90
VZ
214 // TODO/note for upcoming developers:
215 // We currently maintain both $user and $login; $user is the old way of
216 // obtaining information, and eventually everything will be loaded
217 // through $login. That is the reason why in the template $user is named
218 // $x, and $login $user (sorry for the confusion).
219
220 // Determines which user to display the profile of, and retrieves basic
221 // information on this user.
e8599c21 222 if (is_null($x)) {
223 return PL_NOT_FOUND;
224 }
225
344234db
VZ
226 $login = S::logged() ? User::get($x) : User::getSilent($x);
227 if (!$login) {
228 return PL_NOT_FOUND;
e8599c21 229 }
e8599c21 230
54cabe90
VZ
231 // Now that we know this is the profile of an existing user, we can
232 // switch to the appropriate template.
b13048df 233 $page->changeTpl('profile/profile.tpl', SIMPLE);
54cabe90 234 require_once 'user.func.inc.php';
e8599c21 235
54cabe90
VZ
236 // Determines the access level at which the profile will be displayed.
237 if (!S::logged() || Env::v('view') == 'public') {
238 $view = 'public';
239 } else if (S::logged() && Env::v('view') == 'ax') {
240 $view = 'ax';
e8599c21 241 } else {
54cabe90 242 $view = 'private';
e8599c21 243 }
244
54cabe90
VZ
245 // Determines is the user is registered, and fetches the user infos in
246 // the appropriate way.
344234db
VZ
247 $res = XDB::query("SELECT perms IN ('admin','user','disabled')
248 FROM auth_user_md5
249 WHERE user_id = {?}", $login->id());
54cabe90
VZ
250 if ($res->fetchOneCell()) {
251 $new = Env::v('modif') == 'new';
252 $user = get_user_details($login->login(), S::v('uid'), $view);
253 } else {
254 $new = false;
255 $user = array();
ba25f663 256 if (S::logged()) {
54cabe90 257 pl_redirect('marketing/public/' . $login->login());
ba25f663 258 }
e8599c21 259 }
ba25f663 260
54cabe90 261 // Profile view are logged.
e31c1c3e 262 if (S::logged()) {
b8971a3e 263 S::logger()->log('view_profile', $login->login());
e8599c21 264 }
265
54cabe90
VZ
266 // Sets the title of the html page.
267 $page->setTitle($login->fullName());
e8599c21 268
54cabe90
VZ
269 // Prepares the display of the user's mugshot.
270 $photo = 'photo/' . $login->login() . ($new ? '/req' : '');
271 if (!isset($user['photo_pub']) || !has_user_right($user['photo_pub'], $view)) {
272 $photo = "";
273 }
274 $page->assign('photo_url', $photo);
e8599c21 275
2f678da1 276 if (!isset($user['y']) and !isset($user['x'])) {
e8599c21 277 list($user['x'], $user['y']) = getimagesize("images/none.png");
278 }
2f678da1 279 if (!isset($user['y']) or $user['y'] < 1) $user['y']=1;
280 if (!isset($user['x']) or $user['x'] < 1) $user['x']=1;
281 if ($user['x'] > 240) {
e8599c21 282 $user['y'] = (integer)($user['y']*240/$user['x']);
283 $user['x'] = 240;
284 }
2f678da1 285 if ($user['y'] > 300) {
e8599c21 286 $user['x'] = (integer)($user['x']*300/$user['y']);
287 $user['y'] = 300;
288 }
2f678da1 289 if ($user['x'] < 160) {
e8599c21 290 $user['y'] = (integer)($user['y']*160/$user['x']);
291 $user['x'] = 160;
292 }
293
54cabe90
VZ
294 // Determines and displays the virtual alias.
295 global $globals;
08cce2ff 296 $res = XDB::query(
54cabe90
VZ
297 "SELECT alias
298 FROM virtual
299 INNER JOIN virtual_redirect USING (vid)
300 INNER JOIN auth_user_quick ON (user_id = {?} AND emails_alias_pub = 'public')
301 WHERE (redirect={?} OR redirect={?})
302 AND alias LIKE '%@{$globals->mail->alias_dom}'",
303 $login->id(),
304 $login->forlifeEmail(),
305 // TODO(vzanotti): get ride of all @m4x.org addresses in the
306 // virtual redirect base, and remove this über-ugly hack.
307 $login->login() . '@' . $globals->mail->domain2);
e8599c21 308 $page->assign('virtualalias', $res->fetchOneCell());
54cabe90
VZ
309
310 // Adds miscellaneous properties to the display.
311 // Adds the global user property array to the display.
312 $page->assign_by_ref('x', $user);
313 $page->assign_by_ref('user', $login);
314 $page->assign('logged', has_user_right('private', $view));
24f4c06a 315 $page->assign('view', $view);
e8599c21 316
c99ef281 317 $page->addJsLink('close_on_esc.js');
54cabe90
VZ
318 if (isset($user['date'])) {
319 header('Last-Modified: ' . date('r', strtotime($user['date'])));
320 }
e8599c21 321 }
322
5122b820 323 function handler_ax(&$page, $user = null)
324 {
34ca2048 325 $user = User::get($user);
5122b820 326 if (!$user) {
327 return PL_NOT_FOUND;
328 }
34ca2048
VZ
329
330 $res = XDB::query("SELECT matricule_ax
331 FROM auth_user_md5
332 WHERE user_id = {?}", $user->id());
5122b820 333 $mat = $res->fetchOneCell();
334 if (!intval($mat)) {
34ca2048 335 $page->kill("Le matricule AX de {$user->login()} est inconnu");
5122b820 336 }
337 http_redirect("http://www.polytechniciens.com/?page=AX_FICHE_ANCIEN&anc_id=$mat");
338 }
339
46ae38a9 340 function handler_p_edit(&$page, $opened_tab = null, $mode = null)
2f678da1 341 {
342 global $globals;
343
e1635d16
FB
344 // AX Synchronization
345 require_once 'synchro_ax.inc.php';
2f678da1 346 if (is_ax_key_missing()) {
347 $page->assign('no_private_key', true);
348 }
5e2307dc 349 if (Env::v('synchro_ax') == 'confirm' && !is_ax_key_missing()) {
b3bf7395 350 ax_synchronize(S::user()->login(), S::v('uid'));
a7d35093 351 $page->trigSuccess('Ton profil a été synchronisé avec celui du site polytechniciens.com');
2f678da1 352 }
353
7bff4cb0 354 // Build the page
c6a7beb2 355 $page->addJsLink('ajax.js');
f711b03f 356 $page->addJsLink('education.js');
46ae38a9 357 $page->addJsLink('grades.js');
16594a1a 358 $page->addJsLink('profile.js');
4b4b4b67 359 $page->addJsLink('jquery.autocomplete.js');
6d20fb1d 360 $wiz = new PlWizard('Profil', PlPage::getCoreTpl('plwizard.tpl'), true, true);
460d8f55 361 $this->load('page.inc.php');
e1635d16 362 $wiz->addPage('ProfileGeneral', 'Général', 'general');
0b14f91d 363 $wiz->addPage('ProfileAddresses', 'Adresses personnelles', 'adresses');
e1635d16 364 $wiz->addPage('ProfileGroups', 'Groupes X - Binets', 'poly');
a7c28fff 365 $wiz->addPage('ProfileDecos', 'Décorations - Medailles', 'deco');
3950bc21 366 $wiz->addPage('ProfileJobs', 'Informations professionnelles', 'emploi');
e1635d16
FB
367 $wiz->addPage('ProfileSkills', 'Compétences diverses', 'skill');
368 $wiz->addPage('ProfileMentor', 'Mentoring', 'mentor');
46ae38a9 369 $wiz->apply($page, 'profile/edit', $opened_tab, $mode);
35aedff2 370
7bff4cb0
FB
371 // Misc checks
372 $res = XDB::query("SELECT user_id
373 FROM auth_user_md5
374 WHERE user_id = {?} AND naissance = '0000-00-00'", S::i('uid'));
375 if ($res->numRows()) {
a7d35093 376 $page->trigWarning("Ta date de naissance n'est pas renseignée, ce qui t'empêcheras de réaliser"
7bff4cb0
FB
377 . " la procédure de récupération de mot de passe si un jour tu le perdais");
378 }
379
46f272fe 380 $page->setTitle('Mon Profil');
2f678da1 381 }
382
f711b03f 383 function handler_education_js(&$page)
46ae38a9
FB
384 {
385 header('Content-Type: text/javascript; charset=utf-8');
386 header('Expires: Mon, 26 Jul 1997 05:00:00 GMT');
387 header('Last-Modified:' . gmdate('D, d M Y H:i:s') . ' GMT');
388 header('Cache-Control: no-cache, must-revalidate');
389 header('Pragma: no-cache');
f711b03f
SJ
390 $page->changeTpl('profile/education.js.tpl', NO_SKIN);
391 require_once "education.func.inc.php";
46ae38a9
FB
392 }
393
394 function handler_grades_js(&$page)
395 {
396 header('Content-Type: text/javascript; charset=utf-8');
397 header('Expires: Mon, 26 Jul 1997 05:00:00 GMT');
398 header('Last-Modified:' . gmdate('D, d M Y H:i:s') . ' GMT');
399 header('Cache-Control: no-cache, must-revalidate');
400 header('Pragma: no-cache');
401 $page->changeTpl('profile/grades.js.tpl', NO_SKIN);
402 $res = XDB::iterator("SELECT *
403 FROM profile_medals_grades
404 ORDER BY mid, pos");
405 $grades = array();
406 while ($tmp = $res->next()) {
407 $grades[$tmp['mid']][] = $tmp;
408 }
409 $page->assign('grades', $grades);
410
411 $res = XDB::iterator("SELECT *, FIND_IN_SET('validation', flags) AS validate
412 FROM profile_medals
413 ORDER BY type, text");
414 $mlist = array();
415 while ($tmp = $res->next()) {
416 $mlist[$tmp['type']][] = $tmp;
417 }
418 $page->assign('medal_list', $mlist);
419 }
420
c6a7beb2
FB
421 function handler_ajax_address(&$page, $adid)
422 {
46ae38a9 423 header('Content-Type: text/html; charset=utf-8');
c6a7beb2
FB
424 $page->changeTpl('profile/adresses.address.tpl', NO_SKIN);
425 $page->assign('i', $adid);
426 $page->assign('adr', array());
c6a7beb2
FB
427 }
428
bde2be3b 429 function handler_ajax_tel(&$page, $prefid, $prefname, $telid)
c6a7beb2 430 {
46ae38a9 431 header('Content-Type: text/html; charset=utf-8');
bde2be3b
GB
432 $page->changeTpl('profile/phone.tpl', NO_SKIN);
433 $page->assign('prefid', $prefid);
434 $page->assign('prefname', $prefname);
435 $page->assign('telid', $telid);
c6a7beb2 436 $page->assign('tel', array());
c6a7beb2
FB
437 }
438
58acfe8b 439 function handler_ajax_edu(&$page, $eduid, $class)
043bbacf
SJ
440 {
441 header('Content-Type: text/html; charset=utf-8');
442 $page->changeTpl('profile/edu.tpl', NO_SKIN);
443 $res = XDB::iterator("SELECT id, field
444 FROM profile_education_field_enum
445 ORDER BY field");
446 $page->assign('edu_fields', $res->fetchAllAssoc());
447 $page->assign('eduid', $eduid);
58acfe8b 448 $page->assign('class', $class);
f711b03f 449 require_once "education.func.inc.php";
043bbacf
SJ
450 }
451
85cc366b
FB
452 function handler_ajax_medal(&$page, $id)
453 {
46ae38a9 454 header('Content-Type: text/html; charset=utf-8');
85cc366b
FB
455 $page->changeTpl('profile/deco.medal.tpl', NO_SKIN);
456 $page->assign('id', $id);
457 $page->assign('medal', array('valid' => 0, 'grade' => 0));
85cc366b
FB
458 }
459
2dcac0f5
FB
460 function handler_ajax_job(&$page, $id)
461 {
46ae38a9 462 header('Content-Type: text/html; charset=utf-8');
2dcac0f5
FB
463 $page->changeTpl('profile/jobs.job.tpl', NO_SKIN);
464 $page->assign('i', $id);
465 $page->assign('job', array());
2dcac0f5 466 $page->assign('new', true);
daa66175
SJ
467 $res = XDB::query("SELECT id, label
468 FROM emploi_secteur");
469 $page->assign('secteurs', $res->fetchAllAssoc());
470 $res = XDB::query("SELECT id, fonction_fr, FIND_IN_SET('titre', flags) AS title
471 FROM fonctions_def
472 ORDER BY id");
473 $page->assign('fonctions', $res->fetchAllAssoc());
2dcac0f5
FB
474 }
475
c7139c07 476 function handler_ajax_secteur(&$page, $id, $jobid, $jobpref, $sect, $ssect = -1)
2dcac0f5 477 {
46ae38a9 478 header('Content-Type: text/html; charset=utf-8');
c7139c07
SJ
479 $res = XDB::iterator("SELECT id, name AS label, FIND_IN_SET('optgroup', flags) AS optgroup
480 FROM profile_job_subsector_enum
481 WHERE sectorid = {?}", $sect);
2dcac0f5
FB
482 $page->changeTpl('profile/jobs.secteur.tpl', NO_SKIN);
483 $page->assign('id', $id);
484 $page->assign('ssecteurs', $res);
485 $page->assign('sel', $ssect);
c7139c07
SJ
486 $page->assign('jobid', $jobid);
487 $page->assign('jobpref', $jobpref);
488 }
489
490 function handler_ajax_ssecteur(&$page, $id, $ssect, $sssect = -1)
491 {
492 header('Content-Type: text/html; charset=utf-8');
493 $res = XDB::iterator("SELECT id, name AS label
494 FROM profile_job_subsubsector_enum
495 WHERE subsectorid = {?}", $ssect);
496 $page->changeTpl('profile/jobs.soussecteur.tpl', NO_SKIN);
497 $page->assign('id', $id);
498 $page->assign('sssecteurs', $res);
499 $page->assign('sel', $sssect);
2dcac0f5
FB
500 }
501
f25e1a56
FB
502 function handler_ajax_skill(&$page, $cat, $id)
503 {
46ae38a9 504 header('Content-Type: text/html; charset=utf-8');
f25e1a56 505 $page->changeTpl('profile/skill.skill.tpl', NO_SKIN);
f25e1a56
FB
506 $page->assign('cat', $cat);
507 $page->assign('id', $id);
508 if ($cat == 'competences') {
509 $page->assign('levels', array('initié' => 'initié',
510 'bonne connaissance' => 'bonne connaissance',
511 'expert' => 'expert'));
512 } else {
513 $page->assign('levels', array(1 => 'connaissance basique',
514 2 => 'maîtrise des bases',
515 3 => 'maîtrise limitée',
516 4 => 'maîtrise générale',
517 5 => 'bonne maîtrise',
518 6 => 'maîtrise complète'));
519 }
520 }
521
b04882ff
PC
522 function handler_ajax_searchname(&$page, $snid)
523 {
524 header('Content-Type: text/html; charset=utf-8');
525 $page->changeTpl('profile/general.searchname.tpl', NO_SKIN);
526 $page->assign('i', $snid);
527 $page->assign('sn', array());
528 $page->assign('newsn', true);
529 }
530
9b0fa329 531 function handler_p_orange(&$page)
532 {
8b1f8e12 533 $page->changeTpl('profile/orange.tpl');
9b0fa329 534
535 require_once 'validations.inc.php';
9b0fa329 536
fb2c09c9
SJ
537 $res = XDB::query("SELECT e.entry_year, e.grad_year, d.promo_display, FIND_IN_SET('femme', u.flags) AS sexe
538 FROM auth_user_md5 AS u
539 INNER JOIN profile_display AS d ON (d.uid = u.user_id)
540 INNER JOIN profile_education AS e ON (e.uid = u.user_id AND FIND_IN_SET('primary', e.flags))
541 WHERE u.user_id = {?}", S::v('uid'));
9b0fa329 542
fb2c09c9 543 list($promo, $promo_sortie_old, $promo_display, $sexe) = $res->fetchOneRow();
9b0fa329 544 $page->assign('promo_sortie_old', $promo_sortie_old);
fb2c09c9
SJ
545 $page->assign('promo', $promo);
546 $page->assign('promo_display', $promo_display);
547 $page->assign('sexe', $sexe);
9b0fa329 548
549 if (!Env::has('promo_sortie')) {
fd8f77de 550 return;
8827fc52
VZ
551 } else {
552 S::assert_xsrf_token();
9b0fa329 553 }
554
5e2307dc 555 $promo_sortie = Env::i('promo_sortie');
9b0fa329 556
557 if ($promo_sortie < 1000 || $promo_sortie > 9999) {
fb2c09c9 558 $page->trigError('L\'année de sortie doit être un nombre de quatre chiffres.');
9b0fa329 559 }
560 elseif ($promo_sortie < $promo + 3) {
fb2c09c9 561 $page->trigError('Trop tôt !');
9b0fa329 562 }
563 elseif ($promo_sortie == $promo_sortie_old) {
a7d35093 564 $page->trigWarning('Tu appartiens déjà à la promotion correspondante à cette année de sortie.');
9b0fa329 565 }
566 elseif ($promo_sortie == $promo + 3) {
fb2c09c9
SJ
567 XDB::execute("UPDATE profile_education
568 SET grad_year = {?}
569 WHERE uid = {?} AND FIND_IN_SET('primary', flags)", $promo_sortie, S::v('uid'));
a7d35093 570 $page->trigSuccess('Ton statut "orange" a été supprimé.');
9b0fa329 571 $page->assign('promo_sortie_old', $promo_sortie);
572 }
573 else {
574 $page->assign('promo_sortie', $promo_sortie);
575
576 if (Env::has('submit')) {
5daf68f6 577 $myorange = new OrangeReq(S::user(), $promo_sortie);
9b0fa329 578 $myorange->submit();
579 $page->assign('myorange', $myorange);
580 }
581 }
9b0fa329 582 }
583
2f678da1 584 function handler_referent(&$page, $x = null)
28e16d4d 585 {
28e16d4d 586 require_once 'user.func.inc.php';
8b1f8e12 587 $page->changeTpl('profile/fiche_referent.tpl', SIMPLE);
28e16d4d 588
b3bf7395
VZ
589 $user = User::get($x);
590 if ($user == null) {
28e16d4d 591 return PL_NOT_FOUND;
592 }
593
b3bf7395
VZ
594 $res = XDB::query("SELECT cv FROM auth_user_md5 WHERE user_id = {?}", $user->id());
595 $cv = $res->fetchOneCell();
28e16d4d 596
b3bf7395
VZ
597 $page->assign_by_ref('user', $user);
598 $page->assign('cv', MiniWiki::WikiToHTML($cv, true));
599 $page->assign('adr_pro', get_user_details_pro($user->id()));
28e16d4d 600
601 ///// recuperations infos referent
602
603 //expertise
b3bf7395 604 $res = XDB::query("SELECT expertise FROM mentor WHERE uid = {?}", $user->id());
28e16d4d 605 $page->assign('expertise', $res->fetchOneCell());
606
607 //secteurs
608 $secteurs = $ss_secteurs = Array();
08cce2ff 609 $res = XDB::iterRow(
28e16d4d 610 "SELECT s.label, ss.label
611 FROM mentor_secteurs AS m
612 LEFT JOIN emploi_secteur AS s ON(m.secteur = s.id)
613 LEFT JOIN emploi_ss_secteur AS ss ON(m.secteur = ss.secteur AND m.ss_secteur = ss.id)
b3bf7395 614 WHERE uid = {?}", $user->id());
28e16d4d 615 while (list($sec, $ssec) = $res->next()) {
616 $secteurs[] = $sec;
617 $ss_secteurs[] = $ssec;
618 }
619 $page->assign_by_ref('secteurs', $secteurs);
620 $page->assign_by_ref('ss_secteurs', $ss_secteurs);
621
622 //pays
08cce2ff 623 $res = XDB::query(
28e16d4d 624 "SELECT gp.pays
625 FROM mentor_pays AS m
626 LEFT JOIN geoloc_pays AS gp ON(m.pid = gp.a2)
b3bf7395 627 WHERE uid = {?}", $user->id());
28e16d4d 628 $page->assign('pays', $res->fetchColumn());
629
c99ef281 630 $page->addJsLink('close_on_esc.js');
28e16d4d 631 }
632
ff3eb9b7 633 function handler_ref_search(&$page, $action = null, $subaction = null)
2f678da1 634 {
8f201b69
FB
635 $wp = new PlWikiPage('Docs.Emploi');
636 $wp->buildCache();
637
46f272fe 638 $page->setTitle('Conseil Pro');
2f678da1 639
2f678da1 640 //recuperation des noms de secteurs
08cce2ff 641 $res = XDB::iterRow("SELECT id, label FROM emploi_secteur");
2f678da1 642 $secteurs[''] = '';
643 while (list($tmp_id, $tmp_label) = $res->next()) {
644 $secteurs[$tmp_id] = $tmp_label;
645 }
646 $page->assign_by_ref('secteurs', $secteurs);
647
2f678da1 648 // nb de mentors
08cce2ff 649 $res = XDB::query("SELECT count(*) FROM mentor");
2f678da1 650 $page->assign('mentors_number', $res->fetchOneCell());
651
2f678da1 652 // On vient d'un formulaire
ff3eb9b7 653 $where = array();
654 $pays_sel = XDB::escape(Env::v('pays_sel'));
655 $secteur_sel = XDB::escape(Env::v('secteur'));
656 $ss_secteur_sel = XDB::escape(Env::v('ss_secteur'));
657 $expertise_champ = XDB::escape(Env::v('expertise'));
658
659 if ($pays_sel != "''") {
660 $where[] = "mp.pid = $pays_sel";
661 }
662 if ($secteur_sel != "''") {
663 $where[] = "ms.secteur = $secteur_sel";
664 if ($ss_secteur_sel != "''") {
665 $where[] = "ms.ss_secteur = $ss_secteur_sel";
2f678da1 666 }
667 }
ff3eb9b7 668 if ($expertise_champ != "''") {
669 $where[] = "MATCH(m.expertise) AGAINST($expertise_champ)";
2f678da1 670 }
671
672 if ($where) {
673 $where = join(' AND ', $where);
674
e1635d16
FB
675 $set = new UserSet("INNER JOIN mentor AS m ON (m.uid = u.user_id)
676 LEFT JOIN mentor_pays AS mp ON (mp.uid = m.uid)
ff3eb9b7 677 LEFT JOIN mentor_secteurs AS ms ON (ms.uid = m.uid)",
678 $where);
679 $set->addMod('mentor', 'Référents');
680 $set->apply('referent/search', $page, $action, $subaction);
681 if ($set->count() > 100) {
e1635d16 682 $page->assign('recherche_trop_large', true);
2f678da1 683 }
ff3eb9b7 684 }
e1635d16 685 $page->changeTpl('profile/referent.tpl');
ff3eb9b7 686 }
2f678da1 687
e1635d16 688 function handler_ref_sect(&$page, $sect)
ff3eb9b7 689 {
690 header('Content-Type: text/html; charset=utf-8');
05cb05c0 691 $page->changeTpl('include/field.select.tpl', NO_SKIN);
ff3eb9b7 692 $page->assign('onchange', 'setSSecteurs()');
693 $page->assign('id', 'ssect_field');
694 $page->assign('name', 'ss_secteur');
695 $it = XDB::iterator("SELECT id,label AS field
e1635d16 696 FROM emploi_ss_secteur
ff3eb9b7 697 WHERE secteur = {?}", $sect);
698 $page->assign('list', $it);
699 }
2f678da1 700
ff3eb9b7 701 function handler_ref_country(&$page, $sect, $ssect = '')
702 {
703 header('Content-Type: text/html; charset=utf-8');
05cb05c0 704 $page->changeTpl('include/field.select.tpl', NO_SKIN);
ff3eb9b7 705 $page->assign('name', 'pays_sel');
706 $where = ($ssect ? ' AND ms.ss_secteur = {?}' : '');
707 $it = XDB::iterator("SELECT a2 AS id, pays AS field
708 FROM geoloc_pays AS g
709 INNER JOIN mentor_pays AS mp ON (mp.pid = g.a2)
710 INNER JOIN mentor_secteurs AS ms ON (ms.uid = mp.uid)
711 WHERE ms.secteur = {?} $where
712 GROUP BY a2
713 ORDER BY pays", $sect, $ssect);
714 $page->assign('list', $it);
2f678da1 715 }
716
926f16d7 717 function handler_p_usage(&$page)
718 {
8b1f8e12 719 $page->changeTpl('profile/nomusage.tpl');
926f16d7 720
721 require_once 'validations.inc.php';
926f16d7 722
08cce2ff 723 $res = XDB::query(
2f678da1 724 "SELECT u.nom, u.nom_usage, u.flags, e.alias
926f16d7 725 FROM auth_user_md5 AS u
2f678da1 726 LEFT JOIN aliases AS e ON(u.user_id = e.id
727 AND FIND_IN_SET('usage', e.flags))
cab08090 728 WHERE user_id={?}", S::v('uid'));
926f16d7 729
2f678da1 730 list($nom, $usage_old, $flags, $alias_old) = $res->fetchOneRow();
113f6de8 731 $flags = new PlFlagSet($flags);
926f16d7 732 $page->assign('usage_old', $usage_old);
733 $page->assign('alias_old', $alias_old);
734
e1635d16 735 $nom_usage = replace_accent(trim(Env::v('nom_usage')));
926f16d7 736 $nom_usage = strtoupper($nom_usage);
737 $page->assign('usage_req', $nom_usage);
738
739 if (Env::has('submit') && ($nom_usage != $usage_old)) {
8827fc52
VZ
740 S::assert_xsrf_token();
741
926f16d7 742 // on vient de recevoir une requete, differente de l'ancien nom d'usage
743 if ($nom_usage == $nom) {
44b071c2
SJ
744 $page->trigWarning('Le nom d\'usage que tu demandes est identique à ton nom à l\'X, '
745 . 'aucune modification n\'a donc été effectuée.');
926f16d7 746 $page->assign('same', true);
a7de4ef7 747 } else { // le nom de mariage est distinct du nom à l'X
926f16d7 748 // on calcule l'alias pour l'afficher
5e2307dc 749 $reason = Env::v('reason');
926f16d7 750 if ($reason == 'other') {
5e2307dc 751 $reason = Env::v('other_reason');
926f16d7 752 }
5daf68f6 753 $myusage = new UsageReq(S::user(), $nom_usage, $reason);
926f16d7 754 $myusage->submit();
755 $page->assign('myusage', $myusage);
756 }
757 }
926f16d7 758 }
759
a1d79217 760 function handler_xnet(&$page)
761 {
8b1f8e12 762 $page->changeTpl('profile/groupesx.tpl');
46f272fe 763 $page->setTitle('Promo, Groupes X, Binets');
e1635d16 764
a1d79217 765 $req = XDB::query('
e1635d16 766 SELECT m.asso_id, a.nom, diminutif, a.logo IS NOT NULL AS has_logo,
46e1d3ba 767 COUNT(e.eid) AS events, mail_domain AS lists
e1635d16 768 FROM groupex.membres AS m
46e1d3ba 769 INNER JOIN groupex.asso AS a ON(m.asso_id = a.id)
770 LEFT JOIN groupex.evenements AS e ON(e.asso_id = m.asso_id AND e.archive = 0)
771 WHERE uid = {?} GROUP BY m.asso_id ORDER BY a.nom', S::i('uid'));
a1d79217 772 $page->assign('assos', $req->fetchAllAssoc());
773 }
e1635d16 774
e49018a7 775 function handler_vcard(&$page, $x = null)
776 {
777 if (is_null($x)) {
778 return PL_NOT_FOUND;
779 }
780
781 global $globals;
782
783 if (substr($x, -4) == '.vcf') {
784 $x = substr($x, 0, strlen($x) - 4);
785 }
786
5d42c993
FB
787 $vcard = new VCard();
788 $vcard->addUser($x);
789 $vcard->show();
e49018a7 790 }
92423144 791
54cabe90 792 function handler_admin_trombino(&$page, $login = null, $action = null) {
8b1f8e12 793 $page->changeTpl('profile/admin_trombino.tpl');
46f272fe 794 $page->setTitle('Administration - Trombino');
e1635d16 795
54cabe90
VZ
796 if (!$login || !($user = User::get($login))) {
797 return PL_NOT_FOUND;
798 } else {
799 $page->assign_by_ref('user', $user);
800 }
e1635d16 801
92423144 802 switch ($action) {
92423144 803 case "original":
804 header("Content-type: image/jpeg");
54cabe90 805 readfile("/home/web/trombino/photos" . $user->promo() . "/" . $user->login() . ".jpg");
92423144 806 exit;
807 break;
e1635d16 808
92423144 809 case "new":
8827fc52
VZ
810 S::assert_xsrf_token();
811
92423144 812 $data = file_get_contents($_FILES['userfile']['tmp_name']);
813 list($x, $y) = getimagesize($_FILES['userfile']['tmp_name']);
814 $mimetype = substr($_FILES['userfile']['type'], 6);
815 unlink($_FILES['userfile']['tmp_name']);
816 XDB::execute(
817 "REPLACE INTO photo SET uid={?}, attachmime = {?}, attach={?}, x={?}, y={?}",
54cabe90 818 $user->id(), $mimetype, $data, $x, $y);
92423144 819 break;
e1635d16 820
92423144 821 case "delete":
8827fc52
VZ
822 S::assert_xsrf_token();
823
54cabe90 824 XDB::execute('DELETE FROM photo WHERE uid = {?}', $user->id());
92423144 825 break;
826 }
92423144 827 }
828 function handler_admin_binets(&$page, $action = 'list', $id = null) {
46f272fe 829 $page->setTitle('Administration - Binets');
92423144 830 $page->assign('title', 'Gestion des binets');
831 $table_editor = new PLTableEditor('admin/binets', 'binets_def', 'id');
832 $table_editor->add_join_table('binets_ins','binet_id',true);
a7de4ef7 833 $table_editor->describe('text','intitulé',true);
92423144 834 $table_editor->apply($page, $action, $id);
835 }
043bbacf 836 function handler_admin_education(&$page, $action = 'list', $id = null) {
46f272fe 837 $page->setTitle('Administration - Formations');
92423144 838 $page->assign('title', 'Gestion des formations');
043bbacf
SJ
839 $table_editor = new PLTableEditor('admin/education', 'profile_education_enum', 'id');
840 $table_editor->add_join_table('profile_education', 'eduid', true);
841 $table_editor->add_join_table('profile_education_degree', 'eduid', true);
842 $table_editor->describe('name', 'intitulé', true);
843 $table_editor->describe('url', 'site web', false);
844 $table_editor->apply($page, $action, $id);
845 }
846 function handler_admin_education_field(&$page, $action = 'list', $id = null) {
847 $page->setTitle('Administration - Domaines de formation');
848 $page->assign('title', 'Gestion des domaines de formation');
849 $table_editor = new PLTableEditor('admin/education_field', 'profile_education_field_enum', 'id', true);
850 $table_editor->add_join_table('profile_education', 'fieldid', true);
851 $table_editor->describe('field', 'domaine', true);
852 $table_editor->apply($page, $action, $id);
853 }
854 function handler_admin_education_degree(&$page, $action = 'list', $id = null) {
855 $page->setTitle('Administration - Niveau de formation');
856 $page->assign('title', 'Gestion des niveau de formation');
857 $table_editor = new PLTableEditor('admin/education_degree', 'profile_education_degree_enum', 'id', true);
858 $table_editor->add_join_table('profile_education_degree', 'degreeid', true);
859 $table_editor->add_join_table('profile_education', 'degreeid', true);
860 $table_editor->describe('degree', 'niveau', true);
861 $table_editor->apply($page, $action, $id);
862 }
863 function handler_admin_education_degree_set(&$page, $action = 'list', $id = null) {
864 $page->setTitle('Administration - Correspondances formations - niveau de formation');
865 $page->assign('title', 'Gestion des correspondances formations - niveau de formation');
866 $table_editor = new PLTableEditor('admin/education_degree_set', 'profile_education_degree', 'eduid', true);
867 $table_editor->describe('eduid', 'formation', true);
868 $table_editor->describe('degreeid', 'niveau', true);
92423144 869 $table_editor->apply($page, $action, $id);
e1635d16 870 }
b09690be 871 function handler_admin_sections(&$page, $action = 'list', $id = null) {
46f272fe 872 $page->setTitle('Administration - Sections');
a20aab02 873 $page->assign('title', 'Gestion des sections');
b09690be 874 $table_editor = new PLTableEditor('admin/sections','sections','id');
875 $table_editor->describe('text','intitulé',true);
876 $table_editor->apply($page, $action, $id);
e1635d16 877 }
a20aab02 878 function handler_admin_ss_secteurs(&$page, $action = 'list', $id = null) {
46f272fe 879 $page->setTitle('Administration - Sous-secteurs');
a20aab02
SJ
880 $page->assign('title', 'Gestion des sous-secteurs');
881 $table_editor = new PLTableEditor('admin/ss_secteurs', 'emploi_ss_secteur', 'id', true);
882 $table_editor->describe('label', 'intitulé', true);
883 $table_editor->apply($page, $action, $id);
884 }
885 function handler_admin_fonctions(&$page, $action = 'list', $id = null) {
46f272fe 886 $page->setTitle('Administration - Fonctions');
a20aab02
SJ
887 $page->assign('title', 'Gestion des fonctions');
888 $table_editor = new PLTableEditor('admin/fonctions', 'fonctions_def', 'id', true);
889 $table_editor->describe('fonction_fr', 'intitulé', true);
890 $table_editor->describe('fonction_en', 'intitulé (ang)', true);
891 $table_editor->describe('flags', 'titre', true);
892 $table_editor->apply($page, $action, $id);
893 }
b09690be 894 function handler_admin_secteurs(&$page, $action = 'list', $id = null) {
46f272fe 895 $page->setTitle('Administration - Secteurs');
a20aab02
SJ
896 $page->assign('title', 'Gestion des secteurs');
897 $table_editor = new PLTableEditor('admin/secteurs', 'emploi_secteur', 'id', true);
898 $table_editor->describe('label', 'intitulé', true);
b09690be 899 $table_editor->apply($page, $action, $id);
e1635d16 900 }
15beefb3
GB
901 function handler_admin_networking(&$page, $action = 'list', $id = null) {
902 $page->assign('xorg_title', 'Polytechnique.org - Administration - Networking');
903 $page->assign('title', 'Gestion des types de networking');
904 $table_editor = new PLTableEditor('admin/networking', 'profile_networking_enum', 'network_type');
905 $table_editor->describe('name', 'intitulé', true);
906 $table_editor->describe('icon', 'nom de l\'icône', false);
dc6378df
GB
907 $table_editor->describe('filter', 'filtre', true);
908 $table_editor->describe('link', 'lien web', true);
15beefb3
GB
909 $table_editor->apply($page, $action, $id);
910 }
4962a9ce
SJ
911 function handler_admin_corps_enum(&$page, $action = 'list', $id = null) {
912 $page->setTitle('Administration - Corps');
913 $page->assign('title', 'Gestion des Corps');
914 $table_editor = new PLTableEditor('admin/corps_enum', 'profile_corps_enum', 'id');
915 $table_editor->describe('name', 'intitulé', true);
916 $table_editor->describe('abbreviation', 'abbréviation', true);
917 $table_editor->describe('still_exists', 'existe encore ?', true);
918 $table_editor->apply($page, $action, $id);
919 }
920 function handler_admin_corps_rank(&$page, $action = 'list', $id = null) {
921 $page->setTitle('Administration - Grade dans les Corps');
922 $page->assign('title', 'Gestion des grade dans les Corps');
923 $table_editor = new PLTableEditor('admin/corps_rank', 'profile_corps_rank_enum', 'id');
924 $table_editor->describe('name', 'intitulé', true);
925 $table_editor->describe('abbreviation', 'abbréviation', true);
926 $table_editor->apply($page, $action, $id);
927 }
92423144 928 function handler_admin_medals(&$page, $action = 'list', $id = null) {
46f272fe 929 $page->setTitle('Administration - Distinctions');
92423144 930 $page->assign('title', 'Gestion des Distinctions');
931 $table_editor = new PLTableEditor('admin/medals','profile_medals','id');
a7de4ef7 932 $table_editor->describe('text', 'intitulé', true);
92423144 933 $table_editor->describe('img', 'nom de l\'image', false);
d02b8359 934 $table_editor->describe('flags', 'valider', true);
92423144 935 $table_editor->apply($page, $action, $id);
936 if ($id && $action == 'edit') {
8b1f8e12 937 $page->changeTpl('profile/admin_decos.tpl');
e1635d16 938
92423144 939 $mid = $id;
e1635d16 940
92423144 941 if (Post::v('act') == 'del') {
75a17710
FB
942 XDB::execute('DELETE FROM profile_medals_grades
943 WHERE mid={?} AND gid={?}', $mid, Post::i('gid'));
92423144 944 } else {
945 foreach (Post::v('grades', array()) as $gid=>$text) {
154ee23a
OLF
946 if ($gid === 0) {
947 if (!empty($text)) {
948 $res = XDB::query('SELECT MAX(gid)
949 FROM profile_medals_grades
950 WHERE mid = {?}', $mid);
951 $gid = $res->fetchOneCell() + 1;
952
953 XDB::execute('INSERT INTO profile_medals_grades (mid, gid, text, pos)
954 VALUES ({?}, {?}, {?}, {?})',
955 $mid, $gid, $text, $_POST['pos']['0']);
956 }
957 } else {
958 XDB::execute('UPDATE profile_medals_grades
959 SET pos={?}, text={?}
960 WHERE gid={?} AND mid={?}', $_POST['pos'][$gid], $text, $gid, $mid);
961 }
92423144 962 }
963 }
964 $res = XDB::iterator('SELECT gid, text, pos FROM profile_medals_grades WHERE mid={?} ORDER BY pos', $mid);
965 $page->assign('grades', $res);
966 }
e1635d16 967 }
7d8b17cb 968}
969
a7de4ef7 970// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
7d8b17cb 971?>