= 6) && (substr_count($email,"@") == 1) && (substr($email,0,1) != "@") &&
(substr($email,strlen($email)-1,1) != "@"))
{
if ((!strstr($email,"'")) && (!strstr($email,"\"")) && (!strstr($email,"\\")) &&
(!strstr($email,"\$")) && (!strstr($email," ")))
{
//miro si tiene caracter .
if (substr_count($email,".")>= 1)
{
//obtengo la terminacion del dominio
$term_dom = substr(strrchr ($email, '.'),1);
//compruebo que la terminacion del dominio sea correcta
if (strlen($term_dom)>1 && strlen($term_dom)<5 && (!strstr($term_dom,"@")) ){
//compruebo que lo de antes del dominio sea correcto
$antes_dom = substr($email,0,strlen($email) - strlen($term_dom) - 1);
$caracter_ult = substr($antes_dom,strlen($antes_dom)-1,1);
if ($caracter_ult != "@" && $caracter_ult != "."){
$mail_correcto = 1;
}
}
}
}
}
if ($mail_correcto)
return 1;
else
return 0;
}
if(isset($_POST['send']))
{
if(trim($_POST['nombre'])!="" && trim($_POST['comentarios'])!="" && trim($_POST['mail'])!="")
{
if(comprobar_email($_POST['mail'])==1)
{
$mensaje="Formulario de Eurfedling.org\n\n\nNombre: ".$_POST['nombre'].
"\n\nWebsite: ".$_POST['website']."\n\nE-Mail: ".$_POST['mail'].
"\n\nComentarios: ".$_POST['comentarios'];
if(@mail("imomundo@gmail.com",'Contactenos Eurfedling.org'.$_POST['pais'],$mensaje,"From: nica@inmonica.com"))
{
$_POST['nombre']="";
$_POST['website']="";
$_POST['mail']="";
$_POST['comentarios']="";
?>
European Union National Institutions for Language - Contact Us