include/marketing.inc.php

   1 <?php
   2 /***************************************************************************
   3  *  Copyright (C) 2003-2008 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 Marketing
  23 {
  24     static private $engines = array(
  25         //user name  => array(class name,          require data)
  26         'annuaire'   => array('AnnuaireMarketing', false),
  27         'groupe'     => array('GroupMarketing',    true),
  28         'liste'      => array('ListMarketing',     true),
  29     );
  30
  31     private $engine;
  32     public $sender_mail;
  33     public $user;
  34
  35     private $type;
  36     private $data;
  37     private $from;
  38     private $sender;
  39
  40     private $hash = '';
  41
  42     public function __construct($uid, $email, $type, $data, $from, $sender = null)
  43     {
  44         $this->user         = $this->getUser($uid, $email);
  45         $this->sender_mail  = $this->getFrom($from, $sender);
  46         $this->engine      =& $this->getEngine($type, $data, $from == 'user' ? $sender : null);
  47
  48         $this->type   = $type;
  49         $this->data   = $data;
  50         $this->from   = $from;
  51         $this->sender = $sender;
  52     }
  53
  54     private function getUser($uid, $email)
  55     {
  56         $user = User::getSilent($uid);
  57         if (!$user) {
  58             return null;
  59         }
  60
  61         global $globals;
  62         return array(
  63             'user'           => $user,
  64             'id'             => $user->id(),
  65             'sexe'           => $user->isFemale(),
  66             'mail'           => $email,
  67             'to'             => '"' . $user->fullName() . '" <' . $email . '>',
  68             'forlife_email'  => $user->login() . '@' . $globals->mail->domain,
  69             'forlife_email2' => $user->login() . '@' . $globals->mail->domain2,
  70         );
  71     }
  72
  73     private function getFrom($from, $sender)
  74     {
  75         global $globals;
  76
  77         if ($from == 'staff' || !($user = User::getSilent($sender))) {
  78             return '"L\'équipe de Polytechnique.org" <register@' . $globals->mail->domain . '>';
  79         }
  80         return '"' . $user->fullName() . '" <' . $user->bestEmail() . '>';
  81     }
  82
  83     private function &getEngine($type, $data, $from)
  84     {
  85         $class = $type . 'Marketing';
  86         if (!class_exists($class, false)) {
  87             $class= 'DefaultMarketing';
  88         }
  89         $engine = new $class($data, $from);
  90         if (!$engine instanceof MarketingEngine) {
  91             $engine = null;
  92         }
  93         return $engine;
  94     }
  95
  96     public function getTitle()
  97     {
  98         return $this->engine->getTitle();
  99     }
 100
 101     public function getText()
 102     {
 103         return $this->engine->getText($this->user);
 104     }
 105
 106     public function send($title = null, $text = null)
 107     {
 108         $this->hash = rand_url_id(12);
 109         if (!$title) {
 110             $title = $this->engine->getTitle();
 111         }
 112         if (!$text) {
 113             $text = $this->engine->getText($this->user);
 114         }
 115         $sender = substr($this->sender_mail, 1, strpos($this->sender_mail, '"', 2)-1);
 116         $text = str_replace(array("%%hash%%", "%%sender%%"),
 117             array($this->hash, $this->sender_mail),
 118             $text);
 119         $mailer = new PlMailer();
 120         $mailer->setFrom($this->sender_mail);
 121         $mailer->addTo($this->user['mail']);
 122         $mailer->setSubject($title);
 123         $mailer->setTxtBody($text);
 124         $mailer->send();
 125         $this->incr();
 126     }
 127
 128     public function add($valid = true)
 129     {
 130         XDB::execute('INSERT IGNORE INTO  register_marketing
 131                                           (uid, sender, email, date, last, nb, type, hash, message, message_data)
 132                                   VALUES  ({?}, {?}, {?}, NOW(), 0, 0, {?}, {?}, {?}, {?})',
 133                     $this->user['id'], $this->sender, $this->user['mail'], $this->from, $this->hash,
 134                     $this->type, $this->data);
 135         $this->engine->process($this->user);
 136         if ($valid) {
 137             require_once 'validations.inc.php';
 138             $valid = new MarkReq(User::getSilent($this->sender), $this->user['user'], $this->user['mail'],
 139                                  $this->from == 'user', $this->type, $this->data);
 140             $valid->submit();
 141         }
 142         return true;
 143     }
 144
 145     private function incr()
 146     {
 147         XDB::execute('UPDATE  register_marketing
 148                          SET  nb=nb+1, hash={?}, last=NOW()
 149                        WHERE  uid={?} AND email={?}',
 150             $this->hash, $this->user['id'], $this->user['mail']);
 151     }
 152
 153     static public function getEngineList($exclude_data = true)
 154     {
 155         $array = array();
 156         foreach (Marketing::$engines as $e => $d) {
 157             if (!$d[1] || !$exclude_data) {
 158                 $array[] = $e;
 159             }
 160         }
 161         return $array;
 162     }
 163
 164     static public function get($uid, $email, $recentOnly = false)
 165     {
 166         $res = XDB::query("SELECT  uid, email, message, message_data, type, sender
 167                              FROM  register_marketing
 168                             WHERE  uid = {?}
 169                               AND  email = {?}".(
 170               $recentOnly ? ' AND  DATEDIFF(NOW(), last) < 30' : ''), $uid, $email);
 171
 172         if ($res->numRows() == 0) {
 173             return null;
 174         }
 175         list ($uid, $email, $type, $data, $from, $sender) = $res->fetchOneRow();
 176         return new Marketing($uid, $email, $type, $data, $from, $sender);
 177     }
 178
 179     static public function clear($uid, $email = null)
 180     {
 181         if (!$email) {
 182             XDB::execute("DELETE FROM register_marketing WHERE uid = {?}", $uid);
 183         } else {
 184             XDB::execute("DELETE FROM register_marketing WHERE uid = {?} AND email = {?}", $uid, $email);
 185         }
 186     }
 187
 188     static public function relance($uid, $nbx = -1)
 189     {
 190         global $globals;
 191
 192         if ($nbx < 0) {
 193             $res = XDB::query("SELECT COUNT(*) FROM auth_user_md5 WHERE deces=0");
 194             $nbx = $res->fetchOneCell();
 195         }
 196
 197         $res = XDB::query("SELECT  r.date, u.promo, u.nom, u.prenom, r.email, r.bestalias
 198                              FROM  register_pending AS r
 199                        INNER JOIN  auth_user_md5    AS u ON u.user_id = r.uid
 200                             WHERE  hash != 'INSCRIT' AND uid = {?} AND
 201                                    (TO_DAYS(relance) IS NULL OR TO_DAYS(relance) < TO_DAYS(NOW()))",
 202                           $uid);
 203         if (!list($date, $promo, $nom, $prenom, $email, $alias) = $res->fetchOneRow()) {
 204             return false;
 205         }
 206
 207         $hash     = rand_url_id(12);
 208         $pass     = rand_pass();
 209         $pass_encrypted = sha1($pass);
 210         $fdate    = strftime('%d %B %Y', strtotime($date));
 211
 212         $mymail = new PlMailer('marketing/relance.mail.tpl');
 213         $mymail->assign('nbdix',      $nbx);
 214         $mymail->assign('fdate',      $fdate);
 215         $mymail->assign('lusername',  $alias);
 216         $mymail->assign('nveau_pass', $pass);
 217         $mymail->assign('baseurl',    $globals->baseurl);
 218         $mymail->assign('lins_id',    $hash);
 219         $mymail->assign('lemail',     $email);
 220         $mymail->assign('subj',       $alias.'@'.$globals->mail->domain);
 221         $mymail->send();
 222         XDB::execute('UPDATE  register_pending
 223                          SET  hash={?}, password={?}, relance=NOW()
 224                        WHERE  uid={?}', $hash, $pass_encrypted, $uid);
 225         return "$prenom $nom ($promo)";
 226     }
 227 }
 228
 229 interface MarketingEngine
 230 {
 231     public function __construct($data, $from);
 232     public function getTitle();
 233     public function getText(array $user);
 234     public function process(array $user);
 235 }
 236
 237 //
 238 class AnnuaireMarketing implements MarketingEngine
 239 {
 240     protected $titre;
 241     protected $intro;
 242     protected $signature;
 243
 244     public function __construct($data, $from)
 245     {
 246         $this->titre = "Rejoins la communauté polytechnicienne sur Internet";
 247         $this->intro = "   Tu n'as pas de fiche dans l'annuaire des polytechniciens sur Internet. "
 248                      . "Pour y figurer, il te suffit de visiter cette page ou de copier cette adresse "
 249                      . "dans la barre de ton navigateur :";
 250         if ($from === null) {
 251             $this->signature = "L'équipe de Polytechnique.org,\n"
 252                              . "Le portail des élèves & anciens élèves de l'École polytechnique";
 253         } else {
 254             $this->signature = "%%sender%%";
 255         }
 256     }
 257
 258     public function getTitle()
 259     {
 260         return $this->titre;
 261     }
 262
 263     private function getIntro()
 264     {
 265         return $this->intro;
 266     }
 267
 268     public function getSignature()
 269     {
 270         return $this->signature;
 271     }
 272
 273     protected function prepareText(PlPage &$page, array $user)
 274     {
 275         $page->assign('intro', $this->getIntro());
 276         $page->assign('u', $user);
 277         $page->assign('sign', $this->getSignature());
 278         $res = XDB::query("SELECT COUNT(*) FROM auth_user_md5 WHERE perms IN ('user', 'admin') AND deces = 0");
 279         $page->assign('num_users', $res->fetchOneCell());
 280     }
 281
 282     public function getText(array $user)
 283     {
 284         $page = new XorgPage();
 285         $page->changeTpl('marketing/marketing.mail.tpl', NO_SKIN);
 286         $this->prepareText($page, $user);
 287         return $page->raw();
 288     }
 289
 290     public function process(array $user)
 291     {
 292     }
 293 }
 294
 295 class ListMarketing extends AnnuaireMarketing
 296 {
 297     private $name;
 298     private $domain;
 299     public function __construct($data, $from)
 300     {
 301         list($this->name, $this->domain) = explode('@', $data);
 302         if ($from && ($user = User::getSilent($from))) {
 303             $from = $user->fullName();
 304         } else {
 305             $from = "Je";
 306         }
 307         $this->titre = "Un camarade solicite ton inscription à $data";
 308         $this->intro = "Polytechnique.org, l'annuaire des polytechniciens sur internet, "
 309             . "fournit de nombreux services aux groupes X, ainsi que des listes "
 310             . "de diffusion pour les X en faisant la demande.\n\n"
 311             . "$from solicite ton inscription à la liste <$data>. "
 312             . "Cependant, seuls les X inscrits sur Polytechnique.org peuvent "
 313             . "profiter de l'ensemble de nos services, c'est pourquoi nous te "
 314             . "proposons auparavant de t'inscrire sur notre site. Pour cela, il "
 315             . "te suffit de visiter cette page ou de copier cette adresse dans "
 316             . "la barre de ton navigateur :";
 317     }
 318
 319     public function process(array $user)
 320     {
 321         return XDB::execute("REPLACE INTO  register_subs (uid, type, sub, domain)
 322             VALUES  ({?}, 'list', {?}, {?})",
 323                 $user['id'], $this->name, $this->domain);
 324     }
 325 }
 326
 327 class GroupMarketing extends AnnuaireMarketing
 328 {
 329     private $group;
 330     public function __construct($data, $from)
 331     {
 332         $this->group = $data;
 333         if ($from && ($user = User::getSilent($from))) {
 334             $from = $user->fullName() . " vient";
 335         } else {
 336             $from = "Je viens";
 337         }
 338         $this->titre = "Profite de ton inscription au groupe \"$data\" pour découvrir Polytechnique.org";
 339         $this->intro = "Polytechnique.org, l'annuaire des polytechniciens sur internet, fournit "
 340             . "de nombreux services aux groupes X ( listes de diffusion, paiement en "
 341             . "ligne, sites internet...), en particulier pour le groupe \"$data\"\n\n"
 342             . "$from de t'inscrire dans l'annuaire du groupe \"$data\". "
 343             . "Cependant, seuls les X inscrits sur Polytechnique.org peuvent profiter "
 344             . "de l'ensemble de nos services, c'est pourquoi nous te proposons de "
 345             . "t'inscrire sur notre site . Pour cela, il te suffit de visiter cette page "
 346             . "ou de copier cette adresse dans la barre de ton navigateur :";
 347     }
 348
 349     public function process(array $user)
 350     {
 351         return XDB::execute("REPLACE INTO  register_subs (uid, type, sub, domain)
 352             VALUES  ({?}, 'group', {?}, '')",
 353                 $user['id'], $this->group);
 354     }
 355 }
 356
 357 /// Make AnnuaireMarketing to be the default message
 358 class DefaultMarketing extends AnnuaireMarketing
 359 {
 360 }
 361
 362 // vim:set et sw=4 sts=4 sws=4 enc=utf-8:
 363 ?>