Merge branch 'master' of /home/git/platal into profile_edit
[platal.git] / modules / platal.php
index 400edea..4ba4740 100644 (file)
@@ -1,6 +1,6 @@
 <?php
 /***************************************************************************
- *  Copyright (C) 2003-2006 Polytechnique.org                              *
+ *  Copyright (C) 2003-2007 Polytechnique.org                              *
  *  http://opensource.polytechnique.org/                                   *
  *                                                                         *
  *  This program is free software; you can redistribute it and/or modify   *
@@ -83,7 +83,17 @@ class PlatalModule extends PLModule
     {
         $page->changeTpl('platal/changeLog.tpl');
 
-        $clog = htmlentities(file_get_contents(dirname(__FILE__).'/../ChangeLog'));
+        $clog = pl_entities(file_get_contents(dirname(__FILE__).'/../ChangeLog'));
+        // url catch only (not all wiki syntax)
+        $clog = preg_replace(array(
+            '/((?:https?|ftp):\/\/(?:\.*,*[\w@~%$£µ&i#\-+=_\/\?;])*)/ui',
+            '/(\s|^)www\.((?:\.*,*[\w@~%$£µ&i#\-+=_\/\?;])*)/iu',
+            '/(?:mailto:)?([a-z0-9.\-+_]+@([\-.+_]?[a-z0-9])+)/i'),
+          array(
+            '<a href="\\0">\\0</a>',
+            '\\1<a href="http://www.\\2">www.\\2</a>',
+            '<a href="mailto:\\0">\\0</a>'),
+          $clog);
         $clog = preg_replace('!(#[0-9]+(,[0-9]+)*)!e', 'bugize("\1")', $clog);
         $clog = preg_replace('!vim:.*$!', '', $clog);
         $page->assign('ChangeLog', $clog);
@@ -107,7 +117,7 @@ class PlatalModule extends PLModule
     function handler_prefs(&$page)
     {
         $page->changeTpl('platal/preferences.tpl');
-        $page->assign('xorg_title','Polytechnique.org - Mes préférences');
+        $page->assign('xorg_title','Polytechnique.org - Mes préférences');
 
         if (Post::has('mail_fmt')) {
             $fmt = Post::v('mail_fmt');
@@ -138,7 +148,7 @@ class PlatalModule extends PLModule
                                        SET redirecturl = {?} WHERE user_id = {?}',
                                    $url, S::v('uid'));
             $log->log('carva_add', 'http://'.Env::v('url'));
-            $page->trig("Redirection activée vers <a href='http://$url'>$url</a>");
+            $page->trig("Redirection activée vers <a href='http://$url'>$url</a>");
         } elseif (Env::v('submit') == "Supprimer") {
             XDB::execute("UPDATE auth_user_quick
                                        SET redirecturl = ''
@@ -146,7 +156,7 @@ class PlatalModule extends PLModule
                                    S::v('uid'));
             $log->log("carva_del", $url);
             Post::kill('url');
-            $page->trig('Redirection supprimée');
+            $page->trig('Redirection supprimée');
         }
 
         $res = XDB::query('SELECT redirecturl
@@ -164,7 +174,7 @@ class PlatalModule extends PLModule
 
         if (Env::v('act_rss') == 'Activer') {
             $this->__set_rss_state(true);
-            $page->trig("Ton Fil RSS est activé.");
+            $page->trig("Ton Fil RSS est activé.");
         }
     }
 
@@ -175,10 +185,10 @@ class PlatalModule extends PLModule
 
             $_SESSION['password'] = $password = Post::v('response2');
 
-            XDB::execute('UPDATE  auth_user_md5 
-                                       SET  password={?}
-                                     WHERE  user_id={?}', $password,
-                                     S::v('uid'));
+            XDB::execute('UPDATE  auth_user_md5
+                             SET  password={?}
+                           WHERE  user_id={?}', $password,
+                           S::v('uid'));
 
             $log =& S::v('log');
             $log->log('passwd', '');
@@ -201,25 +211,29 @@ class PlatalModule extends PLModule
         $page->changeTpl('platal/acces_smtp.tpl');
         $page->assign('xorg_title','Polytechnique.org - Acces SMTP/NNTP');
 
+        require_once 'wiki.inc.php';
+        wiki_require_page('Xorg.SMTPSécurisé');
+        wiki_require_page('Xorg.NNTPSécurisé');
+
         $uid  = S::v('uid');
         $pass = Env::v('smtppass1');
         $log  = S::v('log');
 
-        if (Env::v('op') == "Valider" && strlen($pass) >= 6 
-        &&  Env::v('smtppass1') == Env::v('smtppass2')) 
+        if (Env::v('op') == "Valider" && strlen($pass) >= 6
+        &&  Env::v('smtppass1') == Env::v('smtppass2'))
         {
             XDB::execute('UPDATE auth_user_md5 SET smtppass = {?}
                                      WHERE user_id = {?}', $pass, $uid);
-            $page->trig('Mot de passe enregistré');
+            $page->trig('Mot de passe enregistré');
             $log->log("passwd_ssl");
         } elseif (Env::v('op') == "Supprimer") {
             XDB::execute('UPDATE auth_user_md5 SET smtppass = ""
                                      WHERE user_id = {?}', $uid);
-            $page->trig('Compte SMTP et NNTP supprimé');
+            $page->trig('Compte SMTP et NNTP supprimé');
             $log->log("passwd_del");
         }
 
-        $res = XDB::query("SELECT IF(smtppass != '', 'actif', '') 
+        $res = XDB::query("SELECT IF(smtppass != '', 'actif', '')
                                        FROM auth_user_md5
                                       WHERE user_id = {?}", $uid);
         $page->assign('actif', $res->fetchOneCell());
@@ -236,7 +250,7 @@ class PlatalModule extends PLModule
         }
 
         if (!ereg('[0-3][0-9][0-1][0-9][1][9]([0-9]{2})', Env::v('birth'))) {
-            $page->trig('Date de naissance incorrecte ou incohérente');
+            $page->trig('Date de naissance incorrecte ou incohérente');
             return;
         }
 
@@ -247,8 +261,8 @@ class PlatalModule extends PLModule
 
         $mailorg = strtok(Env::v('login'), '@');
 
-        // paragraphe rajouté : si la date de naissance dans la base n'existe pas, on l'update
-        // avec celle fournie ici en espérant que c'est la bonne
+        // paragraphe rajouté : si la date de naissance dans la base n'existe pas, on l'update
+        // avec celle fournie ici en espérant que c'est la bonne
 
         $res = XDB::query(
                 "SELECT  user_id, naissance
@@ -258,10 +272,19 @@ class PlatalModule extends PLModule
         list($uid, $naissance) = $res->fetchOneRow();
 
         if ($naissance == $birth) {
+            $res = XDB::query("SELECT  COUNT(*)
+                                 FROM  emails
+                                WHERE  uid = {?} AND flags != 'panne' AND flags != 'filter'", $uid);
+            $count = intval($res->fetchOneCell());
+            if ($count == 0) {
+                $page->assign('no_addr', true);
+                return;
+            }
+
             $page->assign('ok', true);
 
-            $url   = rand_url_id(); 
-            XDB::execute('INSERT INTO  perte_pass (certificat,uid,created) 
+            $url   = rand_url_id();
+            XDB::execute('INSERT INTO  perte_pass (certificat,uid,created)
                                VALUES  ({?},{?},NOW())', $url, $uid);
             $res   = XDB::query('SELECT  email
                                    FROM  emails
@@ -276,19 +299,19 @@ class PlatalModule extends PLModule
                 $mails = implode(', ', $res->fetchColumn());
             }
             $mymail = new PlMailer();
-            $mymail->setFrom('"Gestion des mots de passe" <support+password@polytechnique.org>');
+            $mymail->setFrom('"Gestion des mots de passe" <support+password@' . $globals->mail->domain . '>');
             $mymail->addTo($mails);
             $mymail->setSubject('Ton certificat d\'authentification');
             $mymail->setTxtBody("Visite la page suivante qui expire dans six heures :
 {$globals->baseurl}/tmpPWD/$url
 
-Si en cliquant dessus tu n'y arrives pas, copie intégralement l'adresse dans la barre de ton navigateur.
+Si en cliquant dessus tu n'y arrives pas, copie intégralement l'adresse dans la barre de ton navigateur. Si tu n'as pas utilisé ce lien dans six heures, tu peux tout simplement recommencer cette procédure.
 
--- 
+--
 Polytechnique.org
-\"Le portail des élèves & anciens élèves de l'Ecole polytechnique\"
+\"Le portail des élèves & anciens élèves de l'Ecole polytechnique\"
 
-Mail envoyé à ".Env::v('login') . (Post::has('email') ? "
+Mail envoyé à ".Env::v('login') . (Post::has('email') ? "
 Adresse de secours : " . Post::v('email') : ""));
             $mymail->send();
 
@@ -296,7 +319,7 @@ Adresse de secours : " . Post::v('email') : ""));
             $logger = $_SESSION['log'] = new CoreLogger($uid);
             $logger->log('recovery', $mails);
         } else {
-            $page->trig('Les informations que tu as rentrées ne permettent pas de récupérer ton mot de passe.<br />'.
+            $page->trig('Les informations que tu as rentrées ne permettent pas de récupérer ton mot de passe.<br />'.
                         'Si tu as un homonyme, utilise prenom.nom.promo comme login');
         }
     }
@@ -336,7 +359,7 @@ Adresse de secours : " . Post::v('email') : ""));
         $page->changeTpl('platal/skins.tpl');
         $page->assign('xorg_title','Polytechnique.org - Skins');
 
-        if (Env::has('newskin'))  {  // formulaire soumis, traitons les données envoyées
+        if (Env::has('newskin'))  {  // formulaire soumis, traitons les données envoyées
             XDB::execute('UPDATE auth_user_quick
                              SET skin={?} WHERE user_id={?}',
                          Env::i('newskin'), S::v('uid'));
@@ -396,4 +419,5 @@ Adresse de secours : " . Post::v('email') : ""));
     }
 }
 
+// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
 ?>