modules/register/register.inc.php

   1 <?php
   2 /***************************************************************************
   3  *  Copyright (C) 2003-2011 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 // {{{ function checkId
  23
  24 function checkId($subState)
  25 {
  26     $subState->set('xorgid', Profile::getXorgId($subState->i('schoolid')));
  27     if (!$subState->v('xorgid')) {
  28         return 'Le matricule est incorrect.';
  29     }
  30
  31     $uf = new UserFilter(new PFC_And(
  32             new UFC_SchoolId('xorg', $subState->i('xorgid')),
  33             new PFC_Not(new UFC_Dead()),
  34             new PFC_Not(new UFC_Registered(true))
  35     ));
  36     $profile = $uf->getProfile();
  37     if (is_null($profile)) {
  38         return "Tu es déjà inscrit ou ton matricule est incorrect !";
  39     }
  40
  41     if ($profile->promo() != $subState->s('promo')) {
  42         return 'Le matricule est incorrect.';
  43     }
  44
  45     if (!$profile->compareNames($subState->s('firstname'), $subState->s('lastname'))) {
  46         return "Erreur dans l'identification. Réessaie, il y a une erreur quelque part !";
  47     }
  48
  49     $subState->set('lastname', $profile->lastName());
  50     $subState->set('firstname', $profile->firstName());
  51     $subState->set('uid', $profile->owner()->id());
  52     $subState->set('watch', $profile->owner()->watch);
  53     $subState->set('birthdateRef', $profile->__get('birthdate_ref'));
  54     return true;
  55 }
  56
  57 // }}}
  58 // {{{ function checkOldId
  59
  60 function checkOldId($subState)
  61 {
  62     $uf = new UserFilter(new PFC_And(
  63             new PFC_Not(new UFC_Dead()),
  64             new UFC_Promo('=', UserFilter::DISPLAY, $subState->s('promo')),
  65             new PFC_Not(new UFC_Registered(true))
  66     ));
  67     $it = $uf->iterProfiles();
  68     while ($profile = $it->next()) {
  69         if ($profile->compareNames($subState->s('firstname'), $subState->s('lastname'))) {
  70             $subState->set('lastname', $profile->lastName());
  71             $subState->set('firstname', $profile->firstName());
  72             $subState->set('uid', $profile->owner()->id());
  73             $subState->set('watch', $profile->owner()->watch);
  74             $subState->set('birthdateRef', $profile->__get('birthdate_ref'));
  75             $subState->set('xorgid', $profile->__get('xorg_id'));
  76             return true;
  77         }
  78     }
  79
  80     $uf = new UserFilter(new PFC_And(
  81             new PFC_Not(new UFC_Dead()),
  82             new UFC_Promo('=', UserFilter::DISPLAY, $subState->s('promo')),
  83             new UFC_Registered(true)
  84     ));
  85     $it = $uf->iterProfiles();
  86     while ($profile = $it->next()) {
  87         if ($profile->compareNames($subState->s('firstname'), $subState->s('lastname'))) {
  88             $subState->set('uid', $profile->owner()->id());
  89             $subState->set('watch', $profile->owner()->watch);
  90             $subState->set('birthdateRef', $profile->__get('birthdate_ref'));
  91             $subState->set('xorgid', $profile->__get('xorg_id'));
  92             return 'Tu es vraisemblablement déjà inscrit !';
  93         }
  94     }
  95     return 'Erreur : vérifie que tu as bien orthographié ton nom !';
  96 }
  97
  98 // }}}
  99 // {{{ function checkNewUser
 100
 101 function checkNewUser($subState)
 102 {
 103     $firstname = preg_replace("/[ \t]+/", ' ', $subState->t('firstname'));
 104     $firstname = preg_replace("/--+/", '-', $firstname);
 105     $firstname = preg_replace("/''+/", '\'', $firstname);
 106     $subState->set('firstname', PlUser::fixFirstnameCase($firstname));
 107
 108     $lastname = preg_replace("/[ \t]+/", ' ', $subState->t('lastname'));
 109     $lastname = preg_replace("/--+/", '-', $lastname);
 110     $lastname = preg_replace("/''+/", '\'', $lastname);
 111     $subState->set('lastname', mb_strtoupper($lastname));
 112
 113     if ($subState->i('yearpromo') >= 1996) {
 114         $res = checkId($subState);
 115     } else {
 116         $res = checkOldId($subState);
 117     }
 118     if ($res !== true) {
 119         return $res;
 120     }
 121
 122     return true;
 123 }
 124
 125 // }}}
 126 // {{{ function createAliases
 127
 128 function createAliases($subState)
 129 {
 130     global $globals;
 131
 132     $emailXorg  = PlUser::makeUserName($subState->t('firstname'), $subState->t('lastname'));
 133     $emailXorg2 = $emailXorg . sprintf(".%02u", ($subState->i('yearpromo') % 100));
 134
 135     $res = XDB::query("SELECT  hruid, state
 136                          FROM  accounts
 137                         WHERE  uid = {?} AND hruid != ''",
 138                       $subState->i('uid'));
 139     if ($res->numRows() == 0) {
 140         return "Tu n'as pas d'adresse à vie pré-attribuée.<br />"
 141             . "Envoie un mail à <a href=\"mailto:support@{$globals->mail->domain}\">"
 142             . "support@{$globals->mail->domain}</a> en expliquant ta situation.";
 143     } else {
 144         list($forlife, $state) = $res->fetchOneRow();
 145     }
 146     if ($state == 'active') {
 147         return "Tu es déjà inscrit, si tu ne te souviens plus de ton mot de passe d'accès au site, "
 148              . "tu peux suivre <a href=\"recovery\">la procédure de récupération de mot de passe</a>.";
 149     } else if ($state == 'disabled') {
 150         return "Ton compte a été désactivé par les administrateurs du site suite à des abus. "
 151              . "Pour plus d'information ou pour demander la réactivation du compte, tu peux t'adresser à "
 152              . "<a href=\"mailto:support@{$globals->mail->domain}\">support@{$globals->mail->domain}</a>.";
 153     }
 154
 155     $count = XDB::numRows('SELECT  *
 156                              FROM  email_source_account  AS s
 157                        INNER JOIN  email_virtual_domains AS d ON (s.domain = d.id)
 158                             WHERE  s.email = {?} AND d.name = {?}',
 159                           $emailXorg, $globals->mail->domain);
 160     if ($count) {
 161         list($h_id, $h_type, $expire) = $res->fetchOneRow();
 162         if ($h_type != 'homonyme' and empty($expire)) {
 163             XDB::execute('UPDATE  email_source_account  AS e
 164                       INNER JOIN  email_virtual_domains AS d ON (e.domain = d.id)
 165                              SET  e.expire = ADDDATE(NOW(), INTERVAL 1 MONTH)
 166                            WHERE  e.email = {?} AND d.name = {?}',
 167                          $emailXorg, $globals->mail->domain);
 168             $hrmid = 'h.' . $emailXorg . '.' . $globals->mail->domain;
 169             XDB::execute('INSERT IGNORE INTO  homonyms_list (hrmid, uid)
 170                                       VALUES  ({?}, {?}), ({?}, {?})',
 171                          $hrmid, $h_id, $hrmid, $subState->i('uid'));
 172             $als = XDB::fetchColumn('SELECT  *
 173                                        FROM  email_source_account  AS s
 174                                  INNER JOIN  email_virtual_domains AS d ON (s.domain = d.id)
 175                                       WHERE  s.uid = {?} AND d.name = {?} AND s.expire IS NULL',
 176                                     $h_id, $globals->mail->domain);
 177
 178             $mailer = new PlMailer('register/lostalias.mail.tpl');
 179             $mailer->addTo($emailXorg . '@' . $globals->mail->domain);
 180             $mailer->setSubject("Perte de ton alias $emailXorg dans un mois !");
 181             $mailer->assign('emailXorg', $emailXorg);
 182             $mailer->assign('als', join(', ', $als));
 183             $mailer->SetTxtBody(wordwrap($msg,72));
 184             $mailer->send();
 185         }
 186
 187         $subState->set('forlife', $forlife);
 188         $subState->set('bestalias', $emailXorg2);
 189         $subState->set('emailXorg2', null);
 190     } else {
 191         $subState->set('forlife', $forlife);
 192         $subState->set('bestalias', $emailXorg);
 193         $subState->set('emailXorg2', $emailXorg2);
 194     }
 195
 196     return true;
 197 }
 198
 199 // }}}
 200 // {{{ function finishRegistration
 201
 202 function finishRegistration($subState)
 203 {
 204     global $globals;
 205
 206     $hash = rand_url_id(12);
 207     XDB::execute('INSERT INTO  register_pending (uid, forlife, bestalias, mailorg2, password,
 208                                                  email, date, relance, naissance, hash, services)
 209                               VALUES  ({?}, {?}, {?}, {?}, {?}, {?}, NOW(), 0, {?}, {?}, {?})
 210                               ON DUPLICATE KEY UPDATE password=VALUES(password), email=VALUES(email),
 211                                                       date=VALUES(date), naissance=VALUES(naissance),
 212                                                       hash=VALUES(hash), services=VALUES(services)',
 213                  $subState->i('uid'), $subState->s('forlife'), $subState->s('bestalias'),
 214                  $subState->s('emailXorg2'), $subState->s('password'), $subState->s('email'),
 215                  $subState->s('birthdate'), $hash, implode(',', $subState->v('services')));
 216
 217     $mymail = new PlMailer('register/end.mail.tpl');
 218     $mymail->assign('emailXorg', $subState->s('bestalias'));
 219     $mymail->assign('to', $subState->s('email'));
 220     $mymail->assign('baseurl', $globals->baseurl);
 221     $mymail->assign('hash', $hash);
 222     $mymail->assign('subject', $subState->s('bestalias') . '@' . $globals->mail->domain);
 223     $mymail->send();
 224 }
 225
 226 // }}}
 227 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
 228 ?>