Fix xnet aliases deletion
[platal.git] / modules / xnetlists.php
index 560fccd..db9710b 100644 (file)
@@ -1,6 +1,6 @@
 <?php
 /***************************************************************************
- *  Copyright (C) 2003-2006 Polytechnique.org                              *
+ *  Copyright (C) 2003-2007 Polytechnique.org                              *
  *  http://opensource.polytechnique.org/                                   *
  *                                                                         *
  *  This program is free software; you can redistribute it and/or modify   *
@@ -28,10 +28,11 @@ class XnetListsModule extends ListsModule
     function handlers()
     {
         return array(
-            '%grp/lists'           => $this->make_hook('lists',     AUTH_MDP),
-            '%grp/lists/create'    => $this->make_hook('create',    AUTH_MDP),
+            '%grp/lists'           => $this->make_hook('lists',     AUTH_MDP, 'groupmember'),
+            '%grp/lists/create'    => $this->make_hook('create',    AUTH_MDP, 'groupmember'),
 
             '%grp/lists/members'   => $this->make_hook('members',   AUTH_COOKIE),
+            '%grp/lists/annu'      => $this->make_hook('annu',      AUTH_COOKIE),
             '%grp/lists/archives'  => $this->make_hook('archives',  AUTH_COOKIE),
 
             '%grp/lists/moderate'  => $this->make_hook('moderate',  AUTH_MDP),
@@ -43,8 +44,8 @@ class XnetListsModule extends ListsModule
             '%grp/lists/check'     => $this->make_hook('check',     AUTH_MDP),
             '%grp/lists/sync'      => $this->make_hook('sync',      AUTH_MDP),
 
-            '%grp/alias/admin'     => $this->make_hook('aadmin',    AUTH_MDP),
-            '%grp/alias/create'    => $this->make_hook('acreate',   AUTH_MDP),
+            '%grp/alias/admin'     => $this->make_hook('aadmin',    AUTH_MDP, 'groupadmin'),
+            '%grp/alias/create'    => $this->make_hook('acreate',   AUTH_MDP, 'groupadmin'),
 
             /* hack: lists uses that */
             'profile' => $this->make_hook('profile', AUTH_PUBLIC),
@@ -74,8 +75,7 @@ class XnetListsModule extends ListsModule
             return PL_NOT_FOUND;
         }
         $this->prepare_client($page);
-
-        new_group_page('xnetlists/index.tpl');
+        $page->changeTpl('xnetlists/index.tpl');
 
         if (Get::has('del')) {
             $this->client->unsubscribe(Get::v('del'));
@@ -91,11 +91,11 @@ class XnetListsModule extends ListsModule
             // prevent group admin from erasing aliases from other groups
             $alias = substr($alias, 0, strpos($alias, '@')).'@'.$globals->asso('mail_domain');
             XDB::query(
-                    'DELETE FROM  x4dat.virtual_redirect, x4dat.virtual
+                    'DELETE FROM  r, v
                            USING  x4dat.virtual AS v
-                       LEFT JOIN  x4dat.virtual_redirect USING(vid)
+                       LEFT JOIN  x4dat.virtual_redirect AS r USING(vid)
                            WHERE  v.alias={?}', $alias);
-            $page->trig(Post::v('del_alias')." supprimé !");
+            $page->trig(Post::v('del_alias')." supprimé !");
         }
 
         $listes = $this->client->get_lists();
@@ -120,23 +120,21 @@ class XnetListsModule extends ListsModule
             return PL_NOT_FOUND;
         }
         $this->prepare_client($page);
-
         $page->changeTpl('xnetlists/create.tpl');
-        $page->assign('force_list_super', may_update());
 
         if (!Post::has('submit')) {
             return;
         }
 
         if (!Post::has('liste')) {
-            $page->trig('champs «addresse souhaitée» vide');
+            $page->trig('champs Â«addresse souhaitée» vide');
             return;
         }
 
-        $liste = Post::v('liste');
+        $liste = strtolower(Post::v('liste'));
 
         if (!preg_match("/^[a-zA-Z0-9\-]*$/", $liste)) {
-            $page->trig('le nom de la liste ne doit contenir que des lettres, chiffres et tirets');
+            $page->trig('le nom de la liste ne doit contenir que des lettres non accentuées, chiffres et tirets');
             return;
         }
 
