[platal.git] / modules / newsletter.php

<?php
/***************************************************************************
 *  Copyright (C) 2003-2014 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 NewsletterModule extends PLModule
{
    function handlers()
    {
        return array(
            'nl'                           => $this->make_hook('nl',              AUTH_COOKIE, 'user'),
            'nl/show'                      => $this->make_hook('nl_show',         AUTH_COOKIE, 'user'),
            'nl/search'                    => $this->make_hook('nl_search',       AUTH_COOKIE, 'user'),
            'nl/submit'                    => $this->make_hook('nl_submit',       AUTH_PASSWD, 'user'),
            'nl/remaining'                 => $this->make_hook('nl_remaining',    AUTH_PASSWD, 'user'),
            'admin/nls'                    => $this->make_hook('admin_nl_groups', AUTH_PASSWD, 'admin'),
            'admin/newsletter'             => $this->make_hook('admin_nl',        AUTH_PASSWD, 'admin'),
            'admin/newsletter/categories'  => $this->make_hook('admin_nl_cat',    AUTH_PASSWD, 'admin'),
            'admin/newsletter/edit'        => $this->make_hook('admin_nl_edit',   AUTH_PASSWD, 'admin'),
            'admin/newsletter/edit/delete' => $this->make_hook('admin_nl_delete', AUTH_PASSWD, 'admin'),
            'stat/newsletter'              => $this->make_hook('stat_nl',         AUTH_PASSWD, 'admin')
            // Automatic mailing is disabled for X.org NL
//            'admin/newsletter/edit/cancel' => $this->make_hook('cancel', AUTH_PASSWD, 'admin'),
//            'admin/newsletter/edit/valid'  => $this->make_hook('valid',  AUTH_PASSWD, 'admin'),
        );
    }

    /** This function should return the adequate NewsLetter object for the current module.
     */
    protected function getNl()
    {
        require_once 'newsletter.inc.php';
        return NewsLetter::forGroup(NewsLetter::GROUP_XORG);
    }

    function handler_nl($page, $action = null, $hash = null, $issue_id = null)
    {
        $nl = $this->getNl();
        if (!$nl) {
            return PL_NOT_FOUND;
        }

        $hash = ($hash == 'nohash') ? null : $hash;
        switch ($action) {
          case 'out':
            $success = $nl->unsubscribe($issue_id, $hash, $hash != null);
            if (!is_null($hash)) {
                if ($success) {
                    $page->trigSuccess('La désinscription a été effectuée avec succès.');
                } else {
                    $page->trigError("La désinscription n'a été pas pu être effectuée.");
                }
                return;
            }
            break;
          case 'in':  $nl->subscribe(); break;
          default: ;
        }

        $page->changeTpl('newsletter/index.tpl');
        $page->setTitle('Lettres mensuelles');

        $page->assign_by_ref('nl', $nl);
        $page->assign('nls', $nl->subscriptionState());
        $page->assign('nl_list', $nl->listSentIssues(true));
    }

    function handler_nl_show($page, $nid = 'last')
    {
        $page->changeTpl('newsletter/show.tpl');
        $nl = $this->getNl();
        if (!$nl) {
            return PL_NOT_FOUND;
        }

        try {
            $issue = $nl->getIssue($nid);
            $user =& S::user();
            if (Get::has('text')) {
                $issue->toText($page, $user);
            } else {
                $issue->toHtml($page, $user);
            }
            if (Post::has('send')) {
                $issue->sendTo($user);
            }
        } catch (MailNotFound $e) {
            return PL_NOT_FOUND;
        }
    }

    function handler_nl_search($page)
    {
        S::assert_xsrf_token();
        $nl = $this->getNl();
        if (!$nl) {
            return PL_NOT_FOUND;
        }

        if (!Post::has('nl_search')) {
            pl_redirect($nl->prefix(true, false));
        }

        $nl_search = Post::t('nl_search');
        $nl_search_type = Post::t('nl_search_type');
        if (!$nl_search || !($nl_search_type > 0 && $nl_search_type < 10)) {
            $page->trigErrorRedirect('La recherche est vide ou erronée.', $nl->prefix());
        }

        $page->changeTpl('newsletter/search.tpl');
        $user = S::user();
        $fields = array(1 => 'all', 2 => 'all', 3 => 'title', 4 => 'body', 5 => 'append', 6 => 'all', 7 => 'title', 8 => 'head', 9 => 'signature');
        $res_articles = $res_issues = array();
        if ($nl_search_type < 6) {
            $res_articles = $nl->articleSearch($nl_search, $fields[$nl_search_type], $user);
        }
        if ($nl_search_type > 5 || $nl_search_type == 1) {
            $res_issues = $nl->issueSearch($nl_search, $fields[$nl_search_type], $user);
        }

        $articles_count = count($res_articles);
        $issues_count = count($res_issues);
        $results_count = $articles_count + $issues_count;
        if ($results_count > 200) {
            $page->trigError('Recherche trop générale.');
        } elseif ($results_count == 0) {
            $page->trigWarning('Aucun résultat pour cette recherche.');
        } else {
            $page->assign('res_articles', $res_articles);
            $page->assign('res_issues', $res_issues);
            $page->assign('articles_count', $articles_count);
            $page->assign('issues_count', $issues_count);
        }

        $page->assign_by_ref('nl', $nl);
        $page->assign('nl_search', $nl_search);
        $page->assign('nl_search_type', $nl_search_type);
        $page->assign('results_count', $results_count);
    }

    function handler_nl_submit($page)
    {
        $page->changeTpl('newsletter/submit.tpl');

        $nl = $this->getNl();
        if (!$nl) {
            return PL_NOT_FOUND;
        }

        $wp = new PlWikiPage('Xorg.LettreMensuelle');
        $wp->buildCache();

        if (Post::has('see') || (Post::has('valid') && (!trim(Post::v('title')) || !trim(Post::v('body'))))) {
            if (!Post::has('see')) {
                $page->trigError("L'article doit avoir un titre et un contenu");
            }
            $art = new NLArticle(Post::v('title'), Post::v('body'), Post::v('append'));
            $page->assign('art', $art);
        } elseif (Post::has('valid')) {
            $art = new NLReq(S::user(), Post::v('title'),
                             Post::v('body'), Post::v('append'));
            $art->submit();
            $page->assign('submited', true);
        }
        $page->addCssLink($nl->cssFile());
    }

    function handler_nl_remaining($page)
    {
        require_once 'newsletter.inc.php';

        pl_content_headers('text/html');
        $page->changeTpl('newsletter/remaining.tpl', NO_SKIN);

        $article = new NLArticle('', Post::t('body'), '');
        $rest = $article->remain();

        $page->assign('too_long', $rest['remaining_lines'] < 0);
        $page->assign('last_line', ($rest['remaining_lines'] == 0));
        $page->assign('remaining', ($rest['remaining_lines'] == 0) ? $rest['remaining_characters_for_last_line'] : $rest['remaining_lines']);
    }

    function handler_admin_nl($page, $new = false) {
        $page->changeTpl('newsletter/admin.tpl');
        $page->setTitle('Administration - Newsletter : liste');

        $nl = $this->getNl();
        if (!$nl) {
            return PL_NOT_FOUND;
        }

        if ($new == 'new') {
            // Logs NL creation.
            S::logger()->log('nl_issue_create', $nid);

            $id = $nl->createPending();
            pl_redirect($nl->adminPrefix(true, false) . '/edit/' . $id);
        }

        $page->assign_by_ref('nl', $nl);
        $page->assign('nl_list', $nl->listAllIssues());
    }

    function handler_admin_nl_groups($page, $sort = 'id', $order = 'ASC')
    {
        require_once 'newsletter.inc.php';

        static $titles = array(
            'id'         => 'Id',
            'group_name' => 'Groupe',
            'name'       => 'Titre',
            'criteria'   => 'Critères actifs'
        );
        static $next_orders = array(
            'ASC'  => 'DESC',
            'DESC' => 'ASC'
        );

        if (!array_key_exists($sort, $titles)) {
            $sort = 'id';
        }
        if (!in_array($order, array('ASC', 'DESC'))) {
            $order = 'ASC';
        }

        $page->changeTpl('newsletter/admin_all.tpl');
        $page->setTitle('Administration - Newsletters : Liste des Newsletters');
        $page->assign('nls', Newsletter::getAll($sort, $order));
        $page->assign('sort', $sort);
        $page->assign('order', $order);
        $page->assign('next_order', $next_orders[$order]);
        $page->assign('titles', $titles);
    }

    function handler_admin_nl_edit($page, $nid = 'last', $aid = null, $action = 'edit') {
        $page->changeTpl('newsletter/edit.tpl');
        $page->addCssLink('nl.Polytechnique.org.css');
        $page->setTitle('Administration - Newsletter : Édition');

        $nl = $this->getNl();
        if (!$nl) {
            return PL_NOT_FOUND;
        }

        try {
            $issue = $nl->getIssue($nid, false);
        } catch (MailNotFound $e) {
            return PL_NOT_FOUND;
        }

        $ufb = $nl->getSubscribersUFB();
        $ufb_keepenv = false;  // Will be set to True if there were invalid modification to the UFB.

        // Convert NLIssue error messages to human-readable errors
        $error_msgs = array(
            NLIssue::ERROR_INVALID_REPLY_TO => "L'adresse de réponse est invalide.",
            NLIssue::ERROR_INVALID_SHORTNAME => "Le nom court est invalide ou vide.",
            NLIssue::ERROR_INVALID_UFC => "Le filtre des destinataires est invalide.",
            NLIssue::ERROR_TOO_LONG_UFC => "Le nombre de matricules AX renseigné est trop élevé.",
            NLIssue::ERROR_SQL_SAVE => "Une erreur est survenue en tentant de sauvegarder la lettre, merci de réessayer.",
        );

        // Update the current issue
        if($aid == 'update' && Post::has('submit')) {

            // Save common fields
            $issue->title      = Post::s('title');
            $issue->title_mail = Post::s('title_mail');
            $issue->head       = Post::s('head');
            $issue->signature  = Post::s('signature');
            $issue->reply_to   = Post::s('reply_to');

            if ($issue->isEditable()) {
                // Date and shortname may only be modified for pending NLs, otherwise all links get broken.
                $issue->date = Post::s('date');
                $issue->shortname = strlen(Post::blank('shortname')) ? null : Post::s('shortname');
                $issue->sufb->updateFromEnv($ufb->getEnv());

                if ($nl->automaticMailingEnabled()) {
                    $issue->send_before = preg_replace('/^(\d\d\d\d)(\d\d)(\d\d)$/', '\1-\2-\3', Post::v('send_before_date')) . ' ' . Post::i('send_before_time_Hour') . ':00:00';
                }
            }
            $errors = $issue->save();
            if (count($errors)) {
                foreach ($errors as $error_code) {
                    $page->trigError($error_msgs[$error_code]);
                }
            }
        }

        // Delete an article
        if($action == 'delete') {
            $issue->delArticle($aid);
            pl_redirect($nl->adminPrefix(true, false) . "/edit/$nid");
        }

        // Save an article
        if(Post::v('save')) {
            $art  = new NLArticle(Post::v('title'), Post::v('body'), Post::v('append'),
                                  $aid, Post::v('cid'), Post::v('pos'));
            $issue->saveArticle($art);
            pl_redirect($nl->adminPrefix(true, false) . "/edit/$nid");
        }

        // Edit an article
        if ($action == 'edit' && $aid != 'update') {
            $eaid = $aid;
            if (Post::has('title')) {
                $art  = new NLArticle(Post::v('title'), Post::v('body'), Post::v('append'),
                                      $eaid, Post::v('cid'), Post::v('pos'));
            } else {
                $art = ($eaid == 'new') ? new NLArticle() : $issue->getArt($eaid);
            }
            if ($art && !$art->check()) {
                $page->trigError("Cet article est trop long.");
            }
            $page->assign('art', $art);
        }

        // Check blacklisted IPs
        if ($aid == 'blacklist_check') {
            global $globals;
            $ips_to_check = array();
            $blacklist_host_resolution_count = 0;

            foreach ($issue->arts as $key => $articles) {
                foreach ($articles as $article) {
                    $article_ips = $article->getLinkIps($blacklist_host_resolution_count);
                    if (!empty($article_ips)) {
                        $ips_to_check[$article->title()] = $article_ips;
                    }
                }
            }

            $page->assign('ips_to_check', $ips_to_check);
            if ($blacklist_host_resolution_count >= $globals->mail->blacklist_host_resolution_limit) {
                $page->trigError("Toutes les url et adresses emails de la lettre"
                                . " n'ont pas été prises en compte car la"
                                . " limite du nombre de résolutions DNS"
                                . " autorisée a été atteinte.");
            }
        }

        if ($issue->state == NLIssue::STATE_SENT) {
            $page->trigWarning("Cette lettre a déjà été envoyée ; il est recommandé de limiter les modifications au maximum (orthographe, adresses web et mail).");
        }

        $ufb->setEnv($issue->sufb->getEnv());
        $page->assign_by_ref('nl', $nl);
        $page->assign_by_ref('issue', $issue);
    }

    /** This handler will cancel the sending of the currently pending issue
     * It is disabled for X.org mailings.
     */
    function handler_admin_nl_cancel($page, $nid, $force = null)
    {
        $nl = $this->getNl();
        if (!$nl) {
            return PL_NOT_FOUND;
        }

        if (!$nl->mayEdit() || !S::has_xsrf_token()) {
            return PL_FORBIDDEN;
        }

        if (!$nid) {
            $page->kill("La lettre n'a pas été spécifiée");
        }

        $issue = $nl->getIssue($nid);
        if (!$issue) {
            $page->kill("La lettre {$nid} n'existe pas.");
        }
        if (!$issue->cancelMailing()) {
            $page->trigErrorRedirect("Une erreur est survenue lors de l'annulation de l'envoi.", $nl->adminPrefix());
        }

        // Logs NL cancelling.
        S::logger()->log('nl_mailing_cancel', $nid);

        $page->trigSuccessRedirect("L'envoi de l'annonce {$issue->title()} est annulé.", $nl->adminPrefix());
    }

    /** This handler will enable the sending of the currently pending issue
     * It is disabled for X.org mailings.
     */
    function handler_admin_nl_valid($page, $nid, $force = null)
    {
        $nl = $this->getNl();
        if (!$nl) {
            return PL_NOT_FOUND;
        }

        if (!$nl->mayEdit() || !S::has_xsrf_token()) {
            return PL_FORBIDDEN;
        }

        if (!$nid) {
            $page->kill("La lettre n'a pas été spécifiée.");
        }

        $issue = $nl->getIssue($nid);
        if (!$issue) {
            $page->kill("La lettre {$nid} n'existe pas.");
        }

        if ($issue->isEmpty()) {
            $page->trigErrorRedirect("La lettre étant vide, il n'est pas possible de l'envoyer.", $nl->adminPrefix());
        }

        if (!$issue->scheduleMailing()) {
            $page->trigErrorRedirect("Une erreur est survenue lors de la validation de l'envoi.", $nl->adminPrefix());
        }

        // Logs NL validation.
        S::logger()->log('nl_mailing_valid', $nid);

        $page->trigSuccessRedirect("L'envoi de la newsletter {$issue->title()} a été validé.", $nl->adminPrefix());
    }

    /** This handler will remove the given issue.
     */
    function handler_admin_nl_delete($page, $nid, $force = null)
    {
        $nl = $this->getNl();
        if (!$nl) {
            return PL_NOT_FOUND;
        }

        if (!$nl->mayEdit() || !S::has_xsrf_token()) {
            return PL_FORBIDDEN;
        }

        if (!$nid) {
            $page->kill("La lettre n'a pas été spécifiée.");
        }

        $issue = $nl->getIssue($nid);
        if (!$issue) {
            $page->kill("La lettre {$nid} n'existe pas");
        }
        if (!$issue->isEditable()) {
            $page->trigErrorRedirect("La lette a été envoyée ou est en cours d'envoi, elle ne peut être supprimée.", $nl->adminPrefix());
        }
        if (!$issue->delete()) {
            $page->trigErrorRedirect("Une erreur est survenue lors de la suppression de la lettre.", $nl->adminPrefix());
        }

        // Logs NL deletion.
        S::logger()->log('nl_issue_delete', $nid);

        $page->trigSuccessRedirect("La lettre a bien été supprimée.", $nl->adminPrefix());
    }

    function handler_admin_nl_cat($page, $action = 'list', $id = null) {
        $nl = $this->getNl();
        if (!$nl) {
            return PL_NOT_FOUND;
        }

        if (!$nl->mayEdit()) {
            return PL_FORBIDDEN;
        }

        $page->setTitle('Administration - Newsletter : Catégories');
        $page->assign('title', 'Gestion des catégories de la newsletter');
        $table_editor = new PLTableEditor($nl->adminPrefix() . '/categories', 'newsletter_cat','cid');
        $table_editor->describe('title','intitulé',true);
        $table_editor->describe('pos','position',true);
        if ($nl->group == Newsletter::GROUP_XORG) {
            $table_editor->add_option_table('newsletters', 'newsletters.id = t.nlid');
            $table_editor->add_option_field('newsletters.name', 'newsletter_name', 'Newsletter', null, 'nlid');
            $table_editor->describe('nlid', 'ID NL', true);
        } else {
            $table_editor->force_field_value('nlid', $nl->id);
            $table_editor->describe('nlid', 'nlid', false, false);
        }
        // Prevent deletion.
        $table_editor->on_delete(null, null);
        $table_editor->apply($page, $action, $id);
    }

    function handler_stat_nl($page)
    {
        $nl = $this->getNl();
        if (!$nl) {
            return PL_NOT_FOUND;
        }
        if (!$nl->mayEdit()) {
            return PL_FORBIDDEN;
        }

        $page->setTitle('Statistiques - Newsletter');
        $page->changeTpl('newsletter/statistics.tpl');

        $data = array();
        foreach (Profile::$cycles as $grade => $name) {
            $data[$name] = array();
            list($min, $max) = Profile::extremePromotions($grade);
            $bound = (((int)($min / 10)) + 1) * 10;
            while ($bound <= $max) {
                $data[$name][$min . ' - ' . $bound] = array(
                    'count'        => $nl->subscriberCount(null, null, $grade, $min, $bound),
                    'lost'         => $nl->subscriberCount(true, null, $grade, $min, $bound),
                    'count_female' => $nl->subscriberCount(null, User::GENDER_FEMALE, $grade, $min, $bound),
                    'lost_female'  => $nl->subscriberCount(true, User::GENDER_FEMALE, $grade, $min, $bound)
                );
                $min = $bound + 1;
                $bound += 10;
            }
            $bound -= 9;
            if ($bound <= $max) {
                $data[$name][$bound . ' - ' . $max] = array(
                    'count'        => $nl->subscriberCount(null, null, $grade, $bound, $max),
                    'lost'         => $nl->subscriberCount(true, null, $grade, $bound, $max),
                    'count_female' => $nl->subscriberCount(null, User::GENDER_FEMALE, $grade, $bound, $max),
                    'lost_female'  => $nl->subscriberCount(true, User::GENDER_FEMALE, $grade, $bound, $max)
                );
            }
        }
        $page->assign_by_ref('nl', $nl);
        $page->assign('count', $nl->subscriberCount());
        $page->assign('lost', $nl->lostSubscriberCount());
        $page->assign('count_female', $nl->subscriberCount(null, User::GENDER_FEMALE));
        $page->assign('lost_female', $nl->lostSubscriberCount(User::GENDER_FEMALE));
        $page->assign('data', $data);
    }
}

