// WebCT95 
//
// Copyright (C) 2003 Conseil Général du Val d'Oise. All Rights
// Reserved.
//
// Developed by IDEALX S.A.S. and Bull S.A. 
//
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License as
// published by the Free Software Foundation; either version 2 of the
// License, or (at your option) any later version.
// 
// This program is distributed in the hope that it will be useful, but
// WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// General Public License for more details.
// 
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
// 02111-1307, USA.


/*
@ amerlier
^ $ : Indique que la recherche se fait dès le debut et jusqu'a la fin de la chaîne
 (il ne peut pas y avoir de caractères sautés en début et fin).
[a-zA-Z0-9._-]+ : Indique que les caractères entre crochets doivent apparaître une fois
 ou plus (ce qui revient a verifier que le nom soit mis et valide, exemple "Bill.Gates"
est valide).
@ : Indique qu'un caractère @ doit etre trouvé dans la chaîne a cet endroit
[a-zA-Z0-9._-]{2,} : Même chose que pour le nom mais ici la taille minimale est de
 2 caractères, exemple "a" n'est pas valide mais "aa" l'est.
[.] : Les crochets permettent d'éviter que le "." soit interprété comme une commande.
Il faut faire la même chose si vous desirez rechercher la présence de caractères tels
que "+" ou "^".
[a-zA-Z0-9]{2,4} : Ceci vérifit que l'extention soit alphanumérique et que sa longueur
soit entre 2 et 4 inclus.

Et de la chaîne reg2 :
[.@]{2,} : Indique que l'on trouve au moins 2 caractères parmis "." et "@" qui sont cote à cote
 (donc si la recherche sur la chaîne reg2 reussit, le mail n'est pas valide).
*/
function is_email(email) {
    var reg = /^[a-zA-Z0-9._-]+@[a-zA-Z0-9._-]{2,}[.][a-zA-Z0-9]{2,4}$/
    var reg2 = /[.@]{2,}/
    return ((reg.exec(email)!=null) && (reg2.exec(email)==null))
}