3 require_once 'xnet.inc.php';
4 require_once 'lists.inc.php';
5 require_once 'xnet/mail.inc.php';
7 if (!Env
::has('liste')) {
8 redirect('annuaire-admin.php');
10 $liste = Env
::get('liste');
12 new_groupadmin_page('xnet/groupe/listes-sync.tpl');
14 $client =& lists_xmlrpc(Session
::getInt('uid'), Session
::get('password'), $globals->asso('mail_domain'));
16 if (Env
::has('add')) {
17 $client->mass_subscribe($liste, array_keys(Env
::getMixed('add')));
20 list(,$members) = $client->get_members($liste);
21 $mails = array_map(create_function('$arr', 'return $arr[1];'), $members);
22 $subscribers = array_unique(array_merge($subscribers, $mails));
24 $not_in_group_x = array();
25 $not_in_group_ext = array();
27 $ann = $globals->xdb
->iterator(
28 "SELECT IF(m.origine='X',IF(u.nom_usage<>'', u.nom_usage, u.nom) ,m.nom) AS nom,
29 IF(m.origine='X',u.prenom,m.prenom) AS prenom,
30 IF(m.origine='X',u.promo,'extérieur') AS promo,
31 IF(m.origine='X',CONCAT(a.alias, '@polytechnique.org'),m.email) AS email,
32 IF(m.origine='X',FIND_IN_SET('femme', u.flags),0) AS femme,
33 m.perms='admin' AS admin,
35 FROM groupex.membres AS m
36 LEFT JOIN auth_user_md5 AS u ON ( u.user_id = m.uid )
37 LEFT JOIN aliases AS a ON ( a.id = m.uid AND a.type='a_vie' )
38 WHERE m.asso_id = {?}", $globals->asso('id'));
40 $not_in_list = array();
42 while ($tmp = $ann->next()) {
43 if (!in_array($tmp['email'], $subscribers)) {
44 $not_in_list[] = $tmp;
48 $page->assign('not_in_list', $not_in_list);