X-Git-Url: http://git.polytechnique.org/?a=blobdiff_plain;f=modules%2Fxnetlists.php;h=986cad9fa5d54c41a3f79dde3b869c161c7cc8e2;hb=8b83a166c039c798039818bda7114275dcec33f0;hp=cbadb490811a5bd8e9f4bd4c4b98e4f9142eeeac;hpb=d83a1b04f399c65be114718d4301bb7dc1c8a7cc;p=platal.git

diff --git a/modules/xnetlists.php b/modules/xnetlists.php
index cbadb49..986cad9 100644
--- a/modules/xnetlists.php
+++ b/modules/xnetlists.php
@@ -163,22 +163,22 @@ class XnetListsModule extends ListsModule
         XDB::execute('INSERT INTO x4dat.virtual (alias,type)
                                 VALUES({?},{?})', $liste.'@'.$dom, 'list');
         XDB::execute('INSERT INTO x4dat.virtual_redirect (vid,redirect)
-                                VALUES ({?}, {?})', mysql_insert_id(),
+                                VALUES ({?}, {?})', XDB::insertId(),
                                "$red+post@listes.polytechnique.org");
         XDB::execute('INSERT INTO x4dat.virtual (alias,type)
                                 VALUES({?},{?})', $liste.'-owner@'.$dom, 'list');
         XDB::execute('INSERT INTO x4dat.virtual_redirect (vid,redirect)
-                                VALUES ({?}, {?})', mysql_insert_id(),
+                                VALUES ({?}, {?})', XDB::insertId(),
                                "$red+owner@listes.polytechnique.org");
         XDB::execute('INSERT INTO x4dat.virtual (alias,type)
                                 VALUES({?},{?})', $liste.'-admin@'.$dom, 'list');
         XDB::execute('INSERT INTO x4dat.virtual_redirect (vid,redirect)
-                                VALUES ({?}, {?})', mysql_insert_id(),
+                                VALUES ({?}, {?})', XDB::insertId(),
                                "$red+admin@listes.polytechnique.org");
         XDB::execute('INSERT INTO x4dat.virtual (alias,type)
                                 VALUES({?},{?})', $liste.'-bounces@'.$dom, 'list');
         XDB::execute('INSERT INTO x4dat.virtual_redirect (vid,redirect)
-                                VALUES ({?}, {?})', mysql_insert_id(),
+                                VALUES ({?}, {?})', XDB::insertId(),
                                 "$red+bounces@listes.polytechnique.org");
 
         pl_redirect('lists/admin/'.$liste);
@@ -198,7 +198,7 @@ class XnetListsModule extends ListsModule
 
         list(,$members) = $this->client->get_members($liste);
         $mails = array_map(create_function('$arr', 'return $arr[1];'), $members);
-        $subscribers = array_unique(array_merge($subscribers, $mails));
+        $subscribers = array_unique($mails);
 
         $not_in_group_x = array();
         $not_in_group_ext = array();
@@ -219,7 +219,7 @@ class XnetListsModule extends ListsModule
         $not_in_list = array();
 
         while ($tmp = $ann->next()) {
-            if (!in_array($tmp['email'], $subscribers)) {
+            if (!in_array(strtolower($tmp['email']), $subscribers)) {
                 $not_in_list[] = $tmp;
             }
         }
@@ -279,12 +279,25 @@ class XnetListsModule extends ListsModule
             pl_redirect('alias/admin/'.$lfull);
         }
 
+        global $globals;
         $res = XDB::iterator(
-                "SELECT  redirect
+                "SELECT  redirect,
+                         IF(u.nom IS NOT NULL, IF(u.nom_usage<>'', u.nom_usage, u.nom), m.nom) AS nom,
+                         IF(u.prenom IS NOT NULL, u.prenom, m.prenom) AS prenom,
+                         IF(u.promo IS NOT NULL, u.promo, 'extérieur') AS promo,
+                         IF(m2.perms, m2.perms = 'admin', m.perms = 'admin') AS admin,
+                         a.alias
                    FROM  x4dat.virtual_redirect AS vr
              INNER JOIN  x4dat.virtual          AS v  USING(vid)
+              LEFT JOIN  x4dat.aliases          AS a  ON(vr.redirect = CONCAT(a.alias, CONCAT('@', {?}))
+                                                        OR vr.redirect = CONCAT(a.alias, CONCAT('@', {?})))
+              LEFT JOIN  x4dat.auth_user_md5    AS u  ON(a.id = u.user_id)
+              LEFT JOIN  groupex.membres        AS m2 ON(u.user_id = m2.uid AND m2.asso_id = {?})
+              LEFT JOIN  groupex.membres        AS m  ON(m.email = vr.redirect AND m.asso_id = {?})
                   WHERE  v.alias={?}
-               ORDER BY  redirect", $lfull);
+               ORDER BY  redirect",
+               $globals->mail->domain, $globals->mail->domain2,
+               $globals->asso('id'), $globals->asso('id'), $lfull);
         $page->assign('mem', $res);
     }