@@ -145,7 +143,7 @@ class XnetListsModule extends ListsModule
         $n   = $res->fetchOneCell();
 
         if ($n) {
-            $page->trig('cet alias est déjà pris');
+            $page->trig('cet alias est déjà pris');
             return;
         }
         if (!Post::v('desc')) {
@@ -162,7 +160,7 @@ class XnetListsModule extends ListsModule
         $red = $dom.'_'.$liste;
 
         if (!$ret) {
-            $page->kill("Un problème est survenu, contacter "
+            $page->kill("Un problème est survenu, contacter "
                         ."<a href='mailto:support@m4x.org'>support@m4x.org</a>");
             return;
         }
@@ -198,7 +196,6 @@ class XnetListsModule extends ListsModule
             return PL_NOT_FOUND;
         }
         $this->prepare_client($page);
-
         $page->changeTpl('xnetlists/sync.tpl');
 
         if (Env::has('add')) {
@@ -215,7 +212,7 @@ class XnetListsModule extends ListsModule
         $ann = XDB::iterator(
                   "SELECT  if (m.origine='X',if (u.nom_usage<>'', u.nom_usage, u.nom) ,m.nom) AS nom,
                            if (m.origine='X',u.prenom,m.prenom) AS prenom,
-                           if (m.origine='X',u.promo,'extérieur') AS promo,
+                           if (m.origine='X',u.promo,'extérieur') AS promo,
                            if (m.origine='X',CONCAT(a.alias, '@polytechnique.org'),m.email) AS email,
                            if (m.origine='X',FIND_IN_SET('femme', u.flags),0) AS femme,
                            m.perms='admin' AS admin,
@@ -244,8 +241,7 @@ class XnetListsModule extends ListsModule
         if (!$globals->asso('mail_domain') || is_null($lfull)) {
             return PL_NOT_FOUND;
         }
-
-        new_groupadmin_page('xnetlists/alias-admin.tpl');
+        $page->changeTpl('xnetlists/alias-admin.tpl');
 
         if (Env::has('add_member')) {
             $add = Env::v('add_member');
@@ -268,7 +264,7 @@ class XnetListsModule extends ListsModule
                               SELECT  vid, {?}
                                 FROM  x4dat.virtual
                                WHERE  alias={?}", "$alias@m4x.org", $lfull);
-                   $page->trig("$alias@m4x.org ajouté");
+                   $page->trig("$alias@m4x.org ajouté");
                 } else {
                     $page->trig("$mbox@polytechnique.org n'existe pas.");
                 }
@@ -278,7 +274,7 @@ class XnetListsModule extends ListsModule
                               SELECT  vid,{?}
                                 FROM  x4dat.virtual
                                WHERE  alias={?}", "$mbox@$dom", $lfull);
-                $page->trig("$mbox@$dom ajouté");
+                $page->trig("$mbox@$dom ajouté");
             }
         }
 
@@ -296,13 +292,13 @@ class XnetListsModule extends ListsModule
                 "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(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.aliases          AS a  ON(vr.redirect = CONCAT(a.alias, '@', {?})
+                                                        OR vr.redirect = CONCAT(a.alias, '@', {?}))
               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 = {?})
@@ -320,14 +316,14 @@ class XnetListsModule extends ListsModule
         if (!$globals->asso('mail_domain')) {
             return PL_NOT_FOUND;
         }
-        new_groupadmin_page('xnetlists/alias-create.tpl');
+        $page->changeTpl('xnetlists/alias-create.tpl');
 
         if (!Post::has('submit')) {
             return;
         }
 
         if (!Post::has('liste')) {
-            $page->trig('champs «addresse souhaitée» vide');
+            $page->trig('champs Â«addresse souhaitée» vide');
             return;
         }
         $liste = Post::v('liste');
@@ -341,7 +337,7 @@ class XnetListsModule extends ListsModule
         $res = XDB::query('SELECT COUNT(*) FROM x4dat.virtual WHERE alias={?}', $new);
         $n   = $res->fetchOneCell();
         if ($n) {
-            $page->trig('cet alias est déjà pris');
+            $page->trig('cet alias est déjà pris');
             return;
         }
 
@@ -356,4 +352,5 @@ class XnetListsModule extends ListsModule
     }
 }
 
+// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
 ?>