// vim:set et sw=4 sts=4 sws=4 foldmethod=marker fenc=utf-8:
?>
Commit	Line	Data
e2efba7d	1	<?php
e2efba7d	2	/***************************************************************************
c441aabe	3	* Copyright (C) 2003-2014 Polytechnique.org *
e2efba7d	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 NewsletterModule extends PLModule
	23	{
	24	function handlers()
	25	{
	26	return array(
e5ceaa8c RB	27	'nl' => $this->make_hook('nl', AUTH_COOKIE, 'user'),
	28	'nl/show' => $this->make_hook('nl_show', AUTH_COOKIE, 'user'),
	29	'nl/search' => $this->make_hook('nl_search', AUTH_COOKIE, 'user'),
bfe9f4c7 SJ	30	'nl/submit' => $this->make_hook('nl_submit', AUTH_PASSWD, 'user'),
	31	'nl/remaining' => $this->make_hook('nl_remaining', AUTH_PASSWD, 'user'),
	32	'admin/nls' => $this->make_hook('admin_nl_groups', AUTH_PASSWD, 'admin'),
	33	'admin/newsletter' => $this->make_hook('admin_nl', AUTH_PASSWD, 'admin'),
	34	'admin/newsletter/categories' => $this->make_hook('admin_nl_cat', AUTH_PASSWD, 'admin'),
	35	'admin/newsletter/edit' => $this->make_hook('admin_nl_edit', AUTH_PASSWD, 'admin'),
	36	'admin/newsletter/edit/delete' => $this->make_hook('admin_nl_delete', AUTH_PASSWD, 'admin'),
a8d1ec11	37	'stat/newsletter' => $this->make_hook('stat_nl', AUTH_PASSWD, 'admin')
84163d58	38	// Automatic mailing is disabled for X.org NL
bfe9f4c7 SJ	39	// 'admin/newsletter/edit/cancel' => $this->make_hook('cancel', AUTH_PASSWD, 'admin'),
bfe9f4c7 SJ	40	// 'admin/newsletter/edit/valid' => $this->make_hook('valid', AUTH_PASSWD, 'admin'),
e2efba7d	41	);
	42	}
	43
84163d58 RB	44	/** This function should return the adequate NewsLetter object for the current module.
	45	*/
	46	protected function getNl()
