[platal.git] / modules / axletter.php

<?php
/***************************************************************************
 *  Copyright (C) 2003-2008 Polytechnique.org                              *
 *  http://opensource.polytechnique.org/                                   *
 *                                                                         *
 *  This program is free software; you can redistribute it and/or modify   *
 *  it under the terms of the GNU General Public License as published by   *
 *  the Free Software Foundation; either version 2 of the License, or      *
 *  (at your option) any later version.                                    *
 *                                                                         *
 *  This program is distributed in the hope that it will be useful,        *
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of         *
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          *
 *  GNU General Public License for more details.                           *
 *                                                                         *
 *  You should have received a copy of the GNU General Public License      *
 *  along with this program; if not, write to the Free Software            *
 *  Foundation, Inc.,                                                      *
 *  59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                *
 ***************************************************************************/

class AXLetterModule extends PLModule
{
    function handlers()
    {
        return array(
            'ax'             => $this->make_hook('index',        AUTH_COOKIE),
            'ax/out'         => $this->make_hook('out',    AUTH_PUBLIC),
            'ax/show'        => $this->make_hook('show',   AUTH_COOKIE),
            'ax/edit'        => $this->make_hook('submit', AUTH_MDP),
            'ax/edit/cancel' => $this->make_hook('cancel', AUTH_MDP),
            'ax/edit/valid'  => $this->make_hook('valid',  AUTH_MDP),
            'admin/axletter' => $this->make_hook('admin', AUTH_MDP, 'admin'),
        );
    }

    function handler_out(&$page, $hash = null)
    {
        if (!$hash) {
            if (!S::logged()) {
                return PL_DO_AUTH;
            } else {
                return $this->handler_index($page, 'out');
            }
        }
        require_once dirname(__FILE__) . '/axletter/axletter.inc.php';
        $page->changeTpl('axletter/unsubscribe.tpl');
        $page->assign('success', AXLetter::unsubscribe($hash, true));
    }

    function handler_index(&$page, $action = null)
    {
        require_once dirname(__FILE__) . '/axletter/axletter.inc.php';

        $page->changeTpl('axletter/index.tpl');
        $page->assign('xorg_title','Polytechnique.org - Envois de l\'AX');

        switch ($action) {
          case 'in':  AXLetter::subscribe(); break;
          case 'out': AXLetter::unsubscribe(); break;
        }

        $perm = AXLetter::hasPerms();
        if ($perm) {
            $res = XDB::query("SELECT * FROM axletter_ins");
            $page->assign('count', $res->numRows());
            $page->assign('new', AXLetter::awaiting());
        }
        $page->assign('axs', AXLetter::subscriptionState());
        $page->assign('ax_list', AXLetter::listSent());
        $page->assign('ax_rights', $perm);
    }

    function handler_submit(&$page, $action = null)
    {
        require_once dirname(__FILE__) . '/axletter/axletter.inc.php';
        if (!AXLetter::hasPerms()) {
            return PL_FORBIDDEN;
        }

        $page->changeTpl('axletter/edit.tpl');

        $saved     = Post::i('saved');
        $new       = false;
        $id        = Post::i('id');
        $shortname = trim(Post::v('shortname'));
        $subject   = trim(Post::v('subject'));
        $title     = trim(Post::v('title'));
        $body      = rtrim(Post::v('body'));
        $signature = trim(Post::v('signature'));
        $promo_min = Post::i('promo_min');
        $promo_max = Post::i('promo_max');
        $echeance  = Post::has('echeance_date') ? Post::v('echeance_date') . ' ' . Post::v('echeance_time')
                                                : Post::v('echeance');
        $echeance_date = Post::v('echeance_date');
        $echeance_time = Post::v('echeance_time');

        if (!$id) {
            $res = XDB::query("SELECT * FROM axletter WHERE FIND_IN_SET('new', bits)");
            if ($res->numRows()) {
                extract($res->fetchOneAssoc(), EXTR_OVERWRITE);
                $saved = true;
            } else  {
                XDB::execute("INSERT INTO axletter SET id = NULL");
                $id  = XDB::insertId();
            }
            if (!$echeance || $echeance == '0000-00-00 00:00:00') {
                $saved = false;
                $new   = true;
            }
        } elseif (Post::has('valid')) {
            if (!$subject && $title) {
                $subject = $title;
            }
            if (!$title && $subject) {
                $title = $subject;
            }
            if (!$subject || !$title || !$body) {
                $page->trig("L'article doit avoir un sujet et un contenu");
                Post::kill('valid');
            }
            if (($promo_min > $promo_max && $promo_max != 0)||
                ($promo_min != 0 && ($promo_min <= 1900 || $promo_min >= 2020)) ||
                ($promo_max != 0 && ($promo_max <= 1900 || $promo_max >= 2020)))
            {
                $page->trig("L'intervalle de promotions n'est pas valide");
                Post::kill('valid');
            }
            if (empty($shortname)) {
                $page->trig("L'annonce doit avoir un nom raccourci pour simplifier la navigation dans les archives");
                Post::kill('valid');
            } elseif (!preg_match('/^[a-z][-a-z0-9]*[a-z0-9]$/', $shortname)) {
                $page->trig("Le nom raccourci n'est pas valide, il doit comporter au moins 2 caractères et n'être composé "
                          . "que de chiffres, lettres et tirets");
                Post::kill('valid');
            } elseif ($shortname != Post::v('old_shortname')) {
                $res = XDB::query("SELECT id FROM axletter WHERE  shortname = {?}", $shortname);
                if ($res->numRows() && $res->fetchOneCell() != $id) {
                    $page->trig("Le nom $shortname est déjà utilisé, merci d'en choisir un autre");
                    $shortname = Post::v('old_shortname');
                    if (empty($shortname)) {
                        Post::kill('valid');
                    }
                }
            }

            switch (@Post::v('valid')) {
              case 'Aperçu':
                require_once dirname(__FILE__) . '/axletter/axletter.inc.php';
                $al = new AXLetter(array($id, $shortname, $subject, $title, $body, $signature,
                                         $promo_min, $promo_max, $echeance, 0, 'new'));
                $al->toHtml($page, S::v('prenom'), S::v('nom'), S::v('femme'));
                break;

              case 'Confirmer':
                XDB::execute("REPLACE INTO  axletter
                                       SET  id = {?}, shortname = {?}, subject = {?}, title = {?}, body = {?},
                                            signature = {?}, promo_min = {?}, promo_max = {?}, echeance = {?}",
                             $id, $shortname, $subject, $title, $body, $signature, $promo_min, $promo_max, $echeance);
                if (!$saved) {
                    global $globals;
                    $mailer = new PlMailer();
                    $mailer->setFrom("support@" . $globals->mail->domain);
                    $mailer->setSubject("Un nouveau projet de mail de l'AX vient d'être proposé");
                    $mailer->setTxtBody("Un nouveau mail vient d'être rédigé en prévision d'un envoi prochain. Vous pouvez "
                                      . "le modifier jusqu'à ce qu'il soit verrouillé pour l'envoi\n\n"
                                      . "Le sujet du mail : $subject\n"
                                      . "L'échéance d'envoi est fixée à $echeance.\n"
                                      . "Le mail pourra néanmoins partir avant cette échéance si un administrateur de "
                                      . "Polytechnique.org le valide.\n\n"
                                      . "Pour modifier, valider ou annuler le mail :\n"
                                      . "https://www.polytechnique.org/ax/edit\n"
                                      . "-- \n"
                                      . "Association Polytechnique.org\n");
                    $res = XDB::iterRow("SELECT IF(u.nom_usage != '', u.nom_usage, u.nom) AS nom,
                                                u.prenom, a.alias AS bestalias
                                           FROM axletter_rights AS ar
                                     INNER JOIN auth_user_md5   AS u USING(user_id)
                                     INNER JOIN aliases         AS a ON (u.user_id = a.id
                                     AND FIND_IN_SET('bestalias', a.flags))");
                    while (list($nom, $prenom, $alias) = $res->next()) {
                        $mailer->addTo("$nom $prenom <$alias@{$globals->mail->domain}>");
                    }
                    $mailer->send();
                }
                $saved = true;
                $echeance_date = null;
                $echeance_time = null;
                pl_redirect('ax');
                break;
            }
        }
        $page->assign('id', $id);
        $page->assign('shortname', $shortname);
        $page->assign('subject', $subject);
        $page->assign('title', $title);
        $page->assign('body', $body);
        $page->assign('signature', $signature);
        $page->assign('promo_min', $promo_min);
        $page->assign('promo_max', $promo_max);
        $page->assign('echeance', $echeance);
        $page->assign('echeance_date', $echeance_date);
        $page->assign('echeance_time', $echeance_time);
        $page->assign('saved', $saved);
        $page->assign('new', $new);
        $page->assign('is_xorg', S::has_perms());

        if (!$saved) {
            $select = '';
            for ($i = 0 ; $i < 24 ; $i++) {
                $stamp = sprintf('%02d:00:00', $i);
                if ($stamp == $echeance_time) {
                    $sel = ' selected="selected"';
                } else {
                    $sel = '';
                }
                $select .= "<option value=\"$stamp\"$sel>{$i}h</option>\n";
            }
            $page->assign('echeance_time', $select);
        }
    }

    function handler_cancel(&$page, $force = null)
    {
        require_once dirname(__FILE__) . '/axletter/axletter.inc.php';
        if (!AXLetter::hasPerms()) {
            return PL_FORBIDDEN;
        }

        $url = parse_url($_SERVER['HTTP_REFERER']);
        if ($force != 'force' && trim($url['path'], '/') != 'ax/edit') {
            return PL_FORBIDDEN;
        }

        $al = AXLetter::awaiting();
        if (!$alg) {
            $page->kill("Aucune lettre en attente");
            return;
        }
        if (!$al->invalid()) {
            $page->kill("Une erreur est survenue lors de l'annulation de l'envoi");
            return;
        }

        $page->kill("L'envoi de l'annonce {$al->title()} est annulé");
    }

    function handler_valid(&$page, $force = null)
    {
        require_once dirname(__FILE__) . '/axletter/axletter.inc.php';
        if (!AXLetter::hasPerms()) {
            return PL_FORBIDDEN;
        }

        $url = parse_url($_SERVER['HTTP_REFERER']);
        if ($force != 'force' && trim($url['path'], '/') != 'ax/edit') {
            return PL_FORBIDDEN;
        }

        $al = AXLetter::awaiting();
        if (!$al) {
            $page->kill("Aucune lettre en attente");
            return;
        }
        if (!$al->valid()) {
            $page->kill("Une erreur est survenue lors de la validation de l'envoi");
            return;
        }

        $page->kill("L'envoi de l'annonce aura lieu dans l'heure qui vient.");
    }

    function handler_show(&$page, $nid = 'last')
    {
        require_once dirname(__FILE__) . '/axletter/axletter.inc.php';
        $page->changeTpl('axletter/show.tpl');

        $nl  = new AXLetter($nid);
        if (Get::has('text')) {
            $nl->toText($page, S::v('prenom'), S::v('nom'), S::v('femme'));
        } else {
            $nl->toHtml($page, S::v('prenom'), S::v('nom'), S::v('femme'));
        }
        if (Post::has('send')) {
            $nl->sendTo(S::v('prenom'), S::v('nom'),
                        S::v('bestalias'), S::v('femme'),
                        S::v('mail_fmt') != 'texte');
        }
    }

    function handler_admin(&$page, $action = null, $uid = null)
    {
        require_once dirname(__FILE__) . '/axletter/axletter.inc.php';
        if (Post::has('action')) {
            $action = Post::v('action');
            $uid    = Post::v('uid');
        }
        if ($uid) {
            $uids   = preg_split('/ *[,;\: ] */', $uid);
            foreach ($uids as $uid) {
                switch ($action) {
                  case 'add':
                    $res = AXLetter::grantPerms($uid);
                    break;
                  case 'del';
                    $res = AXLetter::revokePerms($uid);
                    break;
                }
                if (!$res) {
                    $page->trig("Personne ne oorrespond à l'identifiant '$uid'");
                }
            }
        }

        $page->changeTpl('axletter/admin.tpl');
        $res = XDB::iterator("SELECT IF(u.nom_usage != '', u.nom_usage, u.nom) AS nom,
                                     u.prenom, u.promo, a.alias AS forlife
                                FROM axletter_rights AS ar
                          INNER JOIN auth_user_md5   AS u USING(user_id)
                          INNER JOIN aliases         AS a ON (u.user_id = a.id AND a.type = 'a_vie')");
        $page->assign('admins', $res);

        $importer = new CSVImporter('axletter_ins');
        $importer->registerFunction('user_id', 'email vers Id X.org', array($this, 'idFromMail'));
        $importer->forceValue('hash', array($this, 'createHash'));
        $importer->apply($page, "admin/axletter", array('user_id', 'email', 'prenom', 'nom', 'promo', 'flag', 'hash'));
    }

    function idFromMail($line, $key)
    {
        static $field;
        global $globals;
        if (!isset($field)) {
            $field = array('email', 'mail', 'login', 'bestalias', 'forlife', 'flag');
            foreach ($field as $fld) {
                if (isset($line[$fld])) {
                    $field = $fld;
                    break;
                }
            }
        }
        $email = $line[$field];
        if (strpos($email, '@') === false) {
            $user  = $email;
            $domain = $globals->mail->domain2;
        } else {
            list($user, $domain) = explode('@', $email);
        }
        if ($domain != $globals->mail->domain && $domain != $globals->mail->domain2
                && $domain != $globals->mail->alias_dom && $domain != $globals->mail->alias_dom2) {
            $res = XDB::query("SELECT uid FROM emails WHERE email = {?}", $email);
            if ($res->numRows() == 1) {
                return $res->fetchOneCell();
            }
            return '0';
        }
        list($user) = explode('+', $user);
        list($user) = explode('_', $user);
        if ($domain == $globals->mail->alias_dom || $domain == $globals->mail->alias_dom2) {
            $res = XDB::query("SELECT a.id
                                 FROM virtual          AS v
                           INNER JOIN virtual_redirect AS r USING(vid)
                           INNER JOIN aliases          AS a ON (a.type = 'a_vie'
                                                            AND r.redirect = CONCAT(a.alias, '@{$globals->mail->domain2}'))
                                WHERE v.alias = CONCAT({?}, '@{$globals->mail->alias_dom}')", $user);
            $id = $res->fetchOneCell();
            return $id ? $id : '0';
        }
        $res = XDB::query("SELECT id FROM aliases WHERE alias = {?}", $user);
        $id = $res->fetchOneCell();
        return $id ? $id : '0';
    }

    function createHash($line, $key)
    {
        $hash = implode(time(), $line) . rand();
        $hash = md5($hash);
        return $hash;
    }
}

// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
?>
Commit	Line	Data
8da0d3c1	1	<?php
8da0d3c1	2	/***************************************************************************
179afa7f	3	* Copyright (C) 2003-2008 Polytechnique.org *
8da0d3c1	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
	22	class AXLetterModule extends PLModule
	23	{
	24	function handlers()
	25	{
	26	return array(
	27	'ax' => $this->make_hook('index', AUTH_COOKIE),
a0f05027	28	'ax/out' => $this->make_hook('out', AUTH_PUBLIC),
8da0d3c1	29	'ax/show' => $this->make_hook('show', AUTH_COOKIE),
	30	'ax/edit' => $this->make_hook('submit', AUTH_MDP),
	31	'ax/edit/cancel' => $this->make_hook('cancel', AUTH_MDP),
	32	'ax/edit/valid' => $this->make_hook('valid', AUTH_MDP),
0d75939a	33	'admin/axletter' => $this->make_hook('admin', AUTH_MDP, 'admin'),
8da0d3c1	34	);
	35	}
	36
030038cd	37	function handler_out(&$page, $hash = null)
a0f05027	38	{
	39	if (!$hash) {
	40	if (!S::logged()) {
	41	return PL_DO_AUTH;
	42	} else {
	43	return $this->handler_index($page, 'out');
	44	}
	45	}
	46	require_once dirname(__FILE__) . '/axletter/axletter.inc.php';
	47	$page->changeTpl('axletter/unsubscribe.tpl');
	48	$page->assign('success', AXLetter::unsubscribe($hash, true));
	49	}
	50
	51	function handler_index(&$page, $action = null)
8da0d3c1	52	{
	53	require_once dirname(__FILE__) . '/axletter/axletter.inc.php';
	54
	55	$page->changeTpl('axletter/index.tpl');
	56	$page->assign('xorg_title','Polytechnique.org - Envois de l\'AX');
	57
	58	switch ($action) {
8da0d3c1	59	case 'in': AXLetter::subscribe(); break;
a0f05027	60	case 'out': AXLetter::unsubscribe(); break;
8da0d3c1	61	}
	62
	63	$perm = AXLetter::hasPerms();
	64	if ($perm) {
9b242f17	65	$res = XDB::query("SELECT * FROM axletter_ins");
9b242f17	66	$page->assign('count', $res->numRows());
a0f05027	67	$page->assign('new', AXLetter::awaiting());
8da0d3c1	68	}
	69	$page->assign('axs', AXLetter::subscriptionState());
	70	$page->assign('ax_list', AXLetter::listSent());
	71	$page->assign('ax_rights', $perm);
	72	}
	73
	74	function handler_submit(&$page, $action = null)
	75	{
	76	require_once dirname(__FILE__) . '/axletter/axletter.inc.php';
	77	if (!AXLetter::hasPerms()) {
	78	return PL_FORBIDDEN;
	79	}
	80
	81	$page->changeTpl('axletter/edit.tpl');
	82
	83	$saved = Post::i('saved');
	84	$new = false;
	85	$id = Post::i('id');
	86	$shortname = trim(Post::v('shortname'));
	87	$subject = trim(Post::v('subject'));
	88	$title = trim(Post::v('title'));
	89	$body = rtrim(Post::v('body'));
	90	$signature = trim(Post::v('signature'));
	91	$promo_min = Post::i('promo_min');
	92	$promo_max = Post::i('promo_max');
	93	$echeance = Post::has('echeance_date') ? Post::v('echeance_date') . ' ' . Post::v('echeance_time')
	94	: Post::v('echeance');
	95	$echeance_date = Post::v('echeance_date');
	96	$echeance_time = Post::v('echeance_time');
	97
	98	if (!$id) {
	99	$res = XDB::query("SELECT * FROM axletter WHERE FIND_IN_SET('new', bits)");
	100	if ($res->numRows()) {
	101	extract($res->fetchOneAssoc(), EXTR_OVERWRITE);
	102	$saved = true;
	103	} else {
	104	XDB::execute("INSERT INTO axletter SET id = NULL");
	105	$id = XDB::insertId();
	106	}
	107	if (!$echeance \|\| $echeance == '0000-00-00 00:00:00') {
	108	$saved = false;
	109	$new = true;
	110	}
	111	} elseif (Post::has('valid')) {
	112	if (!$subject && $title) {
	113	$subject = $title;
	114	}
	115	if (!$title && $subject) {
	116	$title = $subject;
	117	}
	118	if (!$subject \|\| !$title \|\| !$body) {
	119	$page->trig("L'article doit avoir un sujet et un contenu");
	120	Post::kill('valid');
	121	}
	122	if (($promo_min > $promo_max && $promo_max != 0)\|\|
	123	($promo_min != 0 && ($promo_min <= 1900 \|\| $promo_min >= 2020)) \|\|
	124	($promo_max != 0 && ($promo_max <= 1900 \|\| $promo_max >= 2020)))
	125	{
	126	$page->trig("L'intervalle de promotions n'est pas valide");
	127	Post::kill('valid');
	128	}
	129	if (empty($shortname)) {
	130	$page->trig("L'annonce doit avoir un nom raccourci pour simplifier la navigation dans les archives");
	131	Post::kill('valid');
132	} elseif (!preg_match('/^[a-z][-a-z0-9]*[a-z0-9]$/', $shortname)) {
a7de4ef7	133	$page->trig("Le nom raccourci n'est pas valide, il doit comporter au moins 2 caractères et n'être composé "
8da0d3c1	134	. "que de chiffres, lettres et tirets");
	135	Post::kill('valid');
	136	} elseif ($shortname != Post::v('old_shortname')) {
	137	$res = XDB::query("SELECT id FROM axletter WHERE shortname = {?}", $shortname);
	138	if ($res->numRows() && $res->fetchOneCell() != $id) {
a7de4ef7	139	$page->trig("Le nom $shortname est déjà utilisé, merci d'en choisir un autre");
8da0d3c1	140	$shortname = Post::v('old_shortname');
	141	if (empty($shortname)) {
	142	Post::kill('valid');
	143	}
	144	}
	145	}
	146
	147	switch (@Post::v('valid')) {
a7de4ef7	148	case 'Aperçu':
8da0d3c1	149	require_once dirname(__FILE__) . '/axletter/axletter.inc.php';
	150	$al = new AXLetter(array($id, $shortname, $subject, $title, $body, $signature,
	151	$promo_min, $promo_max, $echeance, 0, 'new'));
	152	$al->toHtml($page, S::v('prenom'), S::v('nom'), S::v('femme'));
	153	break;
	154
	155	case 'Confirmer':
	156	XDB::execute("REPLACE INTO axletter
	157	SET id = {?}, shortname = {?}, subject = {?}, title = {?}, body = {?},
	158	signature = {?}, promo_min = {?}, promo_max = {?}, echeance = {?}",
	159	$id, $shortname, $subject, $title, $body, $signature, $promo_min, $promo_max, $echeance);
9b242f17	160	if (!$saved) {
115c90db	161	global $globals;
9b242f17	162	$mailer = new PlMailer();
1d55fe45	163	$mailer->setFrom("support@" . $globals->mail->domain);
9b242f17	164	$mailer->setSubject("Un nouveau projet de mail de l'AX vient d'être proposé");
	165	$mailer->setTxtBody("Un nouveau mail vient d'être rédigé en prévision d'un envoi prochain. Vous pouvez "
	166	. "le modifier jusqu'à ce qu'il soit verrouillé pour l'envoi\n\n"
	167	. "Le sujet du mail : $subject\n"
	168	. "L'échéance d'envoi est fixée à $echeance.\n"
	169	. "Le mail pourra néanmoins partir avant cette échéance si un administrateur de "
	170	. "Polytechnique.org le valide.\n\n"
	171	. "Pour modifier, valider ou annuler le mail :\n"
	172	. "https://www.polytechnique.org/ax/edit\n"
	173	. "-- \n"
	174	. "Association Polytechnique.org\n");
	175	$res = XDB::iterRow("SELECT IF(u.nom_usage != '', u.nom_usage, u.nom) AS nom,
	176	u.prenom, a.alias AS bestalias
	177	FROM axletter_rights AS ar
	178	INNER JOIN auth_user_md5 AS u USING(user_id)
	179	INNER JOIN aliases AS a ON (u.user_id = a.id
	180	AND FIND_IN_SET('bestalias', a.flags))");
9b242f17	181	while (list($nom, $prenom, $alias) = $res->next()) {
	182	$mailer->addTo("$nom $prenom <$alias@{$globals->mail->domain}>");
	183	}
	184	$mailer->send();
	185	}
8da0d3c1	186	$saved = true;
	187	$echeance_date = null;
	188	$echeance_time = null;
	189	pl_redirect('ax');
	190	break;
	191	}
	192	}
	193	$page->assign('id', $id);
	194	$page->assign('shortname', $shortname);
	195	$page->assign('subject', $subject);
	196	$page->assign('title', $title);
	197	$page->assign('body', $body);
	198	$page->assign('signature', $signature);
	199	$page->assign('promo_min', $promo_min);
	200	$page->assign('promo_max', $promo_max);
	201	$page->assign('echeance', $echeance);
	202	$page->assign('echeance_date', $echeance_date);
	203	$page->assign('echeance_time', $echeance_time);
	204	$page->assign('saved', $saved);
	205	$page->assign('new', $new);
	206	$page->assign('is_xorg', S::has_perms());
	207
	208	if (!$saved) {
	209	$select = '';
8da0d3c1	210	for ($i = 0 ; $i < 24 ; $i++) {
	211	$stamp = sprintf('%02d:00:00', $i);
	212	if ($stamp == $echeance_time) {
	213	$sel = ' selected="selected"';
	214	} else {
	215	$sel = '';
	216	}
	217	$select .= "<option value=\"$stamp\"$sel>{$i}h</option>\n";
	218	}
	219	$page->assign('echeance_time', $select);
eaf30d86	220	}
8da0d3c1	221	}
	222
	223	function handler_cancel(&$page, $force = null)
	224	{
	225	require_once dirname(__FILE__) . '/axletter/axletter.inc.php';
	226	if (!AXLetter::hasPerms()) {
	227	return PL_FORBIDDEN;
	228	}
	229
	230	$url = parse_url($_SERVER['HTTP_REFERER']);
	231	if ($force != 'force' && trim($url['path'], '/') != 'ax/edit') {
	232	return PL_FORBIDDEN;
	233	}
	234
a0f05027	235	$al = AXLetter::awaiting();
a0f05027	236	if (!$alg) {
8da0d3c1	237	$page->kill("Aucune lettre en attente");
	238	return;
	239	}
8da0d3c1	240	if (!$al->invalid()) {
	241	$page->kill("Une erreur est survenue lors de l'annulation de l'envoi");
	242	return;
	243	}
	244
a7de4ef7	245	$page->kill("L'envoi de l'annonce {$al->title()} est annulé");
8da0d3c1	246	}
	247
	248	function handler_valid(&$page, $force = null)
	249	{
	250	require_once dirname(__FILE__) . '/axletter/axletter.inc.php';
	251	if (!AXLetter::hasPerms()) {
	252	return PL_FORBIDDEN;
	253	}
	254
	255	$url = parse_url($_SERVER['HTTP_REFERER']);
	256	if ($force != 'force' && trim($url['path'], '/') != 'ax/edit') {
	257	return PL_FORBIDDEN;
	258	}
	259
a0f05027	260	$al = AXLetter::awaiting();
a0f05027	261	if (!$al) {
8da0d3c1	262	$page->kill("Aucune lettre en attente");
	263	return;
	264	}
8da0d3c1	265	if (!$al->valid()) {
	266	$page->kill("Une erreur est survenue lors de la validation de l'envoi");
	267	return;
	268	}
	269
	270	$page->kill("L'envoi de l'annonce aura lieu dans l'heure qui vient.");
	271	}
	272
	273	function handler_show(&$page, $nid = 'last')
	274	{
	275	require_once dirname(__FILE__) . '/axletter/axletter.inc.php';
	276	$page->changeTpl('axletter/show.tpl');
	277
	278	$nl = new AXLetter($nid);
	279	if (Get::has('text')) {
	280	$nl->toText($page, S::v('prenom'), S::v('nom'), S::v('femme'));
	281	} else {
	282	$nl->toHtml($page, S::v('prenom'), S::v('nom'), S::v('femme'));
	283	}
	284	if (Post::has('send')) {
	285	$nl->sendTo(S::v('prenom'), S::v('nom'),
	286	S::v('bestalias'), S::v('femme'),
	287	S::v('mail_fmt') != 'texte');
	288	}
	289	}
0d75939a	290
	291	function handler_admin(&$page, $action = null, $uid = null)
	292	{
	293	require_once dirname(__FILE__) . '/axletter/axletter.inc.php';
	294	if (Post::has('action')) {
	295	$action = Post::v('action');
	296	$uid = Post::v('uid');
	297	}
	298	if ($uid) {
	299	$uids = preg_split('/ [,;\: ] /', $uid);
	300	foreach ($uids as $uid) {
	301	switch ($action) {
	302	case 'add':
	303	$res = AXLetter::grantPerms($uid);
	304	break;
	305	case 'del';
	306	$res = AXLetter::revokePerms($uid);
	307	break;
	308	}
	309	if (!$res) {
a7de4ef7	310	$page->trig("Personne ne oorrespond à l'identifiant '$uid'");
0d75939a	311	}
	312	}
	313	}
	314
	315	$page->changeTpl('axletter/admin.tpl');
	316	$res = XDB::iterator("SELECT IF(u.nom_usage != '', u.nom_usage, u.nom) AS nom,
	317	u.prenom, u.promo, a.alias AS forlife
	318	FROM axletter_rights AS ar
	319	INNER JOIN auth_user_md5 AS u USING(user_id)
	320	INNER JOIN aliases AS a ON (u.user_id = a.id AND a.type = 'a_vie')");
	321	$page->assign('admins', $res);
eaf30d86	322
0d75939a	323	$importer = new CSVImporter('axletter_ins');
	324	$importer->registerFunction('user_id', 'email vers Id X.org', array($this, 'idFromMail'));
	325	$importer->forceValue('hash', array($this, 'createHash'));
2f95cd8f	326	$importer->apply($page, "admin/axletter", array('user_id', 'email', 'prenom', 'nom', 'promo', 'flag', 'hash'));
0d75939a	327	}
	328
	329	function idFromMail($line, $key)
	330	{
	331	static $field;
cbce77b7	332	global $globals;
0d75939a	333	if (!isset($field)) {
	334	$field = array('email', 'mail', 'login', 'bestalias', 'forlife', 'flag');
	335	foreach ($field as $fld) {
	336	if (isset($line[$fld])) {
	337	$field = $fld;
	338	break;
	339	}
	340	}
	341	}
	342	$email = $line[$field];
	343	if (strpos($email, '@') === false) {
	344	$user = $email;
cbce77b7	345	$domain = $globals->mail->domain2;
0d75939a	346	} else {
eaf30d86	347	list($user, $domain) = explode('@', $email);
cbce77b7	348	}
cbce77b7	349	if ($domain != $globals->mail->domain && $domain != $globals->mail->domain2
0d75939a	350	&& $domain != $globals->mail->alias_dom && $domain != $globals->mail->alias_dom2) {
cbce77b7	351	$res = XDB::query("SELECT uid FROM emails WHERE email = {?}", $email);
	352	if ($res->numRows() == 1) {
	353	return $res->fetchOneCell();
0d75939a	354	}
cbce77b7	355	return '0';
	356	}
	357	list($user) = explode('+', $user);
	358	list($user) = explode('_', $user);
	359	if ($domain == $globals->mail->alias_dom \|\| $domain == $globals->mail->alias_dom2) {
	360	$res = XDB::query("SELECT a.id
	361	FROM virtual AS v
	362	INNER JOIN virtual_redirect AS r USING(vid)
	363	INNER JOIN aliases AS a ON (a.type = 'a_vie'
	364	AND r.redirect = CONCAT(a.alias, '@{$globals->mail->domain2}'))
	365	WHERE v.alias = CONCAT({?}, '@{$globals->mail->alias_dom}')", $user);
	366	$id = $res->fetchOneCell();
	367	return $id ? $id : '0';
0d75939a	368	}
	369	$res = XDB::query("SELECT id FROM aliases WHERE alias = {?}", $user);
	370	$id = $res->fetchOneCell();
	371	return $id ? $id : '0';
	372	}
	373
	374	function createHash($line, $key)
	375	{
5480a216	376	$hash = implode(time(), $line) . rand();
0d75939a	377	$hash = md5($hash);
	378	return $hash;
	379	}
8da0d3c1	380	}
8da0d3c1	381
a7de4ef7	382	// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
8da0d3c1	383	?>