X-Git-Url: http://git.polytechnique.org/?a=blobdiff_plain;f=include%2Fxorg.misc.inc.php;h=afcb63e34548a5d39e56e1fbe8c206f44b951dab;hb=493b6abebf3d6c35691f66fd1bfdc063efaab576;hp=5473e7e1b913550045a727330178ab0253aed8ad;hpb=2efe535510d762fc2cdf1a055e5dcec2c0155d80;p=platal.git

diff --git a/include/xorg.misc.inc.php b/include/xorg.misc.inc.php
index 5473e7e..afcb63e 100644
--- a/include/xorg.misc.inc.php
+++ b/include/xorg.misc.inc.php
@@ -51,7 +51,7 @@ function quoted_printable_encode($input, $line_max = 76) {
     return trim($output);
 }
 
-/** vérifie si une adresse email convient comme adresse de redirection 
+/** vérifie si une adresse email convient comme adresse de redirection 
  * @param $email l'adresse email a verifier
  * @return BOOL
  */
@@ -60,44 +60,44 @@ function isvalid_email_redirection($email) {
 	!preg_match("/@(polytechnique\.(org|edu)|melix\.(org|net)|m4x\.org)$/", $email);
 }
 
-/* Un soundex en français posté par Frédéric Bouchery
-   Voici une adaptation en PHP de la fonction soundex2 francisée de Frédéric BROUARD (http://sqlpro.developpez.com/Soundex/).
-   C'est une bonne démonstration de la force des expressions régulières compatible Perl.
-   trouvé sur http://expreg.com/voirsource.php?id=40&type=Chaines%20de%20caract%E8res */
+/* Un soundex en français posté par Frédéric Bouchery
+   Voici une adaptation en PHP de la fonction soundex2 francisée de Frédéric BROUARD (http://sqlpro.developpez.com/Soundex/).
+   C'est une bonne démonstration de la force des expressions régulières compatible Perl.
+   trouvé sur http://expreg.com/voirsource.php?id=40&type=Chaines%20de%20caract%E8res */
 function soundex_fr($sIn)
 { 
-    // Si il n'y a pas de mot, on sort immédiatement 
+    // Si il n'y a pas de mot, on sort immédiatement 
     if ( $sIn === '' ) return '    '; 
     // On met tout en minuscule 
     $sIn = strtoupper( $sIn ); 
     // On supprime les accents 
-    $sIn = strtr( $sIn, 'ÂÄÀÇÈÉÊ˼ÎÏÔÖÙÛÜ', 'AAASEEEEEIIOOUUU' ); 
+    $sIn = strtr( $sIn, 'ÂÄÀÇÈÉÊËŒÎÏÔÖÙÛÜ', 'AAASEEEEEIIOOUUU' ); 
     // On supprime tout ce qui n'est pas une lettre 
     $sIn = preg_replace( '`[^A-Z]`', '', $sIn ); 
-    // Si la chaîne ne fait qu'un seul caractère, on sort avec. 
+    // Si la chaîne ne fait qu'un seul caractère, on sort avec. 
     if ( strlen( $sIn ) === 1 ) return $sIn . '   '; 
     // on remplace les consonnances primaires 
     $convIn = array( 'GUI', 'GUE', 'GA', 'GO', 'GU', 'CA', 'CO', 'CU', 'Q', 'CC', 'CK' ); 
     $convOut = array( 'KI', 'KE', 'KA', 'KO', 'K', 'KA', 'KO', 'KU', 'K', 'K', 'K' ); 
     $sIn = str_replace( $convIn, $convOut, $sIn ); 
-    // on remplace les voyelles sauf le Y et sauf la première par A 
+    // on remplace les voyelles sauf le Y et sauf la première par A 
     $sIn = preg_replace( '`(?<!^)[EIOU]`', 'A', $sIn ); 
-    // on remplace les préfixes puis on conserve la première lettre 
-    // et on fait les remplacements complémentaires 
+    // on remplace les préfixes puis on conserve la première lettre 
+    // et on fait les remplacements complémentaires 
     $convIn = array( '`^KN`', '`^(PH|PF)`', '`^MAC`', '`^SCH`', '`^ASA`', '`(?<!^)KN`', '`(?<!^)(PH|PF)`', '`(?<!^)MAC`', '`(?<!^)SCH`', '`(?<!^)ASA`' ); 
     $convOut = array( 'NN', 'FF', 'MCC', 'SSS', 'AZA', 'NN', 'FF', 'MCC', 'SSS', 'AZA' ); 
     $sIn = preg_replace( $convIn, $convOut, $sIn ); 
     // suppression des H sauf CH ou SH 
     $sIn = preg_replace( '`(?<![CS])H`', '', $sIn ); 
-    // suppression des Y sauf précédés d'un A 
+    // suppression des Y sauf précédés d'un A 
     $sIn = preg_replace( '`(?<!A)Y`', '', $sIn ); 
     // on supprime les terminaisons A, T, D, S 
     $sIn = preg_replace( '`[ATDS]$`', '', $sIn ); 
-    // suppression de tous les A sauf en tête 
+    // suppression de tous les A sauf en tête 
     $sIn = preg_replace( '`(?!^)A`', '', $sIn ); 
-    // on supprime les lettres répétitives 
+    // on supprime les lettres répétitives 
     $sIn = preg_replace( '`(.)\1`', '$1', $sIn ); 
-    // on ne retient que 4 caractères ou on complète avec des blancs 
+    // on ne retient que 4 caractères ou on complète avec des blancs 
     return substr( $sIn . '    ', 0, 4); 
 }
 