e2efba7d	47	{
e2efba7d	48	require_once 'newsletter.inc.php';
84163d58 RB	49	return NewsLetter::forGroup(NewsLetter::GROUP_XORG);
	50	}
	51
602119a2	52	function handler_nl($page, $action = null, $hash = null, $issue_id = null)
84163d58 RB	53	{
	54	$nl = $this->getNl();
	55	if (!$nl) {
	56	return PL_NOT_FOUND;
	57	}
e2efba7d	58
602119a2	59	$hash = ($hash == 'nohash') ? null : $hash;
e2efba7d	60	switch ($action) {
440b8516 SJ	61	case 'out':
	62	$success = $nl->unsubscribe($issue_id, $hash, $hash != null);
	63	if (!is_null($hash)) {
	64	if ($success) {
	65	$page->trigSuccess('La désinscription a été effectuée avec succès.');
	66	} else {
	67	$page->trigError("La désinscription n'a été pas pu être effectuée.");
	68	}
	69	return;
	70	}
	71	break;
84163d58	72	case 'in': $nl->subscribe(); break;
e2efba7d	73	default: ;
	74	}
	75
440b8516 SJ	76	$page->changeTpl('newsletter/index.tpl');
	77	$page->setTitle('Lettres mensuelles');
	78
84163d58 RB	79	$page->assign_by_ref('nl', $nl);
	80	$page->assign('nls', $nl->subscriptionState());
	81	$page->assign('nl_list', $nl->listSentIssues(true));
e2efba7d	82	}
e2efba7d	83
26ba053e	84	function handler_nl_show($page, $nid = 'last')
e2efba7d	85	{
e2efba7d	86	$page->changeTpl('newsletter/show.tpl');
84163d58 RB	87	$nl = $this->getNl();
	88	if (!$nl) {
	89	return PL_NOT_FOUND;
	90	}
e2efba7d	91
9da70671	92	try {
84163d58	93	$issue = $nl->getIssue($nid);
6d1747b3	94	$user =& S::user();
9da70671	95	if (Get::has('text')) {
84163d58	96	$issue->toText($page, $user);
9da70671	97	} else {
84163d58	98	$issue->toHtml($page, $user);
9da70671 SJ	99	}
9da70671 SJ	100	if (Post::has('send')) {
84163d58	101	$issue->sendTo($user);
9da70671 SJ	102	}
	103	} catch (MailNotFound $e) {
	104	return PL_NOT_FOUND;
e2efba7d	105	}
	106	}
	107
