";
if (!eregi("^[_\.0-9a-z-]+@([0-9a-z][0-9a-z-]+\.)+[a-z]{2,5}$", $email))
$warning .= "Adresse email incorrecte ! ";
if(!isset($warning)){
$subject="Désinscription à la mailing list du CETIM";
$body .="Email: ".$email."";
mail($email_default,$subject,$body,"From: cetim.ch\r\n"."MIME-Version: 1.0\r\n"."Content-type: text/html; charset=iso-8859-1\r\n");
$status = "ok";
}
}
?>
CETIM - Centre Europe - Tiers Monde
