Bug 130: Les pages ont toutes un titre different.
[platal.git] / htdocs / emails.php
CommitLineData
0337d704 1<?php
2/***************************************************************************
3 * Copyright (C) 2003-2004 Polytechnique.org *
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
22require_once("xorg.inc.php");
23new_skinned_page('emails.tpl',AUTH_COOKIE);
d9a33f98 24$page->assign('xorg_title','Polytechnique.org - Mes emails');
0337d704 25
26$uid = Session::getInt('uid');
27
28if (Post::has('best')) {
29 // bestalias is the first bit : 1
30 // there will be maximum 8 bits in flags : 255
31 $globals->xdb->execute("UPDATE aliases SET flags=flags & (255 - 1) WHERE id={?}", $uid);
32 $globals->xdb->execute("UPDATE aliases SET flags=flags | 1 WHERE id={?} AND alias={?}", $uid, Post::get('best'));
33}
34
35// on regarde si on a affaire à un homonyme
36$sql = "SELECT alias, (type='a_vie') AS a_vie, FIND_IN_SET('bestalias',flags) AS best, expire
37 FROM aliases
38 WHERE id = {?} AND type!='homonyme'
39 ORDER BY LENGTH(alias)";
40$page->assign('aliases', $globals->xdb->iterator($sql, $uid));
41
42$sql = "SELECT email
43 FROM emails
44 WHERE uid = {?} AND FIND_IN_SET('active', flags)";
45$page->assign('mails', $globals->xdb->iterator($sql, $uid));
46
47
48// on regarde si l'utilisateur a un alias et si oui on l'affiche !
49$forlife = Session::get('forlife');
50$res = $globals->xdb->query(
51 "SELECT alias
52 FROM virtual AS v
53 INNER JOIN virtual_redirect AS vr USING(vid)
54 WHERE (redirect={?} OR redirect={?})
55 AND alias LIKE '%@{$globals->mail->alias_dom}'",
56 $forlife.'@'.$globals->mail->domain, $forlife.'@'.$globals->mail->domain2);
57$page->assign('melix', $res->fetchOneCell());
58
59$page->run();
60?>