Source for file Email.php

Documentation is available at Email.php

  1. <?php
  2. /*
  3.  *  $Id: Email.php 1444 2007-05-23 09:55:32Z romanb $
  4.  *
  5.  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
  6.  * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
  7.  * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
  8.  * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
  9.  * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  10.  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
  11.  * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  12.  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  13.  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  14.  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
  15.  * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  16.  *
  17.  * This software consists of voluntary contributions made by many individuals
  18.  * and is licensed under the LGPL. For more information, see
  19.  * <http://www.phpdoctrine.com>.
  20.  */
  21.  
  22. /**
  23.  * Doctrine_Validator_Email
  24.  *
  25.  * @package     Doctrine
  26.  * @category    Object Relational Mapping
  27.  * @license     http://www.opensource.org/licenses/lgpl-license.php LGPL
  28.  * @link        www.phpdoctrine.com
  29.  * @since       1.0
  30.  * @version     $Revision: 1444 $
  31.  * @author      Konsta Vesterinen <kvesteri@cc.hut.fi>
  32.  */
  33. {
  34.     /**
  35.      * @link http://iamcal.com/publish/articles/php/parsing_email/pdf/
  36.      * @param Doctrine_Record $record 
  37.      * @param string $key 
  38.      * @param mixed $value 
  39.      * @param string $args 
  40.      * @return boolean 
  41.      */
  42.     public function validate(Doctrine_Record $record$key$value$args)
  43.     {
  44.         if (empty($value)) {
  45.             return true;
  46.         }
  47.         if (isset($args[0])) {
  48.             $parts explode("@"$value);
  49.             if (isset($parts[1]&& function_exists("checkdnsrr")) {
  50.                 if checkdnsrr($parts[1]"MX")) {
  51.                     return false;
  52.                 }
  53.             }
  54.         }
  55.  
  56.         $qtext '[^\\x0d\\x22\\x5c\\x80-\\xff]';
  57.         $dtext '[^\\x0d\\x5b-\\x5d\\x80-\\xff]';
  58.         $atom '[^\\x00-\\x20\\x22\\x28\\x29\\x2c\\x2e\\x3a-\\x3c\\x3e\\x40\\x5b-\\x5d\\x7f-\\xff]+';
  59.         $quoted_pair '\\x5c[\\x00-\\x7f]';
  60.         $domain_literal "\\x5b($dtext|$quoted_pair)*\\x5d";
  61.         $quoted_string "\\x22($qtext|$quoted_pair)*\\x22";
  62.         $domain_ref $atom;
  63.         $sub_domain "($domain_ref|$domain_literal)";
  64.         $word "($atom|$quoted_string)";
  65.         $domain "$sub_domain(\\x2e$sub_domain)+";
  66.         /*
  67.           following psudocode to allow strict checking - ask pookey about this if you're puzzled
  68.  
  69.           if ($this->getValidationOption('strict_checking') == true) {
  70.               $domain = "$sub_domain(\\x2e$sub_domain)*";
  71.           }
  72.         */
  73.         $local_part "$word(\\x2e$word)*";
  74.         $addr_spec "$local_part\\x40$domain";
  75.  
  76.         return (bool)preg_match("!^$addr_spec$!D"$value);
  77.     }
  78.  
  79. }