diff --git a/htdocs/lib/functions.inc.php b/htdocs/lib/functions.inc.php index 18411d7f50e..b40bb996c44 100644 --- a/htdocs/lib/functions.inc.php +++ b/htdocs/lib/functions.inc.php @@ -38,6 +38,51 @@ Ensemble de fonctions de base de dolibarr sous forme d'include */ +/* + + valid_email() checks the basic syntax of an email address and returns true/false. + + Distributed by Nick Brandt (nick@nbrandt.com) + Last modified 27/Feb /2003 1:15 +*/ +function valid_email($email) { + if (ereg("^([0-9,a-z,A-Z]+)([.,_,-]([0-9,a-z,A-Z]+))*[@]([0-9,a-z,A-Z]+)([.,_,-]([0-9,a-z,A-Z]+))*[.]([0-9,a-z,A-Z]){2}([0-9,a-z,A-Z])*$",$email)) { + return TRUE; + } else { + return FALSE; + } +} + + +function ValidEmail($address) +{ + if( ereg( ".*<(.+)>", $address, $regs ) ) { + $address = $regs[1]; + } + if(ereg( "^[^@ ]+@([a-zA-Z0-9\-]+\.)+([a-zA-Z0-9\-]{2}|net|com|gov|mil|org|edu|int)\$",$address) ) + { + return TRUE; + } + else + { + return FALSE; + } +} + +function check_mail ($mail) +{ + list($user, $domain) = split("@", $mail, 2); + if (checkdnsrr($domain, "MX")) + { + return true; + } + else + { + return false; + } +} + + /*! \brief Envoi des messages dolibarr dans syslog. @@ -46,6 +91,9 @@ Le \a message est envoyé dans syslog dans la catégorie LOG_USER. */ + + + function dolibarr_syslog($message, $level=LOG_ERR) { openlog("dolibarr", LOG_PID | LOG_PERROR, LOG_USER); # LOG_USER au lieu de LOG_LOCAL0 car non accepté par tous les PHP