2 /***************************************************************************
3 * Copyright (C) 2003-2010 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 function select_if_homonyme(PlUser
&$user) {
23 return XDB
::fetchOneCell("SELECT a.alias
25 WHERE a.uid = {?} AND a.expire != ''",
29 function send_warning_homonyme(PlUser
&$user, $loginbis) {
31 $cc = "support+homonyme@" . $globals->mail
->domain
;
32 $FROM = "\"Support Polytechnique.org\" <$cc>";
33 $mymail = new PlMailer();
34 $mymail->setFrom($FROM);
36 $mymail->setSubject("Dans 2 semaines, suppression de $loginbis@" . $globals->mail
->domain
);
37 $mymail->setTxtBody(Env
::v('mailbody'));
38 $mymail->sendTo($user);
41 function send_robot_homonyme(PlUser
&$user, $loginbis) {
43 $cc = "support+homonyme@" . $globals->mail
->domain
;
44 $FROM = "\"Support Polytechnique.org\" <$cc>";
45 $mymail = new PlMailer();
46 $mymail->setFrom($FROM);
47 $mymail->setSubject("Mise en place du robot $loginbis@" . $globals->mail
->domain
);
49 $mymail->setTxtBody(Env
::v('mailbody'));
50 $mymail->sendTo($user);
53 function switch_bestalias(PlUser
&$user, $loginbis) {
54 // check if loginbis was the bestalias
55 $bestailas = XDB
::fetchOneCell("SELECT alias
57 WHERE uid = {?} AND FIND_IN_SET('bestalias', flags)",
59 if ($bestalias && $bestalias != $loginbis) {
63 // select the shortest alias still alive
64 $newbest = XDB
::fetchOneCell("SELECT alias
66 WHERE uid = {?} AND alias != {?} AND expire IS NULL
67 ORDER BY LENGTH(alias)
68 LIMIT 1", $user->id(), $loginbis);
69 // change the bestalias flag
70 XDB
::execute("UPDATE aliases
71 SET flags = (flags & (255 - 1)) | IF(alias = {?}, 1, 0)
72 WHERE uid = {?}", $newbest, $user->id());
76 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: