[platal.git] / modules / events.php

<?php
/***************************************************************************
 *  Copyright (C) 2003-2006 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 EventsModule extends PLModule
{
    function handlers()
    {
        return array(
            'events'         => $this->make_hook('ev',        AUTH_COOKIE),
            'events/submit'  => $this->make_hook('ev_submit', AUTH_MDP),
            'admin/events'   => $this->make_hook('admin_events',     AUTH_MDP, 'admin'),

            'nl'             => $this->make_hook('nl',        AUTH_COOKIE),
            'nl/show'        => $this->make_hook('nl_show',   AUTH_COOKIE),
            'nl/submit'      => $this->make_hook('nl_submit', AUTH_COOKIE),
            'admin/newsletter'             => $this->make_hook('admin_nl', AUTH_MDP, 'admin'),
            'admin/newsletter/categories'  => $this->make_hook('admin_nl_cat', AUTH_MDP, 'admin'),
            'admin/newsletter/edit'        => $this->make_hook('admin_nl_edit', AUTH_MDP, 'admin'),
        );
    }

    function handler_ev(&$page)
    {
        $page->changeTpl('login.tpl');

        $res = XDB::query('SELECT date, naissance FROM auth_user_md5
                                      WHERE user_id={?}', S::v('uid'));
        list($date, $naissance) = $res->fetchOneRow();

        // incitation � mettre � jour la fiche

        $d2  = mktime(0, 0, 0, substr($date, 5, 2), substr($date, 8, 2),
                      substr($date, 0, 4));
        if( (time() - $d2) > 60 * 60 * 24 * 400 ) {
            // si fiche date de + de 400j;
            $page->assign('fiche_incitation', $date);
        }

        // Souhaite bon anniversaire

        if (substr($naissance, 5) == date('m-d')) {
            $page->assign('birthday', date('Y') - substr($naissance, 0, 4));
        }

        // incitation � mettre une photo

        $res = XDB::query('SELECT COUNT(*) FROM photo
                                      WHERE uid={?}', S::v('uid'));
        $page->assign('photo_incitation', $res->fetchOneCell() == 0);

        // Incitation � se g�olocaliser
        require_once 'geoloc.inc.php';
        $res = localize_addresses(S::v('uid', -1));
        $page->assign('geoloc_incitation', count($res));

        // affichage de la bo�te avec quelques liens
        require_once 'login.conf.php';
        $pub_nbElem = $pub_nbLig * $pub_nbCol ;
        if (count($pub_tjs) <= $pub_nbElem) {
            $publicite = array_slice($pub_tjs, 0, $pub_nbElem);
        } else {
            $publicite = $pub_tjs ;
        }

        $nbAlea = $pub_nbElem - count($publicite) ;
        if ($nbAlea > 0) {
            $choix = array_rand($pub_rnd,$nbAlea) ;
            foreach ($choix as $url) {
                $publicite[$url] = $pub_rnd[$url] ;
            }
        }
        $publicite = array_chunk( $publicite , $pub_nbLig , true ) ;
        $page->assign_by_ref('publicite', $publicite);

        // ajout du lien RSS

        if (S::has('core_rss_hash')) {
            $page->assign('xorg_rss',
                          array('title' => 'Polytechnique.org :: News',
                                'href' => '/rss/'.S::v('forlife')
                                         .'/'.S::v('core_rss_hash').'/rss.xml')
            );
        }

        // cache les evenements lus et raffiche les evenements a relire
        if (Env::has('lu')){
            XDB::execute('DELETE FROM evenements_vus AS ev 
                                     INNER JOIN evenements AS e ON e.id = ev.evt_id
                                          WHERE peremption < NOW)');
            XDB::execute('REPLACE INTO evenements_vus VALUES({?},{?})',
                                   Env::v('lu'), S::v('uid'));
        }

        if (Env::has('nonlu')){
            XDB::execute('DELETE FROM evenements_vus
                                          WHERE evt_id = {?} AND user_id = {?}',
                                   Env::v('nonlu'), S::v('uid'));
        }

        // affichage des evenements
        // annonces promos tri�es par pr�sence d'une limite sur les promos
        // puis par dates croissantes d'expiration
        $promo = S::v('promo');
        $sql = "SELECT  e.id,e.titre,e.texte,a.user_id,a.nom,a.prenom,a.promo,l.alias AS forlife
                  FROM  evenements     AS e
            INNER JOIN  auth_user_md5  AS a ON e.user_id=a.user_id
            INNER JOIN  aliases        AS l ON ( a.user_id=l.id AND l.type='a_vie' )
             LEFT JOIN  evenements_vus AS ev ON (e.id = ev.evt_id AND ev.user_id = {?})
                 WHERE  FIND_IN_SET(e.flags, 'valide') AND peremption >= NOW()
                        AND (e.promo_min = 0 || e.promo_min <= {?})
                        AND (e.promo_max = 0 || e.promo_max >= {?})
                        AND ev.user_id IS NULL
              ORDER BY  (e.promo_min != 0 AND  e.promo_max != 0) DESC,  e.peremption";
        $page->assign('evenement',
                      XDB::iterator($sql, S::v('uid'),
                                              $promo, $promo)
                      );

        $sql = "SELECT  e.id,e.titre, ev.user_id IS NULL AS nonlu
                  FROM  evenements    AS e
            LEFT JOIN   evenements_vus AS ev ON (e.id = ev.evt_id AND ev.user_id = {?})
                 WHERE  FIND_IN_SET(e.flags, 'valide') AND peremption >= NOW()
                        AND (e.promo_min = 0 || e.promo_min <= {?})
                        AND (e.promo_max = 0 || e.promo_max >= {?})
              ORDER BY  (e.promo_min != 0 AND  e.promo_max != 0) DESC,  e.peremption";
        $page->assign('evenement_summary',
                      XDB::iterator($sql, S::v('uid'),
                                              $promo, $promo)
                     );
    }

    function handler_ev_submit(&$page)
    {
        $page->changeTpl('evenements.tpl');

        $titre      = Post::v('titre');
        $texte      = Post::v('texte');
        $promo_min  = Post::i('promo_min');
        $promo_max  = Post::i('promo_max');
        $peremption = Post::i('peremption');
        $valid_mesg = Post::v('valid_mesg');
        $action     = Post::v('action');

        $page->assign('titre', $titre);
        $page->assign('texte', $texte);
        $page->assign('promo_min', $promo_min);
        $page->assign('promo_max', $promo_max);
        $page->assign('peremption', $peremption);
        $page->assign('valid_mesg', $valid_mesg);
        $page->assign('action', strtolower($action));

        if ($action == 'Confirmer') {
            $texte = preg_replace('/((http|ftp)+(s)?:\/\/[^<>\s]+)/i',
                                  '<a href=\"\\0\">\\0</a>', $texte);
            $texte = preg_replace('/([^,\s]+@[^,\s]+)/i',
                                  '<a href=\"mailto:\\0\">\\0</a>', $texte);
            require_once 'validations.inc.php';
            $evtreq = new EvtReq($titre, $texte, $promo_min, $promo_max,
                                 $peremption, $valid_mesg, S::v('uid'));
            $evtreq->submit();
            $page->assign('ok', true);
        }

        $select = '';
        for ($i = 1 ; $i < 30 ; $i++) {
            $time    = time() + 3600 * 24 * $i;
            $p_stamp = date('Ymd', $time);
            $year    = date('Y',   $time);
            $month   = date('m',   $time);
            $day     = date('d',   $time);

            $select .= "<option value=\"$p_stamp\"";
            if ($p_stamp == strtr($peremption, array("-" => ""))) {
                $select .= " selected='selected'";
            }
            $select .= "> $day / $month / $year</option>\n";
        }
        $page->assign('select',$select);
    }

    function handler_nl(&$page, $action = null)
    {
        require_once 'newsletter.inc.php';

        $page->changeTpl('newsletter/index.tpl');
        $page->assign('xorg_title','Polytechnique.org - Lettres mensuelles');

        switch ($action) {
          case 'out': unsubscribe_nl(); break;
          case 'in':  subscribe_nl(); break;
          default: ;
        }

        $page->assign('nls', get_nl_state());
        $page->assign_by_ref('nl_list', get_nl_list());
    }

    function handler_nl_show(&$page, $nid = 'last')
    {
        $page->changeTpl('newsletter/show.tpl');

        require_once 'newsletter.inc.php';

        $nl  = new NewsLetter($nid);
        $page->assign_by_ref('nl', $nl);

        if (Post::has('send')) {
            $nl->sendTo(S::v('prenom'), S::v('nom'),
                        S::v('bestalias'), S::v('femme'),
                        S::v('mail_fmt') != 'text');
        }
    }

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

        require_once 'newsletter.inc.php';

        if (Post::has('see')) {
            $art = new NLArticle(Post::v('title'), Post::v('body'), Post::v('append'));
            $page->assign('art', $art);
        } elseif (Post::has('valid')) {
            require_once('validations.inc.php');
            $art = new NLReq(S::v('uid'), Post::v('title'),
                             Post::v('body'), Post::v('append'));
            $art->submit();
            $page->assign('submited', true);
        }
    }

    function handler_admin_events(&$page, $arch) {
        $page->changeTpl('admin/evenements.tpl');
        $page->assign('xorg_title','Polytechnique.org - Administration - Evenements');
        
        $arch = $arch == 'archives';
        $evid = Post::i('evt_id');
        $page->assign('arch', $arch);
        
        switch(Post::v('action')) {
            case "Proposer":
                XDB::execute('UPDATE evenements SET titre={?}, texte={?}, peremption={?}, promo_min={?}, promo_max={?} WHERE id = {?}', 
                        Post::v('titre'), Post::v('texte'), Post::v('peremption'), Post::v('promo_min'), Post::v('promo_max'), $evid);
                break;
        
            case "Valider":
                XDB::execute('UPDATE evenements SET creation_date = creation_date, flags = CONCAT(flags,",valide") WHERE id = {?}', $evid);
                break;
        
            case "Invalider":
                XDB::execute('UPDATE evenements SET creation_date = creation_date, flags = REPLACE(flags,"valide", "") WHERE id = {?}', $evid);
                break;
        
            case "Supprimer":
                XDB::execute('DELETE from evenements WHERE id = {?}', $evid);
                break;
        
            case "Archiver":
                XDB::execute('UPDATE evenements SET creation_date = creation_date, flags = CONCAT(flags,",archive") WHERE id = {?}', $evid);
                break;
        
            case "Desarchiver":
                XDB::execute('UPDATE evenements SET creation_date = creation_date, flags = REPLACE(flags,"archive","") WHERE id = {?}', $evid);
                break;
        
            case "Editer":
                $res = XDB::query('SELECT titre, texte, peremption, promo_min, promo_max FROM evenements WHERE id={?}', $evid);
                list($titre, $texte, $peremption, $promo_min, $promo_max) = $res->fetchOneRow();
                $page->assign('mode', 'edit');
                $page->assign('titre',$titre);
                $page->assign('texte',$texte);
                $page->assign('promo_min',$promo_min);
                $page->assign('promo_max',$promo_max);
                $page->assign('peremption',$peremption);
        
                $select = "";
                for ($i = 1 ; $i < 30 ; $i++) {
                    $p_stamp=date("Ymd",time()+3600*24*$i);
                    $year=substr($p_stamp,0,4);
                    $month=substr($p_stamp,4,2);
                    $day=substr($p_stamp,6,2);
        
                    $select .= "<option value=\"$p_stamp\"" . (($p_stamp == strtr($peremption, array("-" => ""))) ? " selected" : "")."> $day / $month / $year</option>\n";
                }
                $page->assign('select',$select);
        
                break;
        }
        
        if ($action != "Editer") {
        
            $sql = "SELECT  e.id, e.titre, e.texte,
                            DATE_FORMAT(e.creation_date,'%d/%m/%Y %T') AS creation_date,
                            DATE_FORMAT(e.peremption,'%d/%m/%Y') AS peremption,
                            e.promo_min, e.promo_max,
                            FIND_IN_SET('valide', e.flags) AS fvalide,
                            FIND_IN_SET('archive', e.flags) AS farch,
                            u.promo, u.nom, u.prenom, a.alias AS forlife
                      FROM  evenements    AS e
                INNER JOIN  auth_user_md5 AS u ON(e.user_id = u.user_id)
                INNER JOIN  aliases AS a ON (u.user_id = a.id AND a.type='a_vie')
                     WHERE  ".($arch ? "" : "!")."FIND_IN_SET('archive',e.flags)
                  ORDER BY  FIND_IN_SET('valide',e.flags), peremption";
            $page->assign('evs', XDB::iterator($sql));
        }
    }

    function handler_admin_nl(&$page, $new = false) {
        $page->changeTpl('newsletter/admin.tpl');
        $page->assign('xorg_title','Polytechnique.org - Administration - Newsletter : liste');
        require_once("newsletter.inc.php");
        
        if($new) {
           insert_new_nl();
           pl_redirect("admin/newsletter");
        }
        
        $page->assign_by_ref('nl_list', get_nl_slist());
    }
    
    function handler_admin_nl_edit(&$page, $nid = 'last', $aid = null, $action = 'edit') {
        $page->changeTpl('newsletter/edit.tpl');
        $page->assign('xorg_title','Polytechnique.org - Administration - Newsletter : Edition'); 
        require_once("newsletter.inc.php");
        
        $nl  = new NewsLetter($nid);
        
        if($action == 'delete') {
            $nl->delArticle($aid);
            pl_redirect("admin/newsletter/edit/$nid");
        }
        
        if($aid == 'update') {
            $nl->_title = Post::v('title');
            $nl->_date  = Post::v('date');
            $nl->_head  = Post::v('head');
            $nl->save();
        }
        
        if(Post::v('save')) {
            $art  = new NLArticle(Post::v('title'), Post::v('body'), Post::v('append'),
                    $aid, Post::v('cid'), Post::v('pos'));
            $nl->saveArticle($art);
            pl_redirect("admin/newsletter/edit/$nid");
        }
        
        if($action == 'edit') {
            $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() : $nl->getArt($eaid);
            }
            $page->assign('art', $art);
        }
        
        $page->assign_by_ref('nl',$nl);
    }
    function handler_admin_nl_cat(&$page, $action = 'list', $id = null) {
        require_once('../classes/PLTableEditor.php');
        $page->assign('xorg_title','Polytechnique.org - Administration - Newsletter : Cat�gories');
        $page->assign('title', 'Gestion des cat�gories de la newsletter');
        $table_editor = new PLTableEditor('admin/newsletter/categories','newsletter_cat','cid');
        $table_editor->describe('titre','intitul�',true);
        $table_editor->describe('pos','position',true);
        $table_editor->apply($page, $action, $id);
    }    
    
}

?>
Commit	Line	Data
74e0093f	1	<?php
	2	/***************************************************************************
	3	* Copyright (C) 2003-2006 Polytechnique.org *
	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 EventsModule extends PLModule
	23	{
	24	function handlers()
	25	{
	26	return array(
1a828cd4	27	'events' => $this->make_hook('ev', AUTH_COOKIE),
1a828cd4	28	'events/submit' => $this->make_hook('ev_submit', AUTH_MDP),
92423144	29	'admin/events' => $this->make_hook('admin_events', AUTH_MDP, 'admin'),
b829e258	30
164ca57a	31	'nl' => $this->make_hook('nl', AUTH_COOKIE),
	32	'nl/show' => $this->make_hook('nl_show', AUTH_COOKIE),
	33	'nl/submit' => $this->make_hook('nl_submit', AUTH_COOKIE),
92423144	34	'admin/newsletter' => $this->make_hook('admin_nl', AUTH_MDP, 'admin'),
	35	'admin/newsletter/categories' => $this->make_hook('admin_nl_cat', AUTH_MDP, 'admin'),
	36	'admin/newsletter/edit' => $this->make_hook('admin_nl_edit', AUTH_MDP, 'admin'),
74e0093f	37	);
	38	}
	39
1a828cd4	40	function handler_ev(&$page)
1a828cd4	41	{
1a828cd4	42	$page->changeTpl('login.tpl');
1a828cd4	43
08cce2ff	44	$res = XDB::query('SELECT date, naissance FROM auth_user_md5
cab08090	45	WHERE user_id={?}', S::v('uid'));
1a828cd4	46	list($date, $naissance) = $res->fetchOneRow();
1a828cd4	47
089a5801	48	// incitation � mettre � jour la fiche
1a828cd4	49
	50	$d2 = mktime(0, 0, 0, substr($date, 5, 2), substr($date, 8, 2),
	51	substr($date, 0, 4));
	52	if( (time() - $d2) > 60 * 60 * 24 * 400 ) {
	53	// si fiche date de + de 400j;
	54	$page->assign('fiche_incitation', $date);
	55	}
	56
	57	// Souhaite bon anniversaire
	58
	59	if (substr($naissance, 5) == date('m-d')) {
	60	$page->assign('birthday', date('Y') - substr($naissance, 0, 4));
	61	}
	62
089a5801	63	// incitation � mettre une photo
1a828cd4	64
08cce2ff	65	$res = XDB::query('SELECT COUNT(*) FROM photo
cab08090	66	WHERE uid={?}', S::v('uid'));
1a828cd4	67	$page->assign('photo_incitation', $res->fetchOneCell() == 0);
1a828cd4	68
089a5801	69	// Incitation � se g�olocaliser
1a828cd4	70	require_once 'geoloc.inc.php';
cab08090	71	$res = localize_addresses(S::v('uid', -1));
1a828cd4	72	$page->assign('geoloc_incitation', count($res));
1a828cd4	73
089a5801	74	// affichage de la bo�te avec quelques liens
1a828cd4	75	require_once 'login.conf.php';
	76	$pub_nbElem = $pub_nbLig * $pub_nbCol ;
	77	if (count($pub_tjs) <= $pub_nbElem) {
	78	$publicite = array_slice($pub_tjs, 0, $pub_nbElem);
	79	} else {
	80	$publicite = $pub_tjs ;
	81	}
	82
	83	$nbAlea = $pub_nbElem - count($publicite) ;
	84	if ($nbAlea > 0) {
	85	$choix = array_rand($pub_rnd,$nbAlea) ;
	86	foreach ($choix as $url) {
	87	$publicite[$url] = $pub_rnd[$url] ;
	88	}
	89	}
	90	$publicite = array_chunk( $publicite , $pub_nbLig , true ) ;
	91	$page->assign_by_ref('publicite', $publicite);
	92
	93	// ajout du lien RSS
	94
cab08090	95	if (S::has('core_rss_hash')) {
1a828cd4	96	$page->assign('xorg_rss',
1a828cd4	97	array('title' => 'Polytechnique.org :: News',
cab08090	98	'href' => '/rss/'.S::v('forlife')
cab08090	99	.'/'.S::v('core_rss_hash').'/rss.xml')
1a828cd4	100	);
	101	}
	102
	103	// cache les evenements lus et raffiche les evenements a relire
	104	if (Env::has('lu')){
08cce2ff	105	XDB::execute('DELETE FROM evenements_vus AS ev
1a828cd4	106	INNER JOIN evenements AS e ON e.id = ev.evt_id
1a828cd4	107	WHERE peremption < NOW)');
08cce2ff	108	XDB::execute('REPLACE INTO evenements_vus VALUES({?},{?})',
5e2307dc	109	Env::v('lu'), S::v('uid'));
1a828cd4	110	}
	111
	112	if (Env::has('nonlu')){
08cce2ff	113	XDB::execute('DELETE FROM evenements_vus
1a828cd4	114	WHERE evt_id = {?} AND user_id = {?}',
5e2307dc	115	Env::v('nonlu'), S::v('uid'));
1a828cd4	116	}
	117
	118	// affichage des evenements
089a5801	119	// annonces promos tri�es par pr�sence d'une limite sur les promos
1a828cd4	120	// puis par dates croissantes d'expiration
cab08090	121	$promo = S::v('promo');
1a828cd4	122	$sql = "SELECT e.id,e.titre,e.texte,a.user_id,a.nom,a.prenom,a.promo,l.alias AS forlife
2f678da1	123	FROM evenements AS e
	124	INNER JOIN auth_user_md5 AS a ON e.user_id=a.user_id
	125	INNER JOIN aliases AS l ON ( a.user_id=l.id AND l.type='a_vie' )
	126	LEFT JOIN evenements_vus AS ev ON (e.id = ev.evt_id AND ev.user_id = {?})
1a828cd4	127	WHERE FIND_IN_SET(e.flags, 'valide') AND peremption >= NOW()
	128	AND (e.promo_min = 0 \|\| e.promo_min <= {?})
	129	AND (e.promo_max = 0 \|\| e.promo_max >= {?})
	130	AND ev.user_id IS NULL
	131	ORDER BY (e.promo_min != 0 AND e.promo_max != 0) DESC, e.peremption";
	132	$page->assign('evenement',
cab08090	133	XDB::iterator($sql, S::v('uid'),
1a828cd4	134	$promo, $promo)
	135	);
	136
	137	$sql = "SELECT e.id,e.titre, ev.user_id IS NULL AS nonlu
	138	FROM evenements AS e
	139	LEFT JOIN evenements_vus AS ev ON (e.id = ev.evt_id AND ev.user_id = {?})
	140	WHERE FIND_IN_SET(e.flags, 'valide') AND peremption >= NOW()
	141	AND (e.promo_min = 0 \|\| e.promo_min <= {?})
	142	AND (e.promo_max = 0 \|\| e.promo_max >= {?})
	143	ORDER BY (e.promo_min != 0 AND e.promo_max != 0) DESC, e.peremption";
	144	$page->assign('evenement_summary',
cab08090	145	XDB::iterator($sql, S::v('uid'),
1a828cd4	146	$promo, $promo)
1a828cd4	147	);
1a828cd4	148	}
	149
	150	function handler_ev_submit(&$page)
74e0093f	151	{
74e0093f	152	$page->changeTpl('evenements.tpl');
74e0093f	153
5e2307dc	154	$titre = Post::v('titre');
	155	$texte = Post::v('texte');
	156	$promo_min = Post::i('promo_min');
	157	$promo_max = Post::i('promo_max');
	158	$peremption = Post::i('peremption');
	159	$valid_mesg = Post::v('valid_mesg');
	160	$action = Post::v('action');
74e0093f	161
	162	$page->assign('titre', $titre);
	163	$page->assign('texte', $texte);
	164	$page->assign('promo_min', $promo_min);
	165	$page->assign('promo_max', $promo_max);
	166	$page->assign('peremption', $peremption);
	167	$page->assign('valid_mesg', $valid_mesg);
	168	$page->assign('action', strtolower($action));
	169
	170	if ($action == 'Confirmer') {
	171	$texte = preg_replace('/((http\|ftp)+(s)?:\/\/[^<>\s]+)/i',
	172	'<a href=\"\\0\">\\0</a>', $texte);
	173	$texte = preg_replace('/([^,\s]+@[^,\s]+)/i',
	174	'<a href=\"mailto:\\0\">\\0</a>', $texte);
	175	require_once 'validations.inc.php';
	176	$evtreq = new EvtReq($titre, $texte, $promo_min, $promo_max,
cab08090	177	$peremption, $valid_mesg, S::v('uid'));
74e0093f	178	$evtreq->submit();
	179	$page->assign('ok', true);
	180	}
	181
	182	$select = '';
	183	for ($i = 1 ; $i < 30 ; $i++) {
	184	$time = time() + 3600 * 24 * $i;
	185	$p_stamp = date('Ymd', $time);
	186	$year = date('Y', $time);
	187	$month = date('m', $time);
	188	$day = date('d', $time);
	189
	190	$select .= "<option value=\"$p_stamp\"";
	191	if ($p_stamp == strtr($peremption, array("-" => ""))) {
	192	$select .= " selected='selected'";
	193	}
	194	$select .= "> $day / $month / $year</option>\n";
	195	}
	196	$page->assign('select',$select);
74e0093f	197	}
b829e258	198
164ca57a	199	function handler_nl(&$page, $action = null)
	200	{
	201	require_once 'newsletter.inc.php';
	202
	203	$page->changeTpl('newsletter/index.tpl');
	204	$page->assign('xorg_title','Polytechnique.org - Lettres mensuelles');
	205
	206	switch ($action) {
	207	case 'out': unsubscribe_nl(); break;
	208	case 'in': subscribe_nl(); break;
	209	default: ;
	210	}
	211
	212	$page->assign('nls', get_nl_state());
	213	$page->assign_by_ref('nl_list', get_nl_list());
164ca57a	214	}
	215
	216	function handler_nl_show(&$page, $nid = 'last')
b829e258	217	{
	218	$page->changeTpl('newsletter/show.tpl');
	219
	220	require_once 'newsletter.inc.php';
	221
	222	$nl = new NewsLetter($nid);
	223	$page->assign_by_ref('nl', $nl);
	224
	225	if (Post::has('send')) {
cab08090	226	$nl->sendTo(S::v('prenom'), S::v('nom'),
	227	S::v('bestalias'), S::v('femme'),
	228	S::v('mail_fmt') != 'text');
b829e258	229	}
b829e258	230	}
164ca57a	231
	232	function handler_nl_submit(&$page)
	233	{
	234	$page->changeTpl('newsletter/submit.tpl');
	235
	236	require_once 'newsletter.inc.php';
	237
	238	if (Post::has('see')) {
5e2307dc	239	$art = new NLArticle(Post::v('title'), Post::v('body'), Post::v('append'));
164ca57a	240	$page->assign('art', $art);
	241	} elseif (Post::has('valid')) {
	242	require_once('validations.inc.php');
5e2307dc	243	$art = new NLReq(S::v('uid'), Post::v('title'),
5e2307dc	244	Post::v('body'), Post::v('append'));
164ca57a	245	$art->submit();
	246	$page->assign('submited', true);
	247	}
164ca57a	248	}
92423144	249
	250	function handler_admin_events(&$page, $arch) {
	251	$page->changeTpl('admin/evenements.tpl');
	252	$page->assign('xorg_title','Polytechnique.org - Administration - Evenements');
	253
	254	$arch = $arch == 'archives';
	255	$evid = Post::i('evt_id');
	256	$page->assign('arch', $arch);
	257
	258	switch(Post::v('action')) {
	259	case "Proposer":
	260	XDB::execute('UPDATE evenements SET titre={?}, texte={?}, peremption={?}, promo_min={?}, promo_max={?} WHERE id = {?}',
	261	Post::v('titre'), Post::v('texte'), Post::v('peremption'), Post::v('promo_min'), Post::v('promo_max'), $evid);
	262	break;
	263
	264	case "Valider":
	265	XDB::execute('UPDATE evenements SET creation_date = creation_date, flags = CONCAT(flags,",valide") WHERE id = {?}', $evid);
	266	break;
	267
	268	case "Invalider":
	269	XDB::execute('UPDATE evenements SET creation_date = creation_date, flags = REPLACE(flags,"valide", "") WHERE id = {?}', $evid);
	270	break;
	271
	272	case "Supprimer":
	273	XDB::execute('DELETE from evenements WHERE id = {?}', $evid);
	274	break;
	275
	276	case "Archiver":
	277	XDB::execute('UPDATE evenements SET creation_date = creation_date, flags = CONCAT(flags,",archive") WHERE id = {?}', $evid);
	278	break;
	279
	280	case "Desarchiver":
	281	XDB::execute('UPDATE evenements SET creation_date = creation_date, flags = REPLACE(flags,"archive","") WHERE id = {?}', $evid);
	282	break;
	283
	284	case "Editer":
	285	$res = XDB::query('SELECT titre, texte, peremption, promo_min, promo_max FROM evenements WHERE id={?}', $evid);
	286	list($titre, $texte, $peremption, $promo_min, $promo_max) = $res->fetchOneRow();
	287	$page->assign('mode', 'edit');
	288	$page->assign('titre',$titre);
	289	$page->assign('texte',$texte);
	290	$page->assign('promo_min',$promo_min);
	291	$page->assign('promo_max',$promo_max);
	292	$page->assign('peremption',$peremption);
	293
	294	$select = "";
	295	for ($i = 1 ; $i < 30 ; $i++) {
	296	$p_stamp=date("Ymd",time()+360024$i);
	297	$year=substr($p_stamp,0,4);
	298	$month=substr($p_stamp,4,2);
	299	$day=substr($p_stamp,6,2);
	300
	301	$select .= "<option value=\"$p_stamp\"" . (($p_stamp == strtr($peremption, array("-" => ""))) ? " selected" : "")."> $day / $month / $year</option>\n";
	302	}
	303	$page->assign('select',$select);
	304
	305	break;
	306	}
	307
	308	if ($action != "Editer") {
	309
	310	$sql = "SELECT e.id, e.titre, e.texte,
	311	DATE_FORMAT(e.creation_date,'%d/%m/%Y %T') AS creation_date,
	312	DATE_FORMAT(e.peremption,'%d/%m/%Y') AS peremption,
313	e.promo_min, e.promo_max,
314	FIND_IN_SET('valide', e.flags) AS fvalide,
315	FIND_IN_SET('archive', e.flags) AS farch,
316	u.promo, u.nom, u.prenom, a.alias AS forlife
317	FROM evenements AS e
318	INNER JOIN auth_user_md5 AS u ON(e.user_id = u.user_id)
319	INNER JOIN aliases AS a ON (u.user_id = a.id AND a.type='a_vie')
320	WHERE ".($arch ? "" : "!")."FIND_IN_SET('archive',e.flags)
321	ORDER BY FIND_IN_SET('valide',e.flags), peremption";
322	$page->assign('evs', XDB::iterator($sql));
323	}
324	}
325
326	function handler_admin_nl(&$page, $new = false) {
163eddd2	327	$page->changeTpl('newsletter/admin.tpl');
92423144	328	$page->assign('xorg_title','Polytechnique.org - Administration - Newsletter : liste');
	329	require_once("newsletter.inc.php");
	330
	331	if($new) {
	332	insert_new_nl();
	333	pl_redirect("admin/newsletter");
	334	}
	335
	336	$page->assign_by_ref('nl_list', get_nl_slist());
	337	}
	338
	339	function handler_admin_nl_edit(&$page, $nid = 'last', $aid = null, $action = 'edit') {
163eddd2	340	$page->changeTpl('newsletter/edit.tpl');
92423144	341	$page->assign('xorg_title','Polytechnique.org - Administration - Newsletter : Edition');
	342	require_once("newsletter.inc.php");
	343
	344	$nl = new NewsLetter($nid);
	345
	346	if($action == 'delete') {
	347	$nl->delArticle($aid);
	348	pl_redirect("admin/newsletter/edit/$nid");
	349	}
	350
	351	if($aid == 'update') {
	352	$nl->_title = Post::v('title');
	353	$nl->_date = Post::v('date');
	354	$nl->_head = Post::v('head');
	355	$nl->save();
	356	}
	357
	358	if(Post::v('save')) {
	359	$art = new NLArticle(Post::v('title'), Post::v('body'), Post::v('append'),
	360	$aid, Post::v('cid'), Post::v('pos'));
	361	$nl->saveArticle($art);
	362	pl_redirect("admin/newsletter/edit/$nid");
	363	}
	364
	365	if($action == 'edit') {
	366	$eaid = $aid;
	367	if(Post::has('title')) {
	368	$art = new NLArticle(Post::v('title'), Post::v('body'), Post::v('append'),
	369	$eaid, Post::v('cid'), Post::v('pos'));
	370	} else {
	371	$art = ($eaid == 'new') ? new NLArticle() : $nl->getArt($eaid);
	372	}
	373	$page->assign('art', $art);
	374	}
	375
	376	$page->assign_by_ref('nl',$nl);
	377	}
	378	function handler_admin_nl_cat(&$page, $action = 'list', $id = null) {
	379	require_once('../classes/PLTableEditor.php');
	380	$page->assign('xorg_title','Polytechnique.org - Administration - Newsletter : Cat�gories');
	381	$page->assign('title', 'Gestion des cat�gories de la newsletter');
	382	$table_editor = new PLTableEditor('admin/newsletter/categories','newsletter_cat','cid');
	383	$table_editor->describe('titre','intitul�',true);
	384	$table_editor->describe('pos','position',true);
	385	$table_editor->apply($page, $action, $id);
	386	}
	387
74e0093f	388	}
	389
	390	?>