2 /***************************************************************************
3 * Copyright (C) 2003-2007 Polytechnique.org *
4 * http://opensource.polytechnique.org/ *
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. *
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. *
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 *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
22 require_once 'xorg.misc.inc.php';
24 // {{{ function user_cmp
26 function user_cmp($prenom, $nom, $_prenom, $_nom)
28 $_nom = strtoupper(replace_accent($_nom));
29 $_prenom = strtoupper(replace_accent($_prenom));
30 $nom = strtoupper(replace_accent($nom));
31 $prenom = strtoupper(replace_accent($prenom));
33 $is_ok = strtoupper($_prenom) == strtoupper($prenom);
35 $tokens = preg_split("/[ \-']/", $nom, -1, PREG_SPLIT_NO_EMPTY
);
38 foreach ($tokens as $str) {
39 $is_ok &= strpos($_nom, $str)!==false
;
40 $maxlen = max($maxlen, strlen($str));
43 return $is_ok && ($maxlen > 2 ||
$maxlen == strlen($_nom));
47 // {{{ function check_mat
49 function check_mat($promo, $mat, $nom, $prenom, &$ourmat, &$ourid, &$watch, &$naiss)
51 if (!preg_match('/^[0-9][0-9][0-9][0-9][0-9][0-9]$/', $mat)) {
52 return "Le matricule doit comporter 6 chiffres.";
55 $year = intval(substr($mat, 0, 3));
56 $rang = intval(substr($mat, 3, 3));
57 if ($year > 200) { $year /= 10; };
59 return "ton matricule est incorrect";
61 $ourmat = sprintf('%04u%04u', 1900+
$year, $rang);
65 'SELECT user_id, promo, perms IN ("admin","user"), nom, prenom, FIND_IN_SET(\'watch\', flags), naissance_ini
67 WHERE matricule={?} and deces = 0', $ourmat);
68 list ($uid, $_promo, $_already, $_nom, $_prenom, $watch, $naiss) = $res->fetchOneRow();
69 if ($_already) { return "tu es déjà inscrit ou ton matricule est incorrect !"; }
70 if ($_promo != $promo) { return "erreur de matricule"; }
72 if (!user_cmp($prenom, $nom, $_prenom, $_nom)) {
73 return "erreur dans l'identification. Réessaie, il y a une erreur quelque part !";
81 // {{{ function check_old_mat
83 function check_old_mat($promo, $mat, $nom, $prenom, &$ourmat, &$ourid, &$watch, &$naiss)
86 'SELECT user_id, nom, prenom, matricule, FIND_IN_SET(\'watch\', flags), naissance_ini
88 WHERE promo={?} AND deces=0 AND perms="pending"', $promo);
89 while (list($_uid, $_nom, $_prenom, $_mat, $watch, $naiss) = $res->next()) {
90 if (user_cmp($prenom, $nom, $_prenom, $_nom)) {
98 'SELECT user_id, nom, prenom, matricule, alias, FIND_IN_SET(\'watch\', u.flags), naissance_ini
99 FROM auth_user_md5 AS u
100 INNER JOIN aliases AS a ON (u.user_id = a.id and FIND_IN_SET("bestalias", a.flags))
101 WHERE promo={?} AND deces=0 AND perms IN ("user","admin")', $promo);
102 while (list($_uid, $_nom, $_prenom, $_mat, $alias, $watch, $naiss) = $res->next()) {
103 if (user_cmp($prenom, $nom, $_prenom, $_nom)) {
106 return "Tu es vraisemblablement déjà inscrit !";
109 return "erreur: vérifie que tu as bien orthographié ton nom !";
113 // {{{ function check_new_user
115 function check_new_user(&$sub)
119 $prenom = preg_replace("/[ \t]+/", ' ', trim($prenom));
120 $prenom = preg_replace("/--+/", '-', $prenom);
121 $prenom = preg_replace("/''+/", '\'', $prenom);
122 $prenom = make_firstname_case($prenom);
124 $nom = preg_replace("/[ \t]+/", ' ', trim($nom));
125 $nom = preg_replace("/--+/", '-', $nom);
126 $nom = preg_replace("/''+/", '\'', $nom);
127 $nom = strtoupper(replace_accent($nom));
129 if ($promo >= 1996) {
130 $res = check_mat($promo, $mat, $nom, $prenom, $ourmat, $ourid, $watch, $naiss);
132 $res = check_old_mat($promo, $mat, $nom, $prenom, $ourmat, $ourid, $watch, $naiss);
134 if ($res !== true
) { return $res; }
137 $sub['prenom'] = $prenom;
138 $sub['ourmat'] = $ourmat;
139 $sub['uid'] = $ourid;
140 $sub['watch'] = $watch;
141 $sub['naissance_ini'] = $naiss;
147 // {{{ function create_aliases
149 function create_aliases (&$sub)
153 require_once "xorg.misc.inc.php";
154 $mailorg = make_username($prenom, $nom);
155 $mailorg2 = $mailorg.sprintf(".%02u", ($promo%100
));
156 $forlife = make_forlife($prenom, $nom, $promo);
158 $res = XDB
::query('SELECT COUNT(*) FROM aliases WHERE alias={?}', $forlife);
159 if ($res->fetchOneCell() > 0) {
160 return "Tu as un homonyme dans ta promo, il faut traiter ce cas manuellement.<br />".
161 "envoie un mail à <a href=\"mailto:support@polytechnique.org\">support@polytechnique.org</a> en expliquant ta situation.";
164 $res = XDB
::query('SELECT id, type, expire FROM aliases WHERE alias={?}', $mailorg);
166 if ( $res->numRows() ) {
168 list($h_id, $h_type, $expire) = $res->fetchOneRow();
170 if ( $h_type != 'homonyme' and empty($expire) ) {
171 XDB
::execute('UPDATE aliases SET expire=ADDDATE(NOW(),INTERVAL 1 MONTH) WHERE alias={?}', $mailorg);
172 XDB
::execute('REPLACE INTO homonymes (homonyme_id,user_id) VALUES ({?},{?})', $h_id, $h_id);
173 XDB
::execute('REPLACE INTO homonymes (homonyme_id,user_id) VALUES ({?},{?})', $h_id, $uid);
174 $res = XDB
::query("SELECT alias FROM aliases WHERE id={?} AND expire IS NULL", $h_id);
175 $als = $res->fetchColumn();
177 $mailer = new PlMailer();
178 $mailer->setFrom('"Support Polytechnique.org" <support@polytechnique.org>');
179 $mailer->addTo("$mailorg@polytechnique.org");
180 $mailer->setSubject("perte de ton alias $mailorg dans un mois !");
181 $mailer->addCc('"Support Polytechnique.org" <support@polytechnique.org>');
185 "Un homonyme vient de s'inscrire. La politique de Polytechnique.org est de fournir des\n".
186 "adresses mail devinables, nous ne pouvons donc pas conserver ton alias '$mailorg' qui\n".
187 "correspond maintenant à deux personnes.\n\n".
189 "Tu gardes tout de même l'usage de cet alias pour un mois encore à compter de ce jour.\n\n".
191 "Lorsque cet alias sera désactivé, l'adresse $mailorg@polytechnique.org renverra vers un \n".
192 "robot qui indiquera qu'il y a plusieurs personnes portant le même nom ;\n".
193 "cela évite que l'un des homonymes reçoive des courriels destinés à l'autre.\n\n".
195 "Pour te connecter au site, tu pourras utiliser comme identifiant n'importe lequel de tes\n".
197 " ".join(', ', $als)."\n";
198 "Commence dès aujourd'hui à communiquer à tes correspondants la nouvelle adresse que tu comptes utiliser !\n\n".
200 "En nous excusant pour le désagrément occasionné,\n".
204 "L'équipe de Polytechnique.org\n".
205 "\"Le portail des élèves & anciens élèves de l'X\"";
206 $mailer->SetTxtBody(wordwrap($msg,72));
210 $sub['forlife'] = $forlife;
211 $sub['bestalias'] = $mailorg2;
212 $sub['mailorg2'] = null
;
214 $sub['forlife'] = $forlife;
215 $sub['bestalias'] = $mailorg;
216 $sub['mailorg2'] = $mailorg2;
223 // {{{ function finish_ins
225 function finish_ins($sub_state)
229 require_once('secure_hash.inc.php');
232 $pass_encrypted = hash_encrypt($pass_clair);
233 $hash = rand_url_id(12);
235 XDB
::execute('UPDATE auth_user_md5 SET last_known_email={?} WHERE matricule = {?}', $email, $mat);
238 "REPLACE INTO register_pending (uid, forlife, bestalias, mailorg2, password, email, date, relance, naissance, hash)
239 VALUES ({?}, {?}, {?}, {?}, {?}, {?}, NOW(), 0, {?}, {?})",
240 $uid, $forlife, $bestalias, $mailorg2, $pass_encrypted, $email, $naissance, $hash);
242 $mymail = new PlMailer('register/inscrire.mail.tpl');
243 $mymail->assign('mailorg', $bestalias);
244 $mymail->assign('lemail', $email);
245 $mymail->assign('pass', $pass);
246 $mymail->assign('baseurl', $globals->baseurl
);
247 $mymail->assign('hash', $hash);
248 $mymail->assign('subj', $bestalias."@polytechnique.org");
253 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: