Re: Re: [sympa-fr] abonné avec apostrophe dans son adresse courriel

["Marchand Robert" <adresse@cachée>]

Bonjour,

 

    je viens tout juste de rentrer de vacances (en France). J'imagine que c'est réglé mais à tout hasard je renvois la rustine que nous avions appliqués.  C'est mon collègue Gilles Tellier qui avait repéré ce bogue (rapport de bogue #153) et c'est vous :-) qui nous avez fourni une rustine (pour la version 3.4.4.1).  Nous n'avons plus de problèmes depuis ce temps (juillet 2003).

 

Merci.

 

? src/aliaswrapper
? src/bouncequeue
? src/queue
? src/virtualwrapper
Index: src/List.pm
===================================================================
RCS file: /home/sympa/cvsroot/sympa/src/List.pm,v
retrieving revision 1.333.2.28
diff -c -r1.333.2.28 List.pm
*** src/List.pm 17 Jul 2003 07:34:57 -0000 1.333.2.28
--- src/List.pm 17 Jul 2003 07:42:51 -0000
***************
*** 217,223 ****
          );
 
  ## Regexps for list params
! my %regexp = ('email' => '([\w\-\_\.\/\+\=]+|\".*\")\@[\w\-]+(\.[\w\-]+)+',
         'host' => '[\w\.\-]+',
         'listname' => '[a-z0-9][a-z0-9\-\._]+',
         'sql_query' => '(SELECT|select).*',
--- 217,223 ----
          );
 
  ## Regexps for list params
! my %regexp = ('email' => '([\w\-\_\.\/\+\=\']+|\".*\")\@[\w\-]+(\.[\w\-]+)+',
         'host' => '[\w\.\-]+',
         'listname' => '[a-z0-9][a-z0-9\-\._]+',
         'sql_query' => '(SELECT|select).*',
Index: src/tools.pl
===================================================================
RCS file: /home/sympa/cvsroot/sympa/src/tools.pl,v
retrieving revision 1.90.2.9
diff -c -r1.90.2.9 tools.pl
*** src/tools.pl 15 Jul 2003 14:00:38 -0000 1.90.2.9
--- src/tools.pl 17 Jul 2003 07:42:51 -0000
***************
*** 1372,1378 ****
  sub valid_email {
      my $email = shift;
     
!     $email =~ /^([\w\-\_\.\/\+\=]+|\".*\")\@[\w\-]+(\.[\w\-]+)+$/;
  }
 
  ## Return canonical email address (lower-cased + space cleanup)
--- 1372,1378 ----
  sub valid_email {
      my $email = shift;
     
!     $email =~ /^([\w\-\_\.\/\+\=\']+|\".*\")\@[\w\-]+(\.[\w\-]+)+$/;
  }
 
  ## Return canonical email address (lower-cased + space cleanup)