5e9a29ed SJ	108	function handler_nl_search($page)
	109	{
	110	S::assert_xsrf_token();
	111	$nl = $this->getNl();
	112	if (!$nl) {
	113	return PL_NOT_FOUND;
	114	}
	115
	116	if (!Post::has('nl_search')) {
b6d52898	117	pl_redirect($nl->prefix(true, false));
5e9a29ed SJ	118	}
	119
	120	$nl_search = Post::t('nl_search');
	121	$nl_search_type = Post::t('nl_search_type');
	122	if (!$nl_search \|\| !($nl_search_type > 0 && $nl_search_type < 10)) {
	123	$page->trigErrorRedirect('La recherche est vide ou erronée.', $nl->prefix());
	124	}
	125
	126	$page->changeTpl('newsletter/search.tpl');
	127	$user = S::user();
	128	$fields = array(1 => 'all', 2 => 'all', 3 => 'title', 4 => 'body', 5 => 'append', 6 => 'all', 7 => 'title', 8 => 'head', 9 => 'signature');
	129	$res_articles = $res_issues = array();
	130	if ($nl_search_type < 6) {
	131	$res_articles = $nl->articleSearch($nl_search, $fields[$nl_search_type], $user);
	132	}
	133	if ($nl_search_type > 5 \|\| $nl_search_type == 1) {
	134	$res_issues = $nl->issueSearch($nl_search, $fields[$nl_search_type], $user);
	135	}
	136
	137	$articles_count = count($res_articles);
	138	$issues_count = count($res_issues);
	139	$results_count = $articles_count + $issues_count;
	140	if ($results_count > 200) {
	141	$page->trigError('Recherche trop générale.');
	142	} elseif ($results_count == 0) {
	143	$page->trigWarning('Aucun résultat pour cette recherche.');
	144	} else {
	145	$page->assign('res_articles', $res_articles);
	146	$page->assign('res_issues', $res_issues);
	147	$page->assign('articles_count', $articles_count);
	148	$page->assign('issues_count', $issues_count);
	149	}
	150
	151	$page->assign_by_ref('nl', $nl);
	152	$page->assign('nl_search', $nl_search);
	153	$page->assign('nl_search_type', $nl_search_type);
	154	$page->assign('results_count', $results_count);
	155	}
	156
26ba053e	157	function handler_nl_submit($page)
e2efba7d	158	{
	159	$page->changeTpl('newsletter/submit.tpl');
	160
84163d58 RB	161	$nl = $this->getNl();
	162	if (!$nl) {
	163	return PL_NOT_FOUND;
	164	}
	165
8f201b69 FB	166	$wp = new PlWikiPage('Xorg.LettreMensuelle');
8f201b69 FB	167	$wp->buildCache();
e2efba7d	168
1970c12b	169	if (Post::has('see') \|\| (Post::has('valid') && (!trim(Post::v('title')) \|\| !trim(Post::v('body'))))) {
1970c12b	170	if (!Post::has('see')) {
a7d35093	171	$page->trigError("L'article doit avoir un titre et un contenu");
1970c12b	172	}
e2efba7d	173	$art = new NLArticle(Post::v('title'), Post::v('body'), Post::v('append'));
	174	$page->assign('art', $art);
	175	} elseif (Post::has('valid')) {
5daf68f6	176	$art = new NLReq(S::user(), Post::v('title'),
e2efba7d	177	Post::v('body'), Post::v('append'));
	178	$art->submit();
	179	$page->assign('submited', true);
	180	}
84163d58	181	$page->addCssLink($nl->cssFile());
e2efba7d	182	}
e2efba7d	183
0fd5be99 SJ	184	function handler_nl_remaining($page)
	185	{
	186	require_once 'newsletter.inc.php';
	187
	188	pl_content_headers('text/html');
	189	$page->changeTpl('newsletter/remaining.tpl', NO_SKIN);
	190
	191	$article = new NLArticle('', Post::t('body'), '');
	192	$rest = $article->remain();
	193
	194	$page->assign('too_long', $rest['remaining_lines'] < 0);
	195	$page->assign('last_line', ($rest['remaining_lines'] == 0));
	196	$page->assign('remaining', ($rest['remaining_lines'] == 0) ? $rest['remaining_characters_for_last_line'] : $rest['remaining_lines']);
	197	}
	198
