Commit | Line | Data |
---|---|---|
b715c1e1 SJ |
1 | <?php |
2 | /*************************************************************************** | |
3 | * Copyright (C) 2003-2008 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 | ||
b8d90797 | 22 | function fill_email_combobox(PlPage& $page) |
b715c1e1 SJ |
23 | { |
24 | global $globals; | |
25 | ||
26 | $uid = S::v('uid'); | |
27 | $forlife = S::v('forlife'); | |
28 | $email_type = "directory"; | |
29 | ||
30 | $res = XDB::query( | |
31 | "SELECT email_directory | |
32 | FROM profile_directory | |
33 | WHERE uid={?}", $uid); | |
34 | $email_directory = $res->fetchOneCell(); | |
35 | if ($email_directory) { | |
36 | $page->assign('email_directory', $email_directory); | |
37 | list($alias, $domain) = explode('@', $email_directory); | |
38 | } else { | |
39 | $page->assign('email_directory', ''); | |
40 | $email_type = NULL; | |
41 | $alias = $domain = ''; | |
42 | } | |
43 | ||
44 | $res = XDB::query( | |
45 | "SELECT alias | |
46 | FROM virtual | |
47 | INNER JOIN virtual_redirect USING(vid) | |
48 | WHERE (redirect={?} OR redirect={?}) | |
49 | AND alias LIKE '%@{$globals->mail->alias_dom}'", | |
50 | $forlife . '@' . $globals->mail->domain, $forlife . '@' . $globals->mail->domain2); | |
51 | $melix = $res->fetchOneCell(); | |
52 | if ($melix) { | |
53 | list($melix) = explode('@', $melix); | |
54 | $page->assign('melix', $melix); | |
55 | if (($domain == $globals->mail->alias_dom) || ($domain == $globals->mail->alias_dom2)) { | |
56 | $email_type = "melix"; | |
57 | } | |
58 | } | |
59 | ||
60 | $res = XDB::query( | |
61 | "SELECT alias | |
62 | FROM aliases | |
63 | WHERE id={?} AND (type='a_vie' OR type='alias')", $uid); | |
64 | $res = $res->fetchAllAssoc(); | |
65 | $page->assign('list_email_X', $res); | |
66 | if (($domain == $globals->mail->domain) || ($domain == $globals->mail->domain2)) { | |
67 | foreach ($res as $res_it) { | |
68 | if ($alias == $res_it['alias']) { | |
69 | $email_type = "X"; | |
70 | } | |
71 | } | |
72 | } | |
73 | ||
74 | require_once 'emails.inc.php'; | |
75 | $redirect = new Redirect($uid); | |
76 | $redir = array(); | |
77 | foreach ($redirect->emails as $redirect_it) { | |
78 | if ($redirect_it instanceof EmailRedirection) { | |
79 | $redir[] = $redirect_it->email; | |
80 | if ($email_directory == $redirect_it->email) { | |
81 | $email_type = "redir"; | |
82 | } | |
83 | } | |
84 | } | |
85 | $page->assign('list_email_redir', $redir); | |
86 | ||
87 | $res = XDB::query( | |
88 | "SELECT email | |
89 | FROM entreprises | |
90 | WHERE uid={?}", $uid); | |
91 | $res = $res->fetchAllAssoc(); | |
92 | $pro = array(); | |
93 | foreach ($res as $res_it) { | |
94 | if ($res_it['email'] != '') { | |
95 | $pro[] = $res_it['email']; | |
96 | if ($email_directory == $res_it['email']) { | |
97 | $email_type = "pro"; | |
98 | } | |
99 | } | |
100 | } | |
101 | $page->assign('list_email_pro', $pro); | |
102 | ||
103 | $page->assign('email_type', $email_type); | |
104 | } | |
105 | ||
106 | // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: | |
107 | ?> |