modules/marketing.php

   1 <?php
   2 /***************************************************************************
   3  *  Copyright (C) 2003-2009 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 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),
  35             'marketing/broken'     => $this->make_hook('broken',     AUTH_COOKIE),
  36         );
  37     }
  38
  39     function handler_marketing(&$page)
  40     {
  41         $page->changeTpl('marketing/index.tpl');
  42
  43         $page->setTitle('Marketing');
  44         $page->trigWarning("Les statistiques sont momentanéement désactivées");
  45     }
  46
  47     function handler_private(&$page, $hruid = null,
  48                              $action = null, $value = null)
  49     {
  50         global $globals;
  51         $page->changeTpl('marketing/private.tpl');
  52
  53         $user = User::getSilent($hruid);
  54         if (!$user) {
  55             return PL_NOT_FOUND;
  56         }
  57
  58         // Retrieves marketed user details.
  59         if ($user->state != 'pending') {
  60             $page->kill('Cet utilisateur est déjà inscrit');
  61         }
  62         if (!$user->hasProfile()) {
  63             $page->kill('Cet utilisateur n\'est pas concerné par le marketing');
  64         }
  65         $matricule = $user->profile()->xorg_id;
  66
  67         require_once('user.func.inc.php');
  68         $matricule_X = get_X_mat($matricule);
  69
  70         $page->assign('full_name', $user->fullName());
  71         $page->assign('promo', $user->promo());
  72         $page->assign('matricule', $matricule);
  73         $page->assign('matricule_X',$matricule_X);
  74
  75         // Applies in-parameter action to the user.
  76         if ($action == 'del') {
  77             S::assert_xsrf_token();
  78             Marketing::clear($user->id(), $value);
  79         }
  80
  81         if ($action == 'rel') {
  82             $market = Marketing::get($user->id(), $value);
  83             if ($market == null) {
  84                 $page->trigWarning("Aucun marketing n'a été effectué vers $value");
  85             } else {
  86                 $to    = $market->user['to'];
  87                 $title = $market->getTitle();
  88                 $text  = $market->getText();
  89                 $from  = $market->sender_mail;
  90                 $page->assign('rel_from_user', $from);
  91                 $page->assign('rel_from_staff',
  92                               '"Equipe Polytechnique.org" <register@' . $globals->mail->domain . '>');
  93                 $page->assign('rel_to', $to);
  94                 $page->assign('rel_title', $title);
  95                 $page->assign('rel_text', $text);
  96                 $page->assign('rel_email', $value);
  97             }
  98         }
  99
 100         if ($action == 'relforce') {
 101             S::assert_xsrf_token();
 102
 103             $market = Marketing::get($user->id(), Post::v('to'));
 104             if (is_null($market)) {
 105                 $market = new Marketing($user->id(), Post::v('to'), 'default', null, 'staff');
 106             }
 107             $market->send(Post::v('title'), Post::v('message'));
 108             $page->trigSuccess("Email envoyé");
 109         }
 110
 111         if ($action == 'insrel') {
 112             S::assert_xsrf_token();
 113             if (Marketing::relance($user->id())) {
 114                 $page->trigSuccess('relance faite');
 115             }
 116         }
 117
 118         if ($action == 'add' && Post::has('email') && Post::has('type')) {
 119             $market = new Marketing($user->id(), Post::v('email'), 'default', null, Post::v('type'), S::v('uid'));
 120             $market->add(false);
 121         }
 122
 123         // Retrieves and display the existing marketing attempts.
 124         $res = XDB::iterator(
 125                 "SELECT  r.*, a.alias
 126                    FROM  register_marketing AS r
 127               LEFT JOIN  aliases            AS a ON (r.sender=a.id AND a.type = 'a_vie')
 128                   WHERE  uid={?}
 129                ORDER BY  date", $user->id());
 130         $page->assign('addr', $res);
 131
 132         $res = XDB::query("SELECT date, relance FROM register_pending
 133                             WHERE uid = {?}", $user->id());
 134         if (list($pending, $relance) = $res->fetchOneRow()) {
 135             $page->assign('pending', $pending);
 136             $page->assign('relance', $relance);
 137         }
 138
 139         $page->assign('path', 'marketing/private/' . $user->login());
 140     }
 141
 142     function handler_broken(&$page, $uid = null)
 143     {
 144         $page->changeTpl('marketing/broken.tpl');
 145
 146         if (is_null($uid)) {
 147             return PL_NOT_FOUND;
 148         }
 149
 150         $user = User::get($uid);
 151         if (!$user) {
 152             return PL_NOT_FOUND;
 153         } elseif ($user->login() == S::user()->login()) {
 154             pl_redirect('emails/redirect');
 155         }
 156
 157         $res = XDB::query(
 158                 "SELECT  u.deces = '0000-00-00' AS alive, e.last,
 159                          IF(e.email IS NOT NULL, e.email, IF(FIND_IN_SET('googleapps', u.mail_storage), 'googleapps', NULL)) AS email
 160                    FROM  auth_user_md5 AS u
 161               LEFT JOIN  emails        AS e ON (e.flags = 'active' AND e.uid = u.user_id)
 162                   WHERE  u.user_id = {?}
 163                ORDER BY  e.panne_level, e.last", $user->id());
 164         if (!$res->numRows()) {
 165             return PL_NOT_FOUND;
 166         }
 167         $user->addProperties($res->fetchOneAssoc());
 168         $page->assign('user', $user);
 169
 170         $email = null;
 171         require_once 'emails.inc.php';
 172         if (Post::has('mail')) {
 173             $email = valide_email(Post::v('mail'));
 174         }
 175         if (Post::has('valide') && isvalid_email_redirection($email)) {
 176             S::assert_xsrf_token();
 177
 178             // security stuff
 179             check_email($email, "Proposition d'une adresse surveillee pour " . $user->login() . " par " . S::user()->login());
 180             $res = XDB::query("SELECT  flags
 181                                  FROM  emails
 182                                 WHERE  email = {?} AND uid = {?}", $email, $user->id());
 183             $state = $res->numRows() ? $res->fetchOneCell() : null;
 184             if ($state == 'panne') {
 185                 $page->trigWarning("L'adresse que tu as fournie est l'adresse actuelle de {$user->fullName()} et est en panne.");
 186             } elseif ($state == 'active') {
 187                 $page->trigWarning("L'adresse que tu as fournie est l'adresse actuelle de {$user->fullName()}");
 188             } elseif ($user->email && !trim(Post::v('comment'))) {
 189                 $page->trigError("Il faut que tu ajoutes un commentaire à ta proposition pour justifier le "
 190                                . "besoin de changer la redirection de {$user->fullName()}.");
 191             } else {
 192                 require_once 'validations.inc.php';
 193                 $valid = new BrokenReq(S::user(), $user, $email, trim(Post::v('comment')));
 194                 $valid->submit();
 195                 $page->assign('sent', true);
 196             }
 197         } elseif ($email) {
 198             $page->trigError("L'adresse proposée n'est pas une adresse acceptable pour une redirection");
 199         }
 200     }
 201
 202     function handler_promo(&$page, $promo = null)
 203     {
 204         $page->changeTpl('marketing/promo.tpl');
 205
 206         if (is_null($promo)) {
 207             $promo = S::v('promo');
 208         }
 209         $page->assign('promo', $promo);
 210
 211         $uf = new UserFilter(new UFC_And(new UFC_Promo('=', UserFilter::DISPLAY, $promo),
 212                                             new UFC_Not(new UFC_Registered())),
 213                                 array(new UFO_Name(UserFilter::LASTNAME), new UFO_Name(UserFilter::FIRSTNAME)));
 214         $users = $uf->getUsers();
 215         $page->assign('nonins', $users);
 216     }
 217
 218     function handler_public(&$page, $hruid = null)
 219     {
 220         $page->changeTpl('marketing/public.tpl');
 221
 222         // Retrieves the user info, and checks the user is not yet registered.
 223         $user = User::getSilent($hruid);
 224         if (!$user || !$user->hasProfile()) {
 225             return PL_NOT_FOUND;
 226         }
 227
 228         if ($user->state != 'pending') {
 229             $page->kill('Cet utilisateur est déjà inscrit');
 230         }
 231
 232         // Displays the page, and handles the eventual user actions.
 233         $page->assign('full_name', $user->fullName());
 234         $page->assign('promo', $user->promo());
 235
 236         if (Post::has('valide')) {
 237             S::assert_xsrf_token();
 238             $email = trim(Post::v('mail'));
 239
 240             require_once 'emails.inc.php';
 241             if (!isvalid_email_redirection($email)) {
 242                 $page->trigError("Email invalide !");
 243             } else {
 244                 // On cherche les marketings précédents sur cette adresse
 245                 // email, en se restreignant au dernier mois
 246
 247                 if (Marketing::get($user->id(), $email, true)) {
 248                     $page->assign('already', true);
 249                 } else {
 250                     $page->assign('ok', true);
 251                     check_email($email, "Une adresse surveillée est proposée au marketing par " . S::user()->login());
 252                     $market = new Marketing($user->id(), $email, 'default', null, Post::v('origine'), S::v('uid'));
 253                     $market->add();
 254                 }
 255             }
 256         }
 257     }
 258
 259     function handler_week(&$page, $sorting = 'per_promo')
 260     {
 261         $page->changeTpl('marketing/this_week.tpl');
 262
 263         $sort = $sorting == 'per_promo' ? new UFO_Promo() : new UFO_Registration();
 264
 265         $uf = new UserFilter(new UFC_Registered(false, '>', strtotime('1 week ago')), $sort);
 266         $page->assign('users', $uf->getUsers());
 267     }
 268
 269     function handler_volontaire(&$page, $promo = null)
 270     {
 271         $page->changeTpl('marketing/volontaire.tpl');
 272
 273         $res = XDB::query(
 274                 'SELECT DISTINCT  pd.promo
 275                    FROM  register_marketing AS m
 276              INNER JOIN  account_profiles AS ap ON (m.uid = ap.uid AND FIND_IN_SET(\'owner\', ap.perms))
 277              INNER JOIN  profile_display AS pd ON (pd.pid = ap.pid)
 278                ORDER BY  pd.promo');
 279         $page->assign('promos', $res->fetchColumn());
 280
 281
 282         if (!is_null($promo)) {
 283             $it = XDB::iterator('SELECT  m.uid, m.email
 284                                    FROM  register_marketing AS m
 285                              INNER JOIN  account_profiles AS ap ON (m.uid = ap.uid AND FIND_IN_SET(\'owner\', ap.perms))
 286                              INNER JOIN  profile_display AS pd ON (pd.pid = ap.pid)
 287                                   WHERE  pd.promo = {?}', $promo);
 288             $page->assign('addr', $it);
 289         }
 290     }
 291
 292     function handler_relance(&$page)
 293     {
 294         $page->changeTpl('marketing/relance.tpl');
 295
 296         if (Post::has('relancer')) {
 297             $nbdix = Marketing::getAliveUsersCount();
 298
 299             $sent  = Array();
 300             $users = User::getBulkUsersWithUIDs($_POST['relance']);
 301             foreach ($users as $user) {
 302                 if ($tmp = Marketing::relance($user, $nbdix)) {
 303                     $sent[] = $tmp . ' a été relancé.';
 304                 }
 305             }
 306             $page->assign('sent', $sent);
 307         }
 308
 309         $page->assign('relance', XDB::iterator('SELECT  r.date, r.relance, r.uid
 310                                                   FROM  register_pending AS r
 311                                                  WHERE  hash != \'INSCRIT\'
 312                                               ORDER BY  date DESC'));
 313     }
 314 }
 315
 316 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
 317 ?>