";
print "";
print '';
// regex get
print "S::GETEMAILREGEX(0): " . Email::getEmailRegex(0) . "
";
print "S::GETEMAILREGEX(2): " . Email::getEmailRegex(2) . "
";
print "S::GETEMAILREGEX(7): " . Email::getEmailRegex(7) . "
";
print "S::GETEMAILREGEX(8 invalid): " . Email::getEmailRegex(8) . "
";
print "S::GETEMAILREGEXCHECK: " . DgS::printAr(Email::getEmailRegexCheck()) . "
";
print "S::GETEMAILREGEXERRORMESSAGE " . Dgs::printAr(Email::getEmailRegexErrorMessage(1)) . "
";
$email = [
'foo@bar.org',
'foo@i.softbank.ne.jp'
];
foreach ($email as $s_email) {
print "S::EMAIL: $s_email: " . Email::getEmailType($s_email) . "
";
print "S::EMAIL SHORT: $s_email: " . Email::getEmailType($s_email, true) . "
";
}
$email = [
'test@test.com',
'',
'-@-',
'.test@test.com',
'test@t_est.com',
'test@@test.com',
'test@test..com',
'test@@test..com',
'test@test.',
'test@test.j',
];
foreach ($email as $s_email) {
print "S::CHECKEMAIL: " . $s_email . ": " . (Email::checkEmail($s_email) ? 'Yes' : 'No') . "
";
print "S::CHECKEMAILFULL: " . $s_email . ": " . Dgs::printAr(Email::checkEmailFull($s_email)) . "
";
print "S::CHECKEMAILFULL(true): " . $s_email . ": " . Dgs::printAr(Email::checkEmailFull($s_email, true)) . "
";
}
// DEPRECATED
/* foreach ($email as $s_email) {
print "D/S-EMAIL: $s_email: ".$basic->getEmailType($s_email)."
";
print "D/S-EMAIL SHORT: $s_email: ".$basic->getEmailType($s_email, true)."
";
} */
// error message
print $basic->log->printErrorMsg();
print "";
// __END__