include/register.inc.php

   1 <?php
   2 /***************************************************************************
   3  *  Copyright (C) 2003-2006 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 require_once 'xorg.misc.inc.php';
  23
  24 // {{{ function user_cmp
  25
  26 function user_cmp($prenom, $nom, $_prenom, $_nom)
  27 {
  28     $_nom    = strtoupper(replace_accent($_nom));
  29     $_prenom = strtoupper(replace_accent($_prenom));
  30     $nom     = strtoupper(replace_accent($nom));
  31     $prenom  = strtoupper(replace_accent($prenom));
  32
  33     $is_ok   = strtoupper($_prenom) == strtoupper($prenom);
  34
  35     $tokens  = preg_split("/[ \-']/", $nom, -1, PREG_SPLIT_NO_EMPTY);
  36     $maxlen  = 0;
  37
  38     foreach ($tokens as $str) {
  39         $is_ok &= strpos($_nom, $str)!==false;
  40         $maxlen = max($maxlen, strlen($str));
  41     }
  42
  43     return $is_ok && ($maxlen > 2 || $maxlen == strlen($_nom));
  44 }
  45
  46 // }}}
  47 // {{{ function get_X_mat
  48 function get_X_mat($ourmat)
  49 {
  50     if (!preg_match('/^[0-9]{8}$/', $ourmat)) {
  51         // le matricule de notre base doit comporter 8 chiffres
  52         return 0;
  53     }
  54
  55     $year = intval(substr($ourmat, 0, 4));
  56     $rang = intval(substr($ourmat, 5, 3));
  57     if ($year < 1996) {
  58         return;
  59     } elseif ($year < 2000) {
  60         $year = intval(substr(1900 - $year, 1, 3));
  61         return sprintf('%02u0%03u', $year, $rang);
  62     } else {
  63         $year = intval(substr(1900 - $year, 1, 3));
  64         return sprintf('%03u%03u', $year, $rang);
  65     }
  66 }
  67
  68 // }}}
  69 // {{{ function check_mat
  70
  71 function check_mat($promo, $mat, $nom, $prenom, &$ourmat, &$ourid)
  72 {
  73     if (!preg_match('/^[0-9][0-9][0-9][0-9][0-9][0-9]$/', $mat)) {
  74         return "Le matricule doit comporter 6 chiffres.";
  75     }
  76
  77     $year = intval(substr($mat, 0, 3));
  78     $rang = intval(substr($mat, 3, 3));
  79     if ($year > 200) { $year /= 10; };
  80     if ($year < 96) {
  81         return "ton matricule est incorrect";
  82     } else {
  83         $ourmat = sprintf('%04u%04u', 1900+$year, $rang);
  84     }
  85
  86     $res = XDB::query(
  87             'SELECT  user_id, promo, perms IN ("admin","user"), nom, prenom
  88               FROM  auth_user_md5
  89              WHERE  matricule={?} and deces = 0', $ourmat);
  90     list ($uid, $_promo, $_already, $_nom, $_prenom) = $res->fetchOneRow();
  91     if ($_already) { return "tu es déjà inscrit ou ton matricule est incorrect !"; }
  92     if ($_promo != $promo) { return "erreur de matricule"; }
  93
  94     if (!user_cmp($prenom, $nom, $_prenom, $_nom)) {
  95         return "erreur dans l'identification.  Réessaie, il y a une erreur quelque part !";
  96     }
  97
  98     $ourid = $uid;
  99     return true;
 100 }
 101
 102 // }}}
 103 // {{{ function check_old_mat
 104
 105 function check_old_mat($promo, $mat, $nom, $prenom, &$ourmat, &$ourid)
 106 {
 107     $res = XDB::iterRow(
 108             'SELECT  user_id, nom, prenom, matricule
 109                FROM  auth_user_md5
 110               WHERE  promo={?} AND deces=0 AND perms="pending"', $promo);
 111     while (list($_uid, $_nom, $_prenom, $_mat) = $res->next()) {
 112         if (user_cmp($prenom, $nom, $_prenom, $_nom)) {
 113             $ourid  = $_uid;
 114             $ourmat = $_mat;
 115             return true;
 116         }
 117     }
 118
 119     $res = XDB::iterRow(
 120             'SELECT  user_id, nom, prenom, matricule, alias
 121                FROM  auth_user_md5 AS u
 122          INNER JOIN  aliases       AS a ON (u.user_id = a.id and FIND_IN_SET("bestalias", a.flags))
 123               WHERE  promo={?} AND deces=0 AND perms IN ("user","admin")', $promo);
 124     while (list($_uid, $_nom, $_prenom, $_mat, $alias) = $res->next()) {
 125         if (user_cmp($prenom, $nom, $_prenom, $_nom)) {
 126             $ourid  = $_uid;
 127             $ourmat = $_mat;
 128             return "Tu es vraissemblablement déjà inscrit !";
 129         }
 130     }
 131     return "erreur: vérifie que tu as bien orthographié ton nom !";
 132 }
 133
 134 // }}}
 135 // {{{ function check_new_user
 136
 137 function check_new_user(&$sub)
 138 {
 139     extract($sub);
 140
 141     $prenom  = preg_replace("/[ \t]+/", ' ', trim($prenom));
 142     $prenom  = preg_replace("/--+/", '-', $prenom);
 143     $prenom  = preg_replace("/''+/", '\'', $prenom);
 144     $prenom  = make_firstname_case($prenom);
 145
 146     $nom     = preg_replace("/[ \t]+/", ' ', trim($nom));
 147     $nom     = preg_replace("/--+/", '-', $nom);
 148     $nom     = preg_replace("/''+/", '\'', $nom);
 149     $nom     = strtoupper(replace_accent($nom));
 150
 151     if ($promo >= 1996) {
 152         $res = check_mat($promo, $mat, $nom, $prenom, $ourmat, $ourid);
 153     } else {
 154         $res = check_old_mat($promo, $mat, $nom, $prenom, $ourmat, $ourid);
 155     }
 156     if ($res !== true) { return $res; }
 157
 158     $sub['nom']    = $nom;
 159     $sub['prenom'] = $prenom;
 160     $sub['ourmat'] = $ourmat;
 161     $sub['uid']    = $ourid;
 162
 163     return true;
 164 }
 165
 166 // }}}
 167 // {{{ function create_aliases
 168
 169 function create_aliases (&$sub)
 170 {
 171     extract ($sub);
 172
 173     $mailorg  = make_username($prenom, $nom);
 174     $mailorg2 = $mailorg.sprintf(".%02u", ($promo%100));
 175     $forlife  = make_forlife($prenom, $nom, $promo);
 176
 177     $res      = XDB::query('SELECT COUNT(*) FROM aliases WHERE alias={?}', $forlife);
 178     if ($res->fetchOneCell() > 0) {
 179         return "Tu as un homonyme dans ta promo, il faut traiter ce cas manuellement.<br />".
 180             "envoie un mail à <a href=\"mailto:support@polytechnique.org\">support@polytechnique.org</a> en expliquant ta situation.";
 181     }
 182
 183     $res      = XDB::query('SELECT id, type, expire FROM aliases WHERE alias={?}', $mailorg);
 184
 185     if ( $res->numRows() ) {
 186
 187         list($h_id, $h_type, $expire) = $res->fetchOneRow();
 188         $res->free();
 189
 190         if ( $h_type != 'homonyme' and empty($expire) ) {
 191             XDB::execute('UPDATE aliases SET expire=ADDDATE(NOW(),INTERVAL 1 MONTH) WHERE alias={?}', $mailorg);
 192             XDB::execute('REPLACE INTO homonymes (homonyme_id,user_id) VALUES ({?},{?})', $h_id, $h_id);
 193             XDB::execute('REPLACE INTO homonymes (homonyme_id,user_id) VALUES ({?},{?})', $h_id, $uid);
 194             $res = XDB::query("SELECT alias FROM aliases WHERE id={?} AND expire IS NULL", $h_id);
 195             $als = $res->fetchColumn();
 196
 197             require_once('diogenes/diogenes.hermes.inc.php');
 198             $mailer = new HermesMailer();
 199             $mailer->setFrom('"Support Polytechnique.org" <support@polytechnique.org>');
 200             $mailer->addTo("$mailorg@polytechnique.org");
 201             $mailer->setSubject("perte de ton alias $mailorg dans un mois !");
 202             $mailer->addCc('"Support Polytechnique.org" <support@polytechnique.org>');
 203             $msg =
 204                 "Bonjour,\n\n".
 205
 206                 "Un homonyme vient de s'inscrire. La politique de Polytechnique.org est de fournir des\n".
 207                 "adresses mail devinables, nous ne pouvons donc pas conserver ton alias '$mailorg' qui\n".
 208                 "correspond maintenant à deux personnes.\n\n".
 209
 210                 "Tu gardes tout de même l'usage de cet alias pour un mois encore à compter de ce jour.\n\n".
 211
 212                 "Lorsque cet alias sera désactivé, l'adresse $mailorg@polytechnique.org renverra vers un \n".
 213                 "robot qui indiquera qu'il y a plusieurs personnes portant le même nom ;\n".
 214                 "cela évite que l'un des homonymes reçoive des courriels destinés à l'autre.\n\n".
 215
 216                 "Pour te connecter au site, tu pourras utiliser comme identifiant n'importe lequel de tes\n".
 217                 "autres alias :\n".
 218                 "    ".join(', ', $als)."\n";
 219                 "Commence dès aujourd'hui à communiquer à tes correspondants la nouvelle adresse que tu comptes utiliser !\n\n".
 220
 221                 "En nous excusant pour le désagrément occasionné,\n".
 222                 "Cordialement,\n\n".
 223
 224                 "-- \n".
 225                 "L'équipe de Polytechnique.org\n".
 226                 "\"Le portail des élèves & anciens élèves de l'X\"";
 227             $mailer->SetTxtBody(wordwrap($msg,72));
 228             $mailer->send();
 229         }
 230
 231         $sub['forlife']   = $forlife;
 232         $sub['bestalias'] = $mailorg2;
 233         $sub['mailorg2']  = null;
 234     } else {
 235         $sub['forlife']   = $forlife;
 236         $sub['bestalias'] = $mailorg;
 237         $sub['mailorg2']  = $mailorg2;
 238     }
 239
 240     return true;
 241 }
 242
 243 // }}}
 244 // {{{ function finish_ins
 245
 246 function finish_ins($sub_state)
 247 {
 248     global $globals;
 249     extract($sub_state);
 250     require_once('secure_hash.inc.php');
 251
 252     $pass     = rand_pass();
 253     $pass_encrypted = hash_encrypt($pass_clair);
 254     $hash     = rand_url_id(12);
 255
 256     XDB::execute('UPDATE auth_user_md5 SET last_known_email={?} WHERE matricule = {?}', $email, $mat);
 257
 258     XDB::execute(
 259             "REPLACE INTO  register_pending (uid, forlife, bestalias, mailorg2, password, email, date, relance, naissance, hash)
 260                    VALUES  ({?}, {?}, {?}, {?}, {?}, {?}, NOW(), 0, {?}, {?})",
 261             $uid, $forlife, $bestalias, $mailorg2, $pass_encrypted, $email, $naissance, $hash);
 262
 263     require_once('xorg.mailer.inc.php');
 264     $mymail = new XOrgMailer('register/inscrire.mail.tpl');
 265     $mymail->assign('mailorg', $bestalias);
 266     $mymail->assign('lemail',  $email);
 267     $mymail->assign('pass',    $pass);
 268     $mymail->assign('baseurl', $globals->baseurl);
 269     $mymail->assign('hash',    $hash);
 270     $mymail->assign('subj',    $bestalias."@polytechnique.org");
 271     $mymail->send();
 272 }
 273
 274 // }}}
 275 ?>