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