<?

function validate_email($emailaddr) {
  // courtesy of <michael@aldosoft.com> via
  //   http://www.zend.com/codex.php?id=285&single=1
  return 
    preg_match( 
	       '/^[-!#$%&\'*+\\.\/0-9=?A-Z^_`{|}~]+'.   // the user name 
	       '@'.                                     // the ubiquitous at-sign 
	       '([-0-9A-Z]+\.)+' .                      // host, sub-, and domain names 
	       '([0-9A-Z]){2,4}$/i',                    // top-level domain (TLD) 
	       trim($emailaddr));
}

?>