26ba053e	199	function handler_admin_nl($page, $new = false) {
e2efba7d	200	$page->changeTpl('newsletter/admin.tpl');
46f272fe	201	$page->setTitle('Administration - Newsletter : liste');
84163d58 RB	202
	203	$nl = $this->getNl();
	204	if (!$nl) {
	205	return PL_NOT_FOUND;
	206	}
eaf30d86	207
2d1ed661	208	if ($new == 'new') {
93f23312 SJ	209	// Logs NL creation.
	210	S::logger()->log('nl_issue_create', $nid);
	211
84163d58	212	$id = $nl->createPending();
b6d52898	213	pl_redirect($nl->adminPrefix(true, false) . '/edit/' . $id);
e2efba7d	214	}
eaf30d86	215
84163d58 RB	216	$page->assign_by_ref('nl', $nl);
	217	$page->assign('nl_list', $nl->listAllIssues());
	218	}
	219
63273514	220	function handler_admin_nl_groups($page, $sort = 'id', $order = 'ASC')
84163d58 RB	221	{
	222	require_once 'newsletter.inc.php';
	223
63273514 SJ	224	static $titles = array(
	225	'id' => 'Id',
	226	'group_name' => 'Groupe',
	227	'name' => 'Titre',
63273514 SJ	228	'criteria' => 'Critères actifs'
	229	);
	230	static $next_orders = array(
	231	'ASC' => 'DESC',
	232	'DESC' => 'ASC'
	233	);
	234
	235	if (!array_key_exists($sort, $titles)) {
	236	$sort = 'id';
	237	}
	238	if (!in_array($order, array('ASC', 'DESC'))) {
	239	$order = 'ASC';
	240	}
	241
84163d58 RB	242	$page->changeTpl('newsletter/admin_all.tpl');
84163d58 RB	243	$page->setTitle('Administration - Newsletters : Liste des Newsletters');
63273514 SJ	244	$page->assign('nls', Newsletter::getAll($sort, $order));
	245	$page->assign('sort', $sort);
	246	$page->assign('order', $order);
	247	$page->assign('next_order', $next_orders[$order]);
	248	$page->assign('titles', $titles);
e2efba7d	249	}
eaf30d86	250
26ba053e	251	function handler_admin_nl_edit($page, $nid = 'last', $aid = null, $action = 'edit') {
e2efba7d	252	$page->changeTpl('newsletter/edit.tpl');
84163d58	253	$page->addCssLink('nl.Polytechnique.org.css');
e4705641	254	$page->setTitle('Administration - Newsletter : Édition');
eaf30d86	255
84163d58 RB	256	$nl = $this->getNl();
	257	if (!$nl) {
	258	return PL_NOT_FOUND;
	259	}
eaf30d86	260
84163d58 RB	261	try {
	262	$issue = $nl->getIssue($nid, false);
	263	} catch (MailNotFound $e) {
	264	return PL_NOT_FOUND;
e2efba7d	265	}
eaf30d86	266
84163d58 RB	267	$ufb = $nl->getSubscribersUFB();
	268	$ufb_keepenv = false; // Will be set to True if there were invalid modification to the UFB.
	269
	270	// Convert NLIssue error messages to human-readable errors
	271	$error_msgs = array(
5f0c028a	272	NLIssue::ERROR_INVALID_REPLY_TO => "L'adresse de réponse est invalide.",
84163d58 RB	273	NLIssue::ERROR_INVALID_SHORTNAME => "Le nom court est invalide ou vide.",
84163d58 RB	274	NLIssue::ERROR_INVALID_UFC => "Le filtre des destinataires est invalide.",
a718afe9	275	NLIssue::ERROR_TOO_LONG_UFC => "Le nombre de matricules AX renseigné est trop élevé.",
84163d58 RB	276	NLIssue::ERROR_SQL_SAVE => "Une erreur est survenue en tentant de sauvegarder la lettre, merci de réessayer.",
	277	);
	278
	279	// Update the current issue
2d1ed661	280	if($aid == 'update' && Post::has('submit')) {
84163d58 RB	281
	282	// Save common fields
	283	$issue->title = Post::s('title');
	284	$issue->title_mail = Post::s('title_mail');
	285	$issue->head = Post::s('head');
	286	$issue->signature = Post::s('signature');
5f0c028a	287	$issue->reply_to = Post::s('reply_to');
84163d58 RB	288
	289	if ($issue->isEditable()) {
	290	// Date and shortname may only be modified for pending NLs, otherwise all links get broken.
	291	$issue->date = Post::s('date');
	292	$issue->shortname = strlen(Post::blank('shortname')) ? null : Post::s('shortname');
	293	$issue->sufb->updateFromEnv($ufb->getEnv());
	294
	295	if ($nl->automaticMailingEnabled()) {
	296	$issue->send_before = preg_replace('/^(\d\d\d\d)(\d\d)(\d\d)$/', '\1-\2-\3', Post::v('send_before_date')) . ' ' . Post::i('send_before_time_Hour') . ':00:00';
	297	}
	298	}
	299	$errors = $issue->save();
	300	if (count($errors)) {
	301	foreach ($errors as $error_code) {
	302	$page->trigError($error_msgs[$error_code]);
	303	}
e2efba7d	304	}
e2efba7d	305	}
eaf30d86	306
84163d58 RB	307	// Delete an article
	308	if($action == 'delete') {
	309	$issue->delArticle($aid);
b6d52898	310	pl_redirect($nl->adminPrefix(true, false) . "/edit/$nid");
84163d58 RB	311	}
	312
	313	// Save an article
e2efba7d	314	if(Post::v('save')) {
e2efba7d	315	$art = new NLArticle(Post::v('title'), Post::v('body'), Post::v('append'),
9e2a6a32	316	$aid, Post::v('cid'), Post::v('pos'));
84163d58	317	$issue->saveArticle($art);
b6d52898	318	pl_redirect($nl->adminPrefix(true, false) . "/edit/$nid");
e2efba7d	319	}
eaf30d86	320
84163d58	321	// Edit an article
9e2a6a32	322	if ($action == 'edit' && $aid != 'update') {
e2efba7d	323	$eaid = $aid;
e4705641	324	if (Post::has('title')) {
e2efba7d	325	$art = new NLArticle(Post::v('title'), Post::v('body'), Post::v('append'),
e4705641	326	$eaid, Post::v('cid'), Post::v('pos'));
e2efba7d	327	} else {
84163d58	328	$art = ($eaid == 'new') ? new NLArticle() : $issue->getArt($eaid);
e4705641 SJ	329	}
	330	if ($art && !$art->check()) {
	331	$page->trigError("Cet article est trop long.");
e2efba7d	332	}
	333	$page->assign('art', $art);
	334	}
eaf30d86	335
84163d58	336	// Check blacklisted IPs
9e2a6a32	337	if ($aid == 'blacklist_check') {
955109ba	338	global $globals;
9e2a6a32	339	$ips_to_check = array();
955109ba	340	$blacklist_host_resolution_count = 0;
9e2a6a32	341
84163d58	342	foreach ($issue->arts as $key => $articles) {
9e2a6a32	343	foreach ($articles as $article) {
955109ba	344	$article_ips = $article->getLinkIps($blacklist_host_resolution_count);
9e2a6a32 SJ	345	if (!empty($article_ips)) {
	346	$ips_to_check[$article->title()] = $article_ips;
	347	}
	348	}
	349	}
	350
	351	$page->assign('ips_to_check', $ips_to_check);
955109ba SJ	352	if ($blacklist_host_resolution_count >= $globals->mail->blacklist_host_resolution_limit) {
955109ba SJ	353	$page->trigError("Toutes les url et adresses emails de la lettre"
9e2a6a32 SJ	354	. " n'ont pas été prises en compte car la"
	355	. " limite du nombre de résolutions DNS"
	356	. " autorisée a été atteinte.");
	357	}
	358	}
	359
84163d58 RB	360	if ($issue->state == NLIssue::STATE_SENT) {
	361	$page->trigWarning("Cette lettre a déjà été envoyée ; il est recommandé de limiter les modifications au maximum (orthographe, adresses web et mail).");
	362	}
	363
	364	$ufb->setEnv($issue->sufb->getEnv());
9e2a6a32	365	$page->assign_by_ref('nl', $nl);
84163d58 RB	366	$page->assign_by_ref('issue', $issue);
	367	}
	368
	369	/** This handler will cancel the sending of the currently pending issue
	370	* It is disabled for X.org mailings.
	371	*/
