Re: [Devel] r238 - trunk

["David MENTRE" <dmentre AT linux-france.org>]

Salut Thomas,

2007/2/1, svn AT agendadulibre.org <svn AT agendadulibre.org>:
>    if (! ereg("^([A-Za-z0-9_\.\-]*)@([A-Za-z0-9_\-]*)\.([A-Za-z0-9_\.\-]*)$", 
> $contact))

Tiens, j'avais jamais relu cette partie de code mais je suis quasiment
sur que tu peux avoir un `+' en partie gauche du @ (le nom de compte),
par exemple dmentre+adl@. C'est utilisé notamment pour faire des
filtres propres à l'utilisateur (tous les emails dmentre+machin vont
au compte dmentre).

Par ailleurs, dans les énumerations de caractères ([...]), tu peux ne
pas backquoter le tiret `-' si tu le mets en premier. Idem pour le
point `.', pas la peine de le backquoter. En tout cas, en Perl c'est
comme ça.

Je viens de vérifier, la page
http://fr.php.net/manual/fr/ref.regex.php dit qu'il faut suivre la
page de man de regex.7 qui dit notamment :
http://www.tin.org/bin/man.cgi?section=7&topic=regex
      To include a literal `]' in the list, make it the first character (fol-
      lowing a possible `^').  To include a literal `-', make it the first or
      last  character,  or  the second endpoint of a range.  To use a literal
      `-' as the first endpoint of a range, enclose it in `[.'  and  `.]'  to
      make  it  a collating element (see below).  With the exception of these
      and some combinations using `[' (see next paragraphs), all  other  spe-
      cial  characters, including `\', lose their special significance within
      a bracket expression.

Donc, en particulier, ton `\.' match `\' *et* `.' !

Au final ça donnerait :
 ereg("^([-A-Za-z0-9_+.]*)@([-A-Za-z0-9_]*)\.([-A-Za-z0-9_.]*)$", $contact))

Amicalement,
d.