3 require 'xnet.inc.php';
5 function get_infos($email)
9 $email = strtolower($email);
10 if (strpos($email, '@') === false
) {
13 list($mbox,$dom) = split('@', $email);
15 if ($dom == 'polytechnique.org' ||
$dom == 'm4x.org') {
16 $res = $globals->xdb
->query(
17 "SELECT user_id AS uid, u.promo, IF(u.nom_usage<>'', u.nom_usage, u.nom) as nom, u.prenom, b.alias,
18 CONCAT(b.alias, '@m4x.org') AS email,
19 CONCAT(b.alias, '@polytechnique.org') AS email2,
20 m.perms='admin' AS perms, m.origine
21 FROM auth_user_md5 AS u
22 INNER JOIN aliases AS a ON ( u.user_id = a.id AND a.type != 'homonyme' )
23 INNER JOIN aliases AS b ON ( u.user_id = b.id AND b.type = 'a_vie' )
24 INNER JOIN groupex.membres AS m ON ( m.uid = u.user_id AND asso_id={?})
25 WHERE a.alias = {?} AND u.user_id < 50000", $globals->asso('id'), $mbox);
26 $user = $res->fetchOneAssoc();
28 $res = $globals->xdb
->query(
29 "SELECT uid, nom, prenom, email, email AS email2, perms='admin', origine
31 WHERE email = {?} AND asso_id = {?}", $email, $globals->asso('id'));
32 $user = $res->fetchOneAssoc();
40 new_groupadmin_page('xnet/groupe/membres-add.tpl');
41 $x = (Env
::get('new') == 'x');
43 if (Post
::has('email')) {
45 require_once 'user.func.inc.php';
46 if ($forlife = get_user_forlife(Post
::get('email'))) {
47 $globals->xdb
->execute(
48 'INSERT INTO groupex.membres (uid,asso_id,origine)
49 SELECT user_id,{?},"X"
50 FROM auth_user_md5 AS u
51 INNER JOIN aliases AS a ON (u.user_id = a.id)
52 WHERE a.alias={?}', $globals->asso('id'), $forlife);
53 header('Location: ?edit='.$forlife);
56 $email = Post
::get('email');
57 if (isvalid_email($email)) {
58 $res = $globals->xdb
->query('SELECT MAX(uid)+1 FROM groupex.membres');
59 $uid = max(intval($res->fetchOneCell()), 50001);
60 $globals->xdb
->execute('INSERT INTO groupex.membres (uid,asso_id,origine,email) VALUES({?},{?},"ext",{?})',
61 $uid, $globals->asso('id'), $email);
62 header('Location: ?edit='.$email);
64 $page->trig("« <strong>$email</strong> » n'est pas une adresse mail valide");
69 elseif (Env
::has('edit'))
71 new_groupadmin_page('xnet/groupe/membres-edit.tpl');
73 $user = get_infos(Env
::get('edit'));
74 if (empty($user)) { header("Location: annuaire.php"); }
76 require 'lists.inc.php';
77 $client =& lists_xmlrpc(Session
::getInt('uid'), Session
::get('password'), $globals->asso('mail_domain'));
79 if (Post
::has('change')) {
81 if ($user['origine'] != 'X')
83 $globals->xdb
->query('UPDATE groupex.membres SET prenom={?}, nom={?}, email={?} WHERE uid={?} AND asso_id={?}',
84 Post
::get('prenom'), Post
::get('nom'), Post
::get('email'), $user['uid'], $globals->asso('id'));
85 $user['nom'] = Post
::get('nom');
86 $user['prenom'] = Post
::get('prenom');
87 $user['email'] = Post
::get('email');
88 $user['email2'] = Post
::get('email');
91 $perms = Post
::getInt('is_admin');
92 if ($user['perms'] != $perms) {
93 $globals->xdb
->query('UPDATE groupex.membres SET perms={?} WHERE uid={?} AND asso_id={?}',
94 $perms ?
'admin' : 'membre', $user['uid'], $globals->asso('id'));
95 $user['perms'] = $perms;
96 $page->trig('permissions modifiées');
99 foreach (Env
::getMixed('ml1',array()) as $ml => $state) {
100 $ask = empty($_REQUEST['ml2'][$ml]) ?
0 : 2;
101 if ($ask == $state) continue;
103 $page->trig("{$user['prenom']} {$user['nom']} a actuellement une demande d'inscription en cours sur <strong>$ml@</strong> !!!");
105 $client->mass_subscribe($ml, Array($user['email2']));
106 $page->trig("{$user['prenom']} {$user['nom']} a été abonné à $ml@");
108 $client->mass_unsubscribe($ml, Array($user['email2']));
109 $page->trig("{$user['prenom']} {$user['nom']} a été désabonné de $ml@");
113 foreach (Env
::getMixed('ml3', array()) as $ml => $state) {
114 $ask = !empty($_REQUEST['ml4'][$ml]);
115 if($state == $ask) continue;
117 $globals->xdb
->query("INSERT INTO virtual_redirect (vid,redirect)
118 SELECT vid,{?} FROM virtual WHERE alias={?}",
119 $user['email'], $ml);
120 $page->trig("{$user['prenom']} {$user['nom']} a été abonné à $ml");
122 $globals->xdb
->query("DELETE FROM virtual_redirect
123 USING virtual_redirect
124 INNER JOIN virtual USING(vid)
125 WHERE redirect={?} AND alias={?}", $user['email'], $ml);
126 $page->trig("{$user['prenom']} {$user['nom']} a été désabonné de $ml");
131 $page->assign('user', $user);
132 $listes = $client->get_lists($user['email2']);
133 $page->assign('listes', $listes);
135 $res = $globals->xdb
->query(
136 'SELECT alias, redirect IS NOT NULL as sub
138 LEFT JOIN virtual_redirect AS vr ON(v.vid=vr.vid AND redirect={?})
139 WHERE alias LIKE {?} AND type="user"', $user['email'], '%@'.$globals->asso('mail_domain'));
140 $page->assign('alias', $res->fetchAllAssoc());
142 elseif (Env
::has('del'))
144 new_groupadmin_page('xnet/groupe/membres-del.tpl');
145 $user = get_infos(Env
::get('del'));
146 if (empty($user)) { header("Location: annuaire.php"); }
147 $page->assign('user', $user);
149 if (Post
::has('confirm')) {
150 if ($domain = $globals->asso('mail_domain')) {
152 require 'lists.inc.php';
153 $client =& lists_xmlrpc(Session
::getInt('uid'), Session
::get('password'), $domain);
154 $listes = $client->get_lists($user['email2']);
156 foreach ($listes as $liste) {
157 if ($liste['sub'] == 2) {
158 $client->mass_unsubscribe($liste['list'], Array($user['email2']));
159 $page->trig("{$user['prenom']} {$user['nom']} a été désinscrit de {$liste['list']}");
160 } elseif ($liste['sub']) {
161 $page->trig("{$user['prenom']} {$user['nom']} a une demande d'inscription en cours sur la liste {$liste['list']}@ !");
165 $globals->xdb
->execute(
166 "DELETE FROM virtual_redirect
167 USING virtual_redirect
168 INNER JOIN virtual USING(vid)
169 WHERE redirect={?} AND alias LIKE {?}", $user['email'], '%@'.$domain);
170 if (mysql_affected_rows()) {
171 $page->trig("{$user['prenom']} {$user['nom']} a été désabonné des alias du groupe !");
175 $globals->xdb
->execute(
176 "DELETE FROM groupex.membres WHERE uid={?} AND asso_id={?}",
177 $user['uid'], $globals->asso('id'));
178 $page->trig("{$user['prenom']} {$user['nom']} a été retiré du groupe !");
183 header("Location: annuaire.php");