[platal.git] / modules / marketing.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 MarketingModule extends PLModule
{
    function handlers()
    {
        return array(
            'marketing'            => $this->make_hook('marketing',  AUTH_PASSWD, 'admin'),
            'marketing/promo'      => $this->make_hook('promo',      AUTH_PASSWD, 'admin'),
            'marketing/relance'    => $this->make_hook('relance',    AUTH_PASSWD, 'admin'),
            'marketing/this_week'  => $this->make_hook('week',       AUTH_PASSWD, 'admin'),
            'marketing/volontaire' => $this->make_hook('volontaire', AUTH_PASSWD, 'admin'),

            'marketing/private'    => $this->make_hook('private',    AUTH_PASSWD, 'admin'),
            'marketing/public'     => $this->make_hook('public',     AUTH_COOKIE, 'user'),
            'marketing/broken'     => $this->make_hook('broken',     AUTH_COOKIE, 'user'),
        );
    }

    function handler_marketing($page)
    {
        $page->changeTpl('marketing/index.tpl');
        $page->setTitle('Marketing');

        $alive = array(
            'all'    => new ProfileFilter(new PFC_Not(new UFC_Dead())),
            'women'  => new ProfileFilter(new PFC_And(new UFC_Sex(User::GENDER_FEMALE) , new PFC_Not(new UFC_Dead()))),
            'x'      => new ProfileFilter(new PFC_And(new PFC_Not(new UFC_Dead()), new UFC_AccountType('x'))),
            '72'     => new ProfileFilter(new PFC_And(new UFC_Promo('>=', UserFilter::GRADE_ING, 1972), new PFC_Not(new UFC_Dead()))),
            'master' => new ProfileFilter(new PFC_And(new PFC_Not(new UFC_Dead()), new UFC_AccountType('master'))),
            'phd'    => new ProfileFilter(new PFC_And(new PFC_Not(new UFC_Dead()), new UFC_AccountType('phd')))
        );
        $registered = array(
            'all'    => new ProfileFilter(new PFC_And(new UFC_Registered(true), new PFC_Not(new UFC_Dead()))),
            'women'  => new ProfileFilter(new PFC_And(new UFC_Registered(true), new UFC_Sex(User::GENDER_FEMALE), new PFC_Not(new UFC_Dead()))),
            'x'      => new ProfileFilter(new PFC_And(new UFC_Registered(true), new PFC_Not(new UFC_Dead()), new UFC_AccountType('x'))),
            '72'     => new ProfileFilter(new PFC_And(new UFC_Registered(true), new UFC_Promo('>=', UserFilter::GRADE_ING, 1972), new PFC_Not(new UFC_Dead()))),
            'master' => new ProfileFilter(new PFC_And(new UFC_Registered(true), new PFC_Not(new UFC_Dead()), new UFC_AccountType('master'))),
            'phd'    => new ProfileFilter(new PFC_And(new UFC_Registered(true), new PFC_Not(new UFC_Dead()), new UFC_AccountType('phd')))
        );
        $statistics = array(
            'all'    => array('description' => "Étudiants et anciens de l'X"),
            'women'  => array('description' => "Étudiantes et anciennes de l'X"),
            'x'      => array('description' => 'X'),
            '72'     => array('description' => 'X vivants depuis la promo 1972'),
            'master' => array('description' => "Masters de l'X"),
            'phd'    => array('description' => "Docteurs de l'X")
        );
        foreach ($statistics as $key => &$data) {
            $data['alive'] = $alive[$key]->getTotalCount();
            $data['registered'] = $registered[$key]->getTotalCount();
            $data['rate'] = round($data['registered'] / $data['alive'] * 100, 2);
        }

        $registeredWeek = new ProfileFilter(new PFC_And(new UFC_Registered(true, '>=', strtotime('1 week ago')), new PFC_Not(new UFC_Dead())));
        $registrationPending = XDB::fetchOneCell('SELECT  COUNT(*)
                                                    FROM  register_pending');
        $registrations = array(
            'week'    => $registeredWeek->getTotalCount(),
            'pending' => $registrationPending,
        );

        $ok = XDB::fetchOneCell('SELECT  COUNT(*)
                                   FROM  register_mstats
                                  WHERE  success != \'0000-00-00\'');
        $okWeek = XDB::fetchOneCell('SELECT  COUNT(*)
                                       FROM  register_mstats
                                      WHERE  success >= {?}', strtotime('1 week ago'));
        $res = XDB::fetchAllAssoc('SELECT  type, COUNT(*) as count
                                     FROM  register_marketing
                                 GROUP BY  type');
        $no = array();
        foreach ($res as $value) {
            $no[$value['type']] = $value['count'];
        }
        $no['week'] = XDB::fetchOneCell('SELECT  COUNT(*)
                                           FROM  register_marketing
                                          WHERE  last >= {?}', strtotime('1 week ago'));
        $marketings = array(
            'ok'      => $ok,
            'okWeek'  => $okWeek,
            'noPerso' => (isset($no['user']) ? $no['user'] : 0),
            'noXorg'  => (isset($no['staff']) ? $no['staff'] : 0),
            'noAX'    => (isset($no['ax']) ? $no['ax'] : 0),
            'noWeek'  => $no['week'],
        );

        $page->assign('statistics', $statistics);
        $page->assign('registrations', $registrations);
        $page->assign('marketings', $marketings);
    }

    function handler_private($page, $hruid = null,
                             $action = null, $value = null)
    {
        global $globals;
        $page->changeTpl('marketing/private.tpl');

        $user = User::getSilent($hruid);
        if (!$user) {
            return PL_NOT_FOUND;
        }

        // Retrieves marketed user details.
        if ($user->state != 'pending') {
            $page->kill('Cet utilisateur est déjà inscrit');
        }
        if (!$user->hasProfile()) {
            $page->kill('Cet utilisateur n\'est pas concerné par le marketing');
        }
        $matricule = $user->profile()->xorg_id;

        $matricule_X = Profile::getSchoolId($matricule);

        $page->assign('full_name', $user->fullName());
        $page->assign('promo', $user->promo());
        $page->assign('matricule', $matricule);
        $page->assign('matricule_X',$matricule_X);

        // Applies in-parameter action to the user.
        if ($action == 'del') {
            S::assert_xsrf_token();
            Marketing::clear($user->id(), $value);
        }

        if ($action == 'rel') {
            $market = Marketing::get($user->id(), $value);
            if ($market == null) {
                $page->trigWarning("Aucun marketing n'a été effectué vers $value");
            } else {
                $to    = $market->user['to'];
                $title = $market->getTitle();
                $text  = $market->getText();
                $from  = $market->sender_mail;
                $page->assign('rel_from_user', $from);
                $page->assign('rel_from_staff',
                              '"Equipe Polytechnique.org" <register@' . $globals->mail->domain . '>');
                $page->assign('rel_to', $to);
                $page->assign('rel_title', $title);
                $page->assign('rel_text', $text);
                $page->assign('rel_email', $value);
            }
        }

        if ($action == 'relforce') {
            S::assert_xsrf_token();

            $market = Marketing::get($user->id(), Post::v('to'));
            if (is_null($market)) {
                $market = new Marketing($user->id(), Post::v('to'), 'default', null, 'staff');
            }
            $market->send(Post::v('title'), Post::v('message'));
            $page->trigSuccess("Email envoyé");
        }

        if ($action == 'insrel') {
            S::assert_xsrf_token();
            if (Marketing::relance($user->id())) {
                $page->trigSuccess('relance faite');
            }
        }

        if ($action == 'add' && Post::has('email') && Post::has('type')) {
            $market = new Marketing($user->id(), Post::v('email'), 'default', null, Post::v('type'), S::v('uid'));
            $market->add(false);
        }

        // Retrieves and display the existing marketing attempts.
        $res = XDB::iterator(
                "SELECT  r.*, s.email AS alias
                   FROM  register_marketing   AS r
              LEFT JOIN  email_source_account AS s ON (r.sender = s.uid AND s.type = 'forlife')
                  WHERE  r.uid = {?}
               ORDER BY  date", $user->id());
        $page->assign('addr', $res);

        $res = XDB::query("SELECT date, relance FROM register_pending
                            WHERE uid = {?}", $user->id());
        if (list($pending, $relance) = $res->fetchOneRow()) {
            $page->assign('pending', $pending);
            $page->assign('relance', $relance);
        }

        $page->assign('path', 'marketing/private/' . $user->login());
    }

    function handler_broken($page, $uid = null)
    {
        $page->changeTpl('marketing/broken.tpl');

        if (is_null($uid)) {
            return PL_NOT_FOUND;
        }

        $user = User::get($uid);
        if (!$user) {
            return PL_NOT_FOUND;
        } elseif ($user->login() == S::user()->login()) {
            pl_redirect('emails/redirect');
        }

        $res = XDB::query('SELECT  p.deathdate IS NULL AS alive, r.last, IF(r.type = \'googleapps\', \'googleapps\', r.redirect) AS active_email
                             FROM  accounts               AS a
                        LEFT JOIN  email_redirect_account AS r  ON (a.uid = r.uid AND r.type IN (\'smtp\', \'googleapps\') AND r.flags = \'active\')
                        LEFT JOIN  account_profiles       AS ap ON (ap.uid = r.uid AND FIND_IN_SET(\'owner\', ap.perms))
                        LEFT JOIN  profiles               AS p  ON (p.pid = ap.pid)
                            WHERE  a.uid = {?}
                         ORDER BY  r.broken_level, r.last',
                          $user->id());
        if (!$res->numRows()) {
            return PL_NOT_FOUND;
        }
        $user->addProperties($res->fetchOneAssoc());
        $page->assign('user', $user);

        $email = null;
        require_once 'emails.inc.php';
        if (Post::has('mail')) {
            $email = valide_email(Post::v('mail'));
        }
        if (Post::has('valide') && isvalid_email_redirection($email, $user)) {
            S::assert_xsrf_token();

            // security stuff
            check_email($email, "Proposition d'une adresse surveillee pour " . $user->login() . " par " . S::user()->login());
            $state = XDB::fetchOneCell('SELECT  flags
                                          FROM  email_redirect_account
                                         WHERE  redirect = {?} AND uid = {?}',
                                       $email, $user->id());
            if ($state == 'broken') {
                $page->trigWarning("L'adresse que tu as fournie est l'adresse actuelle de {$user->fullName()} et est en panne.");
            } elseif ($state == 'active') {
                $page->trigWarning("L'adresse que tu as fournie est l'adresse actuelle de {$user->fullName()}");
            } elseif ($user->email && !Post::t('comment')) {
                $page->trigError("Il faut que tu ajoutes un commentaire à ta proposition pour justifier le "
                               . "besoin de changer la redirection de {$user->fullName()}.");
            } else {
                $valid = new BrokenReq(S::user(), $user, $email, trim(Post::v('comment')));
                $valid->submit();
                $page->assign('sent', true);
            }
        } elseif ($email) {
            $page->trigError("L'adresse proposée n'est pas une adresse acceptable pour une redirection.");
        }
    }

    function handler_promo($page, $promo = null)
    {
        $page->changeTpl('marketing/promo.tpl');

        if (is_null($promo)) {
            $promo = S::v('promo', S::user()->promo());
        }
        $page->assign('promo', $promo);

        $uf = new UserFilter(new PFC_And(new UFC_Promo('=', UserFilter::DISPLAY, $promo),
                                         new PFC_Not(new UFC_Registered()),
                                         new PFC_Not(new UFC_Dead())),
                             array(new UFO_Name()));
        $users = $uf->getUsers();
        $page->assign('nonins', $users);
    }

    function handler_public($page, $hruid = null)
    {
        $page->changeTpl('marketing/public.tpl');

        // Retrieves the user info, and checks the user is not yet registered.
        $user = User::getSilent($hruid);
        if (!$user || !$user->hasProfile()) {
            return PL_NOT_FOUND;
        }

        if ($user->state != 'pending') {
            $page->kill('Cet utilisateur est déjà inscrit');
        }

        // Displays the page, and handles the eventual user actions.
        $page->assign('full_name', $user->fullName());
        $page->assign('promo', $user->promo());

        if (Post::has('valide')) {
            S::assert_xsrf_token();
            $email = trim(Post::v('mail'));

            require_once 'emails.inc.php';
            if (!isvalid_email_redirection($email, $user)) {
                $page->trigError('Email invalide&nbsp;!');
            } else {
                // On cherche les marketings précédents sur cette adresse
                // email, en se restreignant au dernier mois

                if (Marketing::get($user->id(), $email, true)) {
                    $page->assign('already', true);
                } else {
                    $page->assign('ok', true);
                    check_email($email, "Une adresse surveillée est proposée au marketing par " . S::user()->login());
                    $market = new Marketing($user->id(), $email, 'default', null, Post::v('origine'), S::v('uid'),
                                            Post::v('origine') == 'user' ? Post::v('personal_notes') : null);
                    $market->add();
                }
            }
        } else {
            global $globals;
            require_once 'marketing.inc.php';

            $sender = User::getSilent(S::v('uid'));
            $perso_signature = 'Cordialement,<br />-- <br />' . $sender->fullName();
            $market = new AnnuaireMarketing(null, true);
            $text = $market->getText(array(
                'sexe'           => $user->isFemale(),
                'forlife_email'  => $user->hruid . "@" . $user->mainEmailDomain(),
                'forlife_email2' => $user->hruid . "@" . $user->alternateEmailDomain()
            ));
            $text = str_replace('%%hash%%', '', $text);
            $text = str_replace('%%personal_notes%%', '<em id="personal_notes_display"></em>', $text);
            $text = str_replace('%%sender%%',
                                '<span id="sender">' . $perso_signature . '</span>', $text);
            $page->assign('text', nl2br($text));
            $page->assign('perso_signature', $perso_signature);
            $page->assign('mail_part', 'escaped_html');
        }
    }

    function handler_week($page, $sorting = 'per_promo')
    {
        $page->changeTpl('marketing/this_week.tpl');

        $sort = $sorting == 'per_promo' ? new UFO_Promo() : new UFO_Registration();

        $uf = new UserFilter(new UFC_Registered(false, '>', strtotime('1 week ago')), $sort);
        $page->assign('users', $uf->getUsers());
    }

    function handler_volontaire($page, $promo = null)
    {
        $page->changeTpl('marketing/volontaire.tpl');

        $res = XDB::query(
                'SELECT DISTINCT  pd.promo
                   FROM  register_marketing AS m
             INNER JOIN  account_profiles AS ap ON (m.uid = ap.uid AND FIND_IN_SET(\'owner\', ap.perms))
             INNER JOIN  profile_display AS pd ON (pd.pid = ap.pid)
               ORDER BY  pd.promo');
        $page->assign('promos', $res->fetchColumn());


        if (!is_null($promo)) {
            $it = XDB::iterator('SELECT  m.uid, m.email, s.email AS forlife
                                   FROM  register_marketing AS m
                             INNER JOIN  account_profiles AS ap ON (m.uid = ap.uid AND FIND_IN_SET(\'owner\', ap.perms))
                             INNER JOIN  profile_display AS pd ON (pd.pid = ap.pid)
                              LEFT JOIN  email_source_account AS s ON (m.sender = s.uid AND s.type = \'forlife\')
                                  WHERE  pd.promo = {?}
                               ORDER BY  pd.sort_name', $promo);
            $page->assign('addr', $it);
        }
    }

    function handler_relance($page)
    {
        $page->changeTpl('marketing/relance.tpl');

        if (Post::has('relancer')) {
            global $globals;
            $nbdix = $globals->core->NbIns;

            $sent  = Array();
            $users = User::getBulkUsersWithUIDs($_POST['relance']);
            foreach ($users as $user) {
                if ($tmp = Marketing::relance($user, $nbdix)) {
                    $sent[] = $tmp . ' a été relancé.';
                }
            }
            $page->assign('sent', $sent);
        }

        $page->assign('relance', XDB::iterator('SELECT  r.date, r.relance, r.uid
                                                  FROM  register_pending AS r
                                                 WHERE  hash != \'INSCRIT\'
                                              ORDER BY  date DESC'));
    }
}

// vim:set et sw=4 sts=4 sws=4 foldmethod=marker fenc=utf-8:
?>
Commit	Line	Data
10b057be	1	<?php
10b057be	2	/***************************************************************************
c441aabe	3	* Copyright (C) 2003-2014 Polytechnique.org *
10b057be	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 MarketingModule extends PLModule
	23	{
	24	function handlers()
	25	{
	26	return array(
bfe9f4c7 SJ	27	'marketing' => $this->make_hook('marketing', AUTH_PASSWD, 'admin'),
	28	'marketing/promo' => $this->make_hook('promo', AUTH_PASSWD, 'admin'),
	29	'marketing/relance' => $this->make_hook('relance', AUTH_PASSWD, 'admin'),
	30	'marketing/this_week' => $this->make_hook('week', AUTH_PASSWD, 'admin'),
	31	'marketing/volontaire' => $this->make_hook('volontaire', AUTH_PASSWD, 'admin'),
10b057be	32
bfe9f4c7	33	'marketing/private' => $this->make_hook('private', AUTH_PASSWD, 'admin'),
e5ceaa8c RB	34	'marketing/public' => $this->make_hook('public', AUTH_COOKIE, 'user'),
e5ceaa8c RB	35	'marketing/broken' => $this->make_hook('broken', AUTH_COOKIE, 'user'),
10b057be	36	);
	37	}
	38
26ba053e	39	function handler_marketing($page)
10b057be	40	{
10b057be	41	$page->changeTpl('marketing/index.tpl');
46f272fe	42	$page->setTitle('Marketing');
20eca0a9	43
bc762010 SJ	44	$alive = array(
	45	'all' => new ProfileFilter(new PFC_Not(new UFC_Dead())),
	46	'women' => new ProfileFilter(new PFC_And(new UFC_Sex(User::GENDER_FEMALE) , new PFC_Not(new UFC_Dead()))),
	47	'x' => new ProfileFilter(new PFC_And(new PFC_Not(new UFC_Dead()), new UFC_AccountType('x'))),
	48	'72' => new ProfileFilter(new PFC_And(new UFC_Promo('>=', UserFilter::GRADE_ING, 1972), new PFC_Not(new UFC_Dead()))),
	49	'master' => new ProfileFilter(new PFC_And(new PFC_Not(new UFC_Dead()), new UFC_AccountType('master'))),
	50	'phd' => new ProfileFilter(new PFC_And(new PFC_Not(new UFC_Dead()), new UFC_AccountType('phd')))
	51	);
	52	$registered = array(
	53	'all' => new ProfileFilter(new PFC_And(new UFC_Registered(true), new PFC_Not(new UFC_Dead()))),
	54	'women' => new ProfileFilter(new PFC_And(new UFC_Registered(true), new UFC_Sex(User::GENDER_FEMALE), new PFC_Not(new UFC_Dead()))),
dfc43c27	55	'x' => new ProfileFilter(new PFC_And(new UFC_Registered(true), new PFC_Not(new UFC_Dead()), new UFC_AccountType('x'))),
bc762010 SJ	56	'72' => new ProfileFilter(new PFC_And(new UFC_Registered(true), new UFC_Promo('>=', UserFilter::GRADE_ING, 1972), new PFC_Not(new UFC_Dead()))),
	57	'master' => new ProfileFilter(new PFC_And(new UFC_Registered(true), new PFC_Not(new UFC_Dead()), new UFC_AccountType('master'))),
	58	'phd' => new ProfileFilter(new PFC_And(new UFC_Registered(true), new PFC_Not(new UFC_Dead()), new UFC_AccountType('phd')))
	59	);
20eca0a9	60	$statistics = array(
bc762010 SJ	61	'all' => array('description' => "Étudiants et anciens de l'X"),
	62	'women' => array('description' => "Étudiantes et anciennes de l'X"),
	63	'x' => array('description' => 'X'),
	64	'72' => array('description' => 'X vivants depuis la promo 1972'),
	65	'master' => array('description' => "Masters de l'X"),
	66	'phd' => array('description' => "Docteurs de l'X")
20eca0a9	67	);
bc762010 SJ	68	foreach ($statistics as $key => &$data) {
	69	$data['alive'] = $alive[$key]->getTotalCount();
	70	$data['registered'] = $registered[$key]->getTotalCount();
	71	$data['rate'] = round($data['registered'] / $data['alive'] * 100, 2);
	72	}
20eca0a9	73
27371bea	74	$registeredWeek = new ProfileFilter(new PFC_And(new UFC_Registered(true, '>=', strtotime('1 week ago')), new PFC_Not(new UFC_Dead())));
20eca0a9 SJ	75	$registrationPending = XDB::fetchOneCell('SELECT COUNT(*)
	76	FROM register_pending');
	77	$registrations = array(
	78	'week' => $registeredWeek->getTotalCount(),
	79	'pending' => $registrationPending,
	80	);
	81
	82	$ok = XDB::fetchOneCell('SELECT COUNT(*)
	83	FROM register_mstats
	84	WHERE success != \'0000-00-00\'');
	85	$okWeek = XDB::fetchOneCell('SELECT COUNT(*)
	86	FROM register_mstats
	87	WHERE success >= {?}', strtotime('1 week ago'));
	88	$res = XDB::fetchAllAssoc('SELECT type, COUNT(*) as count
	89	FROM register_marketing
	90	GROUP BY type');
	91	$no = array();
	92	foreach ($res as $value) {
	93	$no[$value['type']] = $value['count'];
	94	}
	95	$no['week'] = XDB::fetchOneCell('SELECT COUNT(*)
	96	FROM register_marketing
	97	WHERE last >= {?}', strtotime('1 week ago'));
	98	$marketings = array(
	99	'ok' => $ok,
	100	'okWeek' => $okWeek,
	101	'noPerso' => (isset($no['user']) ? $no['user'] : 0),
	102	'noXorg' => (isset($no['staff']) ? $no['staff'] : 0),
	103	'noAX' => (isset($no['ax']) ? $no['ax'] : 0),
	104	'noWeek' => $no['week'],
	105	);
	106
	107	$page->assign('statistics', $statistics);
	108	$page->assign('registrations', $registrations);
	109	$page->assign('marketings', $marketings);
10b057be	110	}
10b057be	111
26ba053e	112	function handler_private($page, $hruid = null,
926edcd1	113	$action = null, $value = null)
10b057be	114	{
115c90db	115	global $globals;
10b057be	116	$page->changeTpl('marketing/private.tpl');
10b057be	117
2455266e VZ	118	$user = User::getSilent($hruid);
2455266e VZ	119	if (!$user) {
10b057be	120	return PL_NOT_FOUND;
	121	}
	122
2455266e	123	// Retrieves marketed user details.
38c6fe96 FB	124	if ($user->state != 'pending') {
	125	$page->kill('Cet utilisateur est déjà inscrit');
	126	}
	127	if (!$user->hasProfile()) {
	128	$page->kill('Cet utilisateur n\'est pas concerné par le marketing');
10b057be	129	}
38c6fe96	130	$matricule = $user->profile()->xorg_id;
10b057be	131
69b46857	132	$matricule_X = Profile::getSchoolId($matricule);
2455266e VZ	133
	134	$page->assign('full_name', $user->fullName());
	135	$page->assign('promo', $user->promo());
	136	$page->assign('matricule', $matricule);
	137	$page->assign('matricule_X',$matricule_X);
	138
	139	// Applies in-parameter action to the user.
926edcd1	140	if ($action == 'del') {
ce8ec5a3	141	S::assert_xsrf_token();
2455266e	142	Marketing::clear($user->id(), $value);
10b057be	143	}
10b057be	144
926edcd1	145	if ($action == 'rel') {
2455266e	146	$market = Marketing::get($user->id(), $value);
e654517d	147	if ($market == null) {
a7d35093	148	$page->trigWarning("Aucun marketing n'a été effectué vers $value");
e654517d	149	} else {
	150	$to = $market->user['to'];
	151	$title = $market->getTitle();
	152	$text = $market->getText();
	153	$from = $market->sender_mail;
	154	$page->assign('rel_from_user', $from);
	155	$page->assign('rel_from_staff',
1d55fe45	156	'"Equipe Polytechnique.org" <register@' . $globals->mail->domain . '>');
e654517d	157	$page->assign('rel_to', $to);
	158	$page->assign('rel_title', $title);
	159	$page->assign('rel_text', $text);
	160	$page->assign('rel_email', $value);
	161	}
10b057be	162	}
10b057be	163
926edcd1	164	if ($action == 'relforce') {
ce8ec5a3 VZ	165	S::assert_xsrf_token();
ce8ec5a3 VZ	166
2455266e	167	$market = Marketing::get($user->id(), Post::v('to'));
e654517d	168	if (is_null($market)) {
2455266e	169	$market = new Marketing($user->id(), Post::v('to'), 'default', null, 'staff');
e654517d	170	}
e654517d	171	$market->send(Post::v('title'), Post::v('message'));
faefdbb7	172	$page->trigSuccess("Email envoyé");
10b057be	173	}
10b057be	174
926edcd1	175	if ($action == 'insrel') {
ce8ec5a3	176	S::assert_xsrf_token();
2455266e	177	if (Marketing::relance($user->id())) {
a7d35093	178	$page->trigSuccess('relance faite');
10b057be	179	}
	180	}
	181
926edcd1	182	if ($action == 'add' && Post::has('email') && Post::has('type')) {
2455266e	183	$market = new Marketing($user->id(), Post::v('email'), 'default', null, Post::v('type'), S::v('uid'));
e654517d	184	$market->add(false);
10b057be	185	}
10b057be	186
2455266e	187	// Retrieves and display the existing marketing attempts.
08cce2ff	188	$res = XDB::iterator(
6bc4c6ef SJ	189	"SELECT r.*, s.email AS alias
	190	FROM register_marketing AS r
	191	LEFT JOIN email_source_account AS s ON (r.sender = s.uid AND s.type = 'forlife')
9082ac5f	192	WHERE r.uid = {?}
2455266e	193	ORDER BY date", $user->id());
10b057be	194	$page->assign('addr', $res);
10b057be	195
08cce2ff	196	$res = XDB::query("SELECT date, relance FROM register_pending
2455266e	197	WHERE uid = {?}", $user->id());
54f962cd	198	if (list($pending, $relance) = $res->fetchOneRow()) {
0025a0c5	199	$page->assign('pending', $pending);
0025a0c5	200	$page->assign('relance', $relance);
10b057be	201	}
2455266e VZ	202
2455266e VZ	203	$page->assign('path', 'marketing/private/' . $user->login());
10b057be	204	}
10b057be	205
26ba053e	206	function handler_broken($page, $uid = null)
d216d84a	207	{
	208	$page->changeTpl('marketing/broken.tpl');
	209
	210	if (is_null($uid)) {
c441b5ed	211	return PL_NOT_FOUND;
c441b5ed	212	}
35211d07 VZ	213
	214	$user = User::get($uid);
	215	if (!$user) {
c441b5ed	216	return PL_NOT_FOUND;
35211d07	217	} elseif ($user->login() == S::user()->login()) {
c441b5ed	218	pl_redirect('emails/redirect');
d216d84a	219	}
d216d84a	220
6bc4c6ef SJ	221	$res = XDB::query('SELECT p.deathdate IS NULL AS alive, r.last, IF(r.type = \'googleapps\', \'googleapps\', r.redirect) AS active_email
	222	FROM accounts AS a
	223	LEFT JOIN email_redirect_account AS r ON (a.uid = r.uid AND r.type IN (\'smtp\', \'googleapps\') AND r.flags = \'active\')
	224	LEFT JOIN account_profiles AS ap ON (ap.uid = r.uid AND FIND_IN_SET(\'owner\', ap.perms))
	225	LEFT JOIN profiles AS p ON (p.pid = ap.pid)
	226	WHERE a.uid = {?}
	227	ORDER BY r.broken_level, r.last',
	228	$user->id());
d216d84a	229	if (!$res->numRows()) {
c441b5ed	230	return PL_NOT_FOUND;
d216d84a	231	}
5daf68f6 VZ	232	$user->addProperties($res->fetchOneAssoc());
5daf68f6 VZ	233	$page->assign('user', $user);
d216d84a	234
0d693e2f	235	$email = null;
c6310567	236	require_once 'emails.inc.php';
0d693e2f	237	if (Post::has('mail')) {
0d693e2f	238	$email = valide_email(Post::v('mail'));
0d693e2f	239	}
f4dda5fb	240	if (Post::has('valide') && isvalid_email_redirection($email, $user)) {
ce8ec5a3 VZ	241	S::assert_xsrf_token();
ce8ec5a3 VZ	242
0d693e2f	243	// security stuff
35211d07	244	check_email($email, "Proposition d'une adresse surveillee pour " . $user->login() . " par " . S::user()->login());
6bc4c6ef SJ	245	$state = XDB::fetchOneCell('SELECT flags
	246	FROM email_redirect_account
	247	WHERE redirect = {?} AND uid = {?}',
	248	$email, $user->id());
	249	if ($state == 'broken') {
5daf68f6	250	$page->trigWarning("L'adresse que tu as fournie est l'adresse actuelle de {$user->fullName()} et est en panne.");
0381e170	251	} elseif ($state == 'active') {
5daf68f6	252	$page->trigWarning("L'adresse que tu as fournie est l'adresse actuelle de {$user->fullName()}");
6bc4c6ef	253	} elseif ($user->email && !Post::t('comment')) {
a7d35093	254	$page->trigError("Il faut que tu ajoutes un commentaire à ta proposition pour justifier le "
5daf68f6	255	. "besoin de changer la redirection de {$user->fullName()}.");
0d693e2f	256	} else {
5daf68f6	257	$valid = new BrokenReq(S::user(), $user, $email, trim(Post::v('comment')));
0d693e2f	258	$valid->submit();
	259	$page->assign('sent', true);
	260	}
	261	} elseif ($email) {
6bc4c6ef	262	$page->trigError("L'adresse proposée n'est pas une adresse acceptable pour une redirection.");
d216d84a	263	}
	264	}
	265
26ba053e	266	function handler_promo($page, $promo = null)
10b057be	267	{
10b057be	268	$page->changeTpl('marketing/promo.tpl');
10b057be	269
0025a0c5	270	if (is_null($promo)) {
72318f05	271	$promo = S::v('promo', S::user()->promo());
10b057be	272	}
	273	$page->assign('promo', $promo);
	274
3c904393	275	$uf = new UserFilter(new PFC_And(new UFC_Promo('=', UserFilter::DISPLAY, $promo),
3195a111 SJ	276	new PFC_Not(new UFC_Registered()),
3195a111 SJ	277	new PFC_Not(new UFC_Dead())),
1a074f45	278	array(new UFO_Name()));
38c6fe96 FB	279	$users = $uf->getUsers();
38c6fe96 FB	280	$page->assign('nonins', $users);
10b057be	281	}
10b057be	282
26ba053e	283	function handler_public($page, $hruid = null)
10b057be	284	{
10b057be	285	$page->changeTpl('marketing/public.tpl');
10b057be	286
2455266e VZ	287	// Retrieves the user info, and checks the user is not yet registered.
2455266e VZ	288	$user = User::getSilent($hruid);
38c6fe96	289	if (!$user \|\| !$user->hasProfile()) {
10b057be	290	return PL_NOT_FOUND;
	291	}
	292
38c6fe96 FB	293	if ($user->state != 'pending') {
38c6fe96 FB	294	$page->kill('Cet utilisateur est déjà inscrit');
2455266e	295	}
10b057be	296
2455266e VZ	297	// Displays the page, and handles the eventual user actions.
	298	$page->assign('full_name', $user->fullName());
	299	$page->assign('promo', $user->promo());
10b057be	300
2455266e VZ	301	if (Post::has('valide')) {
	302	S::assert_xsrf_token();
	303	$email = trim(Post::v('mail'));
	304
	305	require_once 'emails.inc.php';
f4dda5fb	306	if (!isvalid_email_redirection($email, $user)) {
6bb2f79a	307	$page->trigError('Email invalide !');
2455266e VZ	308	} else {
	309	// On cherche les marketings précédents sur cette adresse
	310	// email, en se restreignant au dernier mois
8ded5b5e	311
2455266e VZ	312	if (Marketing::get($user->id(), $email, true)) {
2455266e VZ	313	$page->assign('already', true);
10b057be	314	} else {
2455266e VZ	315	$page->assign('ok', true);
2455266e VZ	316	check_email($email, "Une adresse surveillée est proposée au marketing par " . S::user()->login());
232577de SJ	317	$market = new Marketing($user->id(), $email, 'default', null, Post::v('origine'), S::v('uid'),
232577de SJ	318	Post::v('origine') == 'user' ? Post::v('personal_notes') : null);
2455266e	319	$market->add();
10b057be	320	}
10b057be	321	}
6400e601 SJ	322	} else {
	323	global $globals;
	324	require_once 'marketing.inc.php';
	325
	326	$sender = User::getSilent(S::v('uid'));
c3e0d3c1	327	$perso_signature = 'Cordialement,<br />-- <br />' . $sender->fullName();
232577de	328	$market = new AnnuaireMarketing(null, true);
6400e601 SJ	329	$text = $market->getText(array(
6400e601 SJ	330	'sexe' => $user->isFemale(),
c3d23491 VB	331	'forlife_email' => $user->hruid . "@" . $user->mainEmailDomain(),
c3d23491 VB	332	'forlife_email2' => $user->hruid . "@" . $user->alternateEmailDomain()
6400e601	333	));
232577de SJ	334	$text = str_replace('%%hash%%', '', $text);
	335	$text = str_replace('%%personal_notes%%', '<em id="personal_notes_display"></em>', $text);
	336	$text = str_replace('%%sender%%',
c3e0d3c1	337	'<span id="sender">' . $perso_signature . '</span>', $text);
6400e601	338	$page->assign('text', nl2br($text));
c3e0d3c1 SJ	339	$page->assign('perso_signature', $perso_signature);
c3e0d3c1 SJ	340	$page->assign('mail_part', 'escaped_html');
10b057be	341	}
10b057be	342	}
10b057be	343
26ba053e	344	function handler_week($page, $sorting = 'per_promo')
10b057be	345	{
10b057be	346	$page->changeTpl('marketing/this_week.tpl');
10b057be	347
38c6fe96	348	$sort = $sorting == 'per_promo' ? new UFO_Promo() : new UFO_Registration();
10b057be	349
38c6fe96 FB	350	$uf = new UserFilter(new UFC_Registered(false, '>', strtotime('1 week ago')), $sort);
38c6fe96 FB	351	$page->assign('users', $uf->getUsers());
10b057be	352	}
10b057be	353
26ba053e	354	function handler_volontaire($page, $promo = null)
10b057be	355	{
10b057be	356	$page->changeTpl('marketing/volontaire.tpl');
10b057be	357
08cce2ff	358	$res = XDB::query(
38c6fe96	359	'SELECT DISTINCT pd.promo
10b057be	360	FROM register_marketing AS m
38c6fe96 FB	361	INNER JOIN account_profiles AS ap ON (m.uid = ap.uid AND FIND_IN_SET(\'owner\', ap.perms))
	362	INNER JOIN profile_display AS pd ON (pd.pid = ap.pid)
	363	ORDER BY pd.promo');
10b057be	364	$page->assign('promos', $res->fetchColumn());
	365
	366
7c8a4874	367	if (!is_null($promo)) {
6bc4c6ef	368	$it = XDB::iterator('SELECT m.uid, m.email, s.email AS forlife
38c6fe96 FB	369	FROM register_marketing AS m
	370	INNER JOIN account_profiles AS ap ON (m.uid = ap.uid AND FIND_IN_SET(\'owner\', ap.perms))
	371	INNER JOIN profile_display AS pd ON (pd.pid = ap.pid)
6bc4c6ef	372	LEFT JOIN email_source_account AS s ON (m.sender = s.uid AND s.type = \'forlife\')
11f2c0a7 RB	373	WHERE pd.promo = {?}
11f2c0a7 RB	374	ORDER BY pd.sort_name', $promo);
38c6fe96	375	$page->assign('addr', $it);
10b057be	376	}
10b057be	377	}
10b057be	378
26ba053e	379	function handler_relance($page)
10b057be	380	{
10b057be	381	$page->changeTpl('marketing/relance.tpl');
	382
	383	if (Post::has('relancer')) {
19721970 SJ	384	global $globals;
19721970 SJ	385	$nbdix = $globals->core->NbIns;
10b057be	386
10b057be	387	$sent = Array();
38c6fe96 FB	388	$users = User::getBulkUsersWithUIDs($_POST['relance']);
	389	foreach ($users as $user) {
	390	if ($tmp = Marketing::relance($user, $nbdix)) {
846c391e	391	$sent[] = $tmp . ' a été relancé.';
10b057be	392	}
	393	}
	394	$page->assign('sent', $sent);
	395	}
	396
38c6fe96 FB	397	$page->assign('relance', XDB::iterator('SELECT r.date, r.relance, r.uid
	398	FROM register_pending AS r
	399	WHERE hash != \'INSCRIT\'
	400	ORDER BY date DESC'));
10b057be	401	}
	402	}
	403
448c8cdc	404	// vim:set et sw=4 sts=4 sws=4 foldmethod=marker fenc=utf-8:
10b057be	405	?>