Changeset 4337 for extensions/Mail_supervisor/include

Timestamp:

Nov 22, 2009, 10:16:24 AM (14 years ago)

Author:

cljosse

Message:

[mail_supervisor] New tests 'anti spam' on the address e-mail.

File:

• extensions/Mail_supervisor/include/fonctions.php (modified) (3 diffs)

extensions/Mail_supervisor/include/fonctions.php

@@ -634 +634 @@
  // $mail=matusowraber93813@gmail.com ;
  // $username=fretgpsolodens ;
+global $user_name,$mail_adresse,$ip ;
+
   if (test_spam($ip,$user['username'] ,$user['email']))
   {
+
   if ($nb==0) {
         $valeurs=array( 'NULL',
@@ -753 +756 @@
 $type=array();
 $result="";
+//==================  Vérifie si l'IP est correct  ================================
+if (clj_is_ip($ip)){     
+      
+} else {  
+//==================  Vérifie si l'adresse mail est correcte  ================================ 
+      if( clj_is_mail($ip) ){  
+              $mail_adresse=$ip ;
+              $ip="";
+         }
+         else
+         {
+//==================  Login  ================ 
+           $user_name=$ip;
+           $ip="";
+         }
+}    
+//=============================================================================
+
 $user_name=str_replace(" ","%20",$user_name);
 $mail_adresse =str_replace(" ","%20",$mail_adresse);
@@ -788 +809 @@
 
 }
-                
+//================================================
+function clj_is_ip($ip)
+{
+if (ereg("^(((25[0-5]|2[0-4][0-9]|1[0-9]{2}|[1-9]{1}[0-9]|[1-9])\.){1}((25[0-5]|2[0-4][0-9]|[1]{1}[0-9]{2}|[1-9]{1}[0-9]|[0-9])\.){2}((25[0-5]|2[0-4][0-9]|[1]{1}[0-9]{2}|[1-9]{1}[0-9]|[0-9]){1}))$",$ip))    return true ;
+                 
+}
+
+function clj_is_mail($mail)
+{     
+  if(preg_match('#^[\w.-]+@[\w.-]+\.[a-zA-Z]{2,5}$#' ,$mail)) return true ;     
+}               
 ?>