roundcubemail/program/lib/Roundcube/rcube_utils.php
public static function check_email($email, $dns_check=true)
    {
        // Check for invalid characters
        if (preg_match('/[\x00-\x1F\x7F-\xFF]/', $email)) {
            return false;
        }

        // Check for length limit specified by RFC 5321 (#1486453)
        if (strlen($email) > 254) {
            return false;
        }

        $email_array = explode('@', $email);

        // Check that there's one @ symbol
        if (count($email_array) < 2) {
            return false;
        }

        $domain_part = array_pop($email_array);
        $local_part  = implode('@', $email_array);

        // from PEAR::Validate
        $regexp = '&^(?:
            ("\s*(?:[^"\f\n\r\t\v\b\s]+\s*)+")|                             #1 quoted name
            ([-\w!\#\$%\&\'*+~/^`|{}=]+(?:\.[-\w!\#\$%\&\'*+~/^`|{}=]+)*))  #2 OR dot-atom (RFC5322)
            $&xi';

        if (!preg_match($regexp, $local_part)) {
            return false;
        }

        // Validate domain part
        if (preg_match('/^\[((IPv6:[0-9a-f:.]+)|([0-9.]+))\]$/i', $domain_part, $matches)) {
            return self::check_ip(preg_replace('/^IPv6:/i', '', $matches[1])); // valid IPv4 or IPv6 address
        }
        else {
            // If not an IP address
            $domain_array = explode('.', $domain_part);
            // Not enough parts to be a valid domain
            if (count($domain_array) < 2) {
                return false;
            }

            foreach ($domain_array as $part) {
                if (!preg_match('/^((xn--)?([A-Za-z0-9][A-Za-z0-9-]{0,61}[A-Za-z0-9])|([A-Za-z0-9]))$/', $part)) {
                    return false;
                }
            }

            // last domain part
            $last_part = array_pop($domain_array);
            if (strpos($last_part, 'xn--') !== 0 && preg_match('/[^a-zA-Z]/', $last_part)) {
                return false;
            }

            $rcube = rcube::get_instance();

            if (!$dns_check || !function_exists('checkdnsrr') || !$rcube->config->get('email_dns_check')) {
                return true;
            }

            // Check DNS record(s)
            // Note: We can't use ANY (#6581)
            foreach (array('A', 'MX', 'CNAME', 'AAAA') as $type) {
                if (checkdnsrr($domain_part, $type)) {
                    return true;
                }
            }
        }

        return false;
    }
public static function check_email($email, $dns_check=true)
    {
        // Check for invalid characters
        if (preg_match('/[\x00-\x1F\x7F-\xFF]/', $email)) {
            return false;
        }

        // Check for length limit specified by RFC 5321 (#1486453)
        if (strlen($email) > 254) {
            return false;
        }

        $email_array = explode('@', $email);

        // Check that there's one @ symbol
        if (count($email_array) < 2) {
            return false;
        }

        $domain_part = array_pop($email_array);
        $local_part  = implode('@', $email_array);

        // from PEAR::Validate
        $regexp = '&^(?:
            ("\s*(?:[^"\f\n\r\t\v\b\s]+\s*)+")|                             #1 quoted name
            ([-\w!\#\$%\&\'*+~/^`|{}=]+(?:\.[-\w!\#\$%\&\'*+~/^`|{}=]+)*))  #2 OR dot-atom (RFC5322)
            $&xi';

        if (!preg_match($regexp, $local_part)) {
            return false;
        }

        // Validate domain part
        if (preg_match('/^\[((IPv6:[0-9a-f:.]+)|([0-9.]+))\]$/i', $domain_part, $matches)) {
            return self::check_ip(preg_replace('/^IPv6:/i', '', $matches[1])); // valid IPv4 or IPv6 address
        }
        else {
            // If not an IP address
            $domain_array = explode('.', $domain_part);
            // Not enough parts to be a valid domain
            if (count($domain_array) < 2) {
                return false;
            }

            foreach ($domain_array as $part) {
                if (!preg_match('/^((xn--)?([A-Za-z0-9][A-Za-z0-9-]{0,61}[A-Za-z0-9])|([A-Za-z0-9]))$/', $part)) {
                    return false;
                }
            }

            // last domain part
            $last_part = array_pop($domain_array);
            if (strpos($last_part, 'xn--') !== 0 && preg_match('/[^a-zA-Z]/', $last_part)) {
                return false;
            }

            $rcube = rcube::get_instance();

            if (!$dns_check || !function_exists('checkdnsrr') || !$rcube->config->get('email_dns_check')) {
                return true;
            }

            // Check DNS record(s)
            // Note: We can't use ANY (#6581)
            foreach (array('A', 'MX', 'CNAME', 'AAAA') as $type) {
                if (checkdnsrr($domain_part, $type)) {
                    return true;
                }
            }
        }

        return false;
    }
public static function check_email ( $ email , $ dns_check = true ) { // Check for invalid characters if ( preg_match ( '/[\x00-\x1F\x7F-\xFF]/' , $ email ) ) { return false ; } // Check for length limit specified by RFC 5321 (#1486453) if ( strlen ( $ email ) > 254 ) { return false ; } $ email_array = explode ( '@' , $ email ) ; // Check that there's one @ symbol if ( count ( $ email_array ) < 2 ) { return false ; } $ domain_part = array_pop ( $ email_array ) ; $ local_part = implode ( '@' , $ email_array ) ; // from PEAR::Validate $ regexp = '&^(?:
            ("\s*(?:[^"\f\n\r\t\v\b\s]+\s*)+")|                             #1 quoted name
            ([-\w!\#\$%\&\'*+~/^`|{}=]+(?:\.[-\w!\#\$%\&\'*+~/^`|{}=]+)*))  #2 OR dot-atom (RFC5322)
            $&xi' ; if ( ! preg_match ( $ regexp , $ local_part ) ) { return false ; } // Validate domain part if ( preg_match ( '/^\[((IPv6:[0-9a-f:.]+)|([0-9.]+))\]$/i' , $ domain_part , $ matches ) ) { return self :: check_ip ( preg_replace ( '/^IPv6:/i' , '' , $ matches [ 1 ] ) ) ; // valid IPv4 or IPv6 address } else { // If not an IP address $ domain_array = explode ( '.' , $ domain_part ) ; // Not enough parts to be a valid domain if ( count ( $ domain_array ) < 2 ) { return false ; } foreach ( $ domain_array as $ part ) { if ( ! preg_match ( '/^((xn--)?([A-Za-z0-9][A-Za-z0-9-]{0,61}[A-Za-z0-9])|([A-Za-z0-9]))$/' , $ part ) ) { return false ; } } // last domain part $ last_part = array_pop ( $ domain_array ) ; if ( strpos ( $ last_part , 'xn--' ) !== 0 && preg_match ( '/[^a-zA-Z]/' , $ last_part ) ) { return false ; } $ rcube = rcube :: get_instance ( ) ; if ( ! $ dns_check || ! function_exists ( 'checkdnsrr' ) || ! $ rcube -> config -> get ( 'email_dns_check' ) ) { return true ; } // Check DNS record(s) // Note: We can't use ANY (#6581) foreach ( array ( 'A' , 'MX' , 'CNAME' , 'AAAA' ) as $ type ) { if ( checkdnsrr ( $ domain_part , $ type ) ) { return true ; } } } return false ; }
E-mail address validation.

@param string $email Email address
@param boolean $dns_check True to check dns

@return boolean True on success, False if address is invalid
E - mail address validation .