@@ -112,19 +112,37 @@ function make_forlife($prenom,$nom,$promo) {
 }
 
 function check_ip($level)
-{   
+{
+    if (empty($_SERVER['REMOTE_ADDR'])) {
+        return false;
+    }
+    if (empty($_SESSION['check_ip'])) {
+        $ips = array();
+        if (!empty($_SERVER['HTTP_X_FORWARDED_FOR'])) {
+            $ips = explode(',', $_SERVER['HTTP_X_FORWARDED_FOR']);
+        }
+        $ips[] = $_SERVER['REMOTE_ADDR'];
+        foreach ($ips as &$ip) {
+            $ip = "ip='$ip'";
+        }
+        $res = XDB::query('SELECT state
+                             FROM ip_watch
+                            WHERE ' . implode(' OR ', $ips) . '
+                         ORDER BY state DESC');
+        if ($res->numRows()) {
+            $_SESSION['check_ip'] = $res->fetchOneCell();
+        } else {
+            $_SESSION['check_ip'] = 'safe';
+        }
+    }
     $test = array();
     switch ($level) {
-      case 'unsafe': $test[] = "state = 'unsafe'";
-      case 'dangerous': $test[] = "state = 'dangerous'";
-      case 'ban': $test[] = "state = 'ban'"; break;
+      case 'unsafe': $test[] = 'unsafe';
+      case 'dangerous': $test[] = 'dangerous';
+      case 'ban': $test[] = 'ban'; break;
       default: return false;
     }
-    $res = XDB::query("SELECT  state
-                         FROM  ip_watch
-                        WHERE  ip = {?} AND (" . implode(' OR ', $test) . ')',
-                      $_SERVER['REMOTE_ADDR']);
-    return $res->numRows();
+    return in_array($_SESSION['check_ip'], $test);
 }
 
 function check_email($email, $message)
@@ -139,6 +157,17 @@ function check_email($email, $message)
     return false;
 }
 
+function check_redirect($red = null)
+{
+    require_once 'emails.inc.php';
+    if (is_null($red)) {
+        $red = new Redirect(S::v('uid'));
+    }    
+    $_SESSION['no_redirect'] = !$red->other_active('');
+    $_SESSION['mx_failures'] = $red->get_broken_mx();
+    
+}
+
 function send_warning_mail($title)
 {
     $mailer = new PlMailer();
@@ -150,4 +179,5 @@ function send_warning_mail($title)
     $mailer->send(); 
 }
 
+// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
 ?>