26ba053e	372	function handler_admin_nl_cancel($page, $nid, $force = null)
84163d58 RB	373	{
	374	$nl = $this->getNl();
	375	if (!$nl) {
	376	return PL_NOT_FOUND;
	377	}
	378
	379	if (!$nl->mayEdit() \|\| !S::has_xsrf_token()) {
	380	return PL_FORBIDDEN;
	381	}
	382
	383	if (!$nid) {
	384	$page->kill("La lettre n'a pas été spécifiée");
	385	}
	386
	387	$issue = $nl->getIssue($nid);
	388	if (!$issue) {
	389	$page->kill("La lettre {$nid} n'existe pas.");
	390	}
	391	if (!$issue->cancelMailing()) {
	392	$page->trigErrorRedirect("Une erreur est survenue lors de l'annulation de l'envoi.", $nl->adminPrefix());
	393	}
	394
93f23312 SJ	395	// Logs NL cancelling.
	396	S::logger()->log('nl_mailing_cancel', $nid);
	397
84163d58 RB	398	$page->trigSuccessRedirect("L'envoi de l'annonce {$issue->title()} est annulé.", $nl->adminPrefix());
	399	}
	400
	401	/** This handler will enable the sending of the currently pending issue
	402	* It is disabled for X.org mailings.
	403	*/
26ba053e	404	function handler_admin_nl_valid($page, $nid, $force = null)
84163d58 RB	405	{
	406	$nl = $this->getNl();
	407	if (!$nl) {
	408	return PL_NOT_FOUND;
	409	}
	410
	411	if (!$nl->mayEdit() \|\| !S::has_xsrf_token()) {
	412	return PL_FORBIDDEN;
	413	}
	414
	415	if (!$nid) {
	416	$page->kill("La lettre n'a pas été spécifiée.");
	417	}
	418
	419	$issue = $nl->getIssue($nid);
	420	if (!$issue) {
	421	$page->kill("La lettre {$nid} n'existe pas.");
	422	}
cab02a01 RB	423
	424	if ($issue->isEmpty()) {
	425	$page->trigErrorRedirect("La lettre étant vide, il n'est pas possible de l'envoyer.", $nl->adminPrefix());
	426	}
	427
84163d58 RB	428	if (!$issue->scheduleMailing()) {
	429	$page->trigErrorRedirect("Une erreur est survenue lors de la validation de l'envoi.", $nl->adminPrefix());
	430	}
	431
93f23312 SJ	432	// Logs NL validation.
	433	S::logger()->log('nl_mailing_valid', $nid);
	434
84163d58 RB	435	$page->trigSuccessRedirect("L'envoi de la newsletter {$issue->title()} a été validé.", $nl->adminPrefix());
	436	}
	437
	438	/** This handler will remove the given issue.
	439	*/
26ba053e	440	function handler_admin_nl_delete($page, $nid, $force = null)
84163d58 RB	441	{
	442	$nl = $this->getNl();
	443	if (!$nl) {
	444	return PL_NOT_FOUND;
	445	}
	446
	447	if (!$nl->mayEdit() \|\| !S::has_xsrf_token()) {
	448	return PL_FORBIDDEN;
	449	}
	450
	451	if (!$nid) {
	452	$page->kill("La lettre n'a pas été spécifiée.");
	453	}
	454
	455	$issue = $nl->getIssue($nid);
	456	if (!$issue) {
	457	$page->kill("La lettre {$nid} n'existe pas");
	458	}
	459	if (!$issue->isEditable()) {
	460	$page->trigErrorRedirect("La lette a été envoyée ou est en cours d'envoi, elle ne peut être supprimée.", $nl->adminPrefix());
	461	}
	462	if (!$issue->delete()) {
	463	$page->trigErrorRedirect("Une erreur est survenue lors de la suppression de la lettre.", $nl->adminPrefix());
	464	}
	465
93f23312 SJ	466	// Logs NL deletion.
	467	S::logger()->log('nl_issue_delete', $nid);
	468
84163d58	469	$page->trigSuccessRedirect("La lettre a bien été supprimée.", $nl->adminPrefix());
e2efba7d	470	}
e2efba7d	471
26ba053e	472	function handler_admin_nl_cat($page, $action = 'list', $id = null) {
42df7fa8 RB	473	$nl = $this->getNl();
	474	if (!$nl) {
	475	return PL_NOT_FOUND;
	476	}
	477
	478	if (!$nl->mayEdit()) {
	479	return PL_FORBIDDEN;
	480	}
	481
46f272fe	482	$page->setTitle('Administration - Newsletter : Catégories');
a7de4ef7	483	$page->assign('title', 'Gestion des catégories de la newsletter');
42df7fa8	484	$table_editor = new PLTableEditor($nl->adminPrefix() . '/categories', 'newsletter_cat','cid');
84163d58	485	$table_editor->describe('title','intitulé',true);
e2efba7d	486	$table_editor->describe('pos','position',true);
42df7fa8 RB	487	if ($nl->group == Newsletter::GROUP_XORG) {
	488	$table_editor->add_option_table('newsletters', 'newsletters.id = t.nlid');
	489	$table_editor->add_option_field('newsletters.name', 'newsletter_name', 'Newsletter', null, 'nlid');
	490	$table_editor->describe('nlid', 'ID NL', true);
	491	} else {
	492	$table_editor->force_field_value('nlid', $nl->id);
47f51789	493	$table_editor->describe('nlid', 'nlid', false, false);
42df7fa8 RB	494	}
	495	// Prevent deletion.
	496	$table_editor->on_delete(null, null);
e2efba7d	497	$table_editor->apply($page, $action, $id);
bc0903c7	498	}
a8d1ec11 SJ	499
	500	function handler_stat_nl($page)
	501	{
	502	$nl = $this->getNl();
	503	if (!$nl) {
	504	return PL_NOT_FOUND;
	505	}
	506	if (!$nl->mayEdit()) {
	507	return PL_FORBIDDEN;
	508	}
	509
	510	$page->setTitle('Statistiques - Newsletter');
	511	$page->changeTpl('newsletter/statistics.tpl');
ccabe1ac SJ	512
	513	$data = array();
	514	foreach (Profile::$cycles as $grade => $name) {
	515	$data[$name] = array();
	516	list($min, $max) = Profile::extremePromotions($grade);
	517	$bound = (((int)($min / 10)) + 1) * 10;
	518	while ($bound <= $max) {
	519	$data[$name][$min . ' - ' . $bound] = array(
	520	'count' => $nl->subscriberCount(null, null, $grade, $min, $bound),
	521	'lost' => $nl->subscriberCount(true, null, $grade, $min, $bound),
	522	'count_female' => $nl->subscriberCount(null, User::GENDER_FEMALE, $grade, $min, $bound),
	523	'lost_female' => $nl->subscriberCount(true, User::GENDER_FEMALE, $grade, $min, $bound)
	524	);
	525	$min = $bound + 1;
	526	$bound += 10;
	527	}
	528	$bound -= 9;
	529	if ($bound <= $max) {
	530	$data[$name][$bound . ' - ' . $max] = array(
	531	'count' => $nl->subscriberCount(null, null, $grade, $bound, $max),
	532	'lost' => $nl->subscriberCount(true, null, $grade, $bound, $max),
	533	'count_female' => $nl->subscriberCount(null, User::GENDER_FEMALE, $grade, $bound, $max),
	534	'lost_female' => $nl->subscriberCount(true, User::GENDER_FEMALE, $grade, $bound, $max)
	535	);
	536	}
	537	}
a8d1ec11	538	$page->assign_by_ref('nl', $nl);
ccabe1ac SJ	539	$page->assign('count', $nl->subscriberCount());
	540	$page->assign('lost', $nl->lostSubscriberCount());
	541	$page->assign('count_female', $nl->subscriberCount(null, User::GENDER_FEMALE));
	542	$page->assign('lost_female', $nl->lostSubscriberCount(User::GENDER_FEMALE));
	543	$page->assign('data', $data);
a8d1ec11	544	}
e2efba7d	545	}
e2efba7d	546
448c8cdc	547	// vim:set et sw=4 sts=4 sws=4 foldmethod=marker fenc=utf-8:
e2efba7d	548	?>