* January 2002, Updated Nov 2003, Logic fix May 2006 * http://www.pgregg.com/projects/php/code/validate_email.inc.phps * Copyright 2002-2003, Paul Gregg. */ Function ValidateEmail($emailstr) { // Make the email address lower case and remove whitespace $emailstr = strtolower(trim($emailstr)); // Split it up into before and after the @ symbol $email_components = explode('@', $emailstr); // Check that there is only one @ symbol if (count($email_components) != 2) return FALSE; // Check that the username is >= 1 char if (strlen($email_components[0]) == 0) return FALSE; // Split the domain part into the dotted parts $domain_components = explode('.', $email_components[1]); // check there are at least 2 if (count($domain_components) < 2) return FALSE; // Check each domain part to ensure it doesn't start or end with a bad char foreach ($domain_components as $domain_component) if ( strlen($domain_component) > 0 ) { if ( preg_match('/[\.-]/', $domain_component[0]) || preg_match('/[\.-]/', $domain_component[strlen($domain_component)-1]) ) return FALSE; } else return FALSE; // Check the last domain component has 2-6 chars (.uk to .museum) $domain_last = array_pop($domain_components); if (strlen($domain_last) < 2 || strlen($domain_last) > 6) return FALSE; // Check for valid chars - Domains can only have A-Z, 0-9, ., and the - chars, // or be in the form [123.123.123.123] if ( preg_match('/^\[(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\]$/', $email_components[1], $ipnum) ) return (ip2long($ipnum[1]) === false ? false : true); if ( preg_match('/^[a-z0-9\.-]+$/', $email_components[1]) ) return TRUE; // If we get here then it didn't pass return FALSE; } ?>