Source for file Email.php
Documentation is available at Email.php
* $Id: Email.php 1444 2007-05-23 09:55:32Z romanb $
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
* A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
* OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
* LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
* OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
* This software consists of voluntary contributions made by many individuals
* and is licensed under the LGPL. For more information, see
* <http://www.phpdoctrine.com>.
* Doctrine_Validator_Email
* @category Object Relational Mapping
* @license http://www.opensource.org/licenses/lgpl-license.php LGPL
* @link www.phpdoctrine.com
* @version $Revision: 1444 $
* @author Konsta Vesterinen <kvesteri@cc.hut.fi>
* @link http://iamcal.com/publish/articles/php/parsing_email/pdf/
* @param Doctrine_Record $record
public function validate(Doctrine_Record $record, $key, $value, $args)
$qtext =
'[^\\x0d\\x22\\x5c\\x80-\\xff]';
$dtext =
'[^\\x0d\\x5b-\\x5d\\x80-\\xff]';
$atom =
'[^\\x00-\\x20\\x22\\x28\\x29\\x2c\\x2e\\x3a-\\x3c\\x3e\\x40\\x5b-\\x5d\\x7f-\\xff]+';
$quoted_pair =
'\\x5c[\\x00-\\x7f]';
$domain_literal =
"\\x5b($dtext|$quoted_pair)*\\x5d";
$quoted_string =
"\\x22($qtext|$quoted_pair)*\\x22";
$sub_domain =
"($domain_ref|$domain_literal)";
$word =
"($atom|$quoted_string)";
$domain =
"$sub_domain(\\x2e$sub_domain)+";
following psudocode to allow strict checking - ask pookey about this if you're puzzled
if ($this->getValidationOption('strict_checking') == true) {
$domain = "$sub_domain(\\x2e$sub_domain)*";
$local_part =
"$word(\\x2e$word)*";
$addr_spec =
"$local_part\\x40$domain";
return (bool)
preg_match("!^$addr_spec$!D", $value);