[platal.git] / modules / marketing.php

<?php
/***************************************************************************
 *  Copyright (C) 2003-2011 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_MDP, 'admin'),
            'marketing/promo'      => $this->make_hook('promo',      AUTH_MDP, 'admin'),
            'marketing/relance'    => $this->make_hook('relance',    AUTH_MDP, 'admin'),
            'marketing/this_week'  => $this->make_hook('week',       AUTH_MDP, 'admin'),
            'marketing/volontaire' => $this->make_hook('volontaire', AUTH_MDP, 'admin'),

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

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

        $alive = new UserFilter(new PFC_Not(new UFC_Dead()));
        $registered = new UserFilter(new PFC_And(new UFC_Registered(), new PFC_Not(new UFC_Dead())));
        $alive72 = new UserFilter(new PFC_And(new UFC_Promo('>=', UserFilter::GRADE_ING, 1972), new PFC_Not(new UFC_Dead())));
        $registered72 = new UserFilter(new PFC_And(new UFC_Registered(), new UFC_Promo('>=', UserFilter::GRADE_ING, 1972), new PFC_Not(new UFC_Dead())));
        $aliveWomen = new UserFilter(new PFC_And(new UFC_Sex(User::GENDER_FEMALE) , new PFC_Not(new UFC_Dead())));
        $registeredWomen = new UserFilter(new PFC_And(new UFC_Registered(), new UFC_Sex(User::GENDER_FEMALE), new PFC_Not(new UFC_Dead())));
        $statistics = array(
            'alive'           => $alive->getTotalCount(),
            'registered'      => $registered->getTotalCount(),
            'alive72'         => $alive72->getTotalCount(),
            'registered72'    => $registered72->getTotalCount(),
            'womenAlive'      => $aliveWomen->getTotalCount(),
            'womenRegistered' => $registeredWomen->getTotalCount(),
        );
        $statistics['registeredRate']      = $statistics['registered'] / $statistics['alive'] * 100;
        $statistics['registeredRate72']    = $statistics['registered72'] / $statistics['alive72'] * 100;
        $statistics['womenRegisteredRate'] = $statistics['womenRegistered'] / $statistics['womenAlive'] * 100;

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