86 lines
2.4 KiB
PHP
86 lines
2.4 KiB
PHP
<?php // phpcs:ignore warning
|
|
|
|
/**
|
|
* @phan-file-suppress PhanTypeSuspiciousStringExpression
|
|
*/
|
|
|
|
declare(strict_types=1);
|
|
|
|
$DEBUG_ALL_OVERRIDE = 0; // set to 1 to debug on live/remote server locations
|
|
$DEBUG_ALL = 1;
|
|
$PRINT_ALL = 1;
|
|
$DB_DEBUG = 1;
|
|
|
|
if ($DEBUG_ALL) {
|
|
error_reporting(E_ALL | E_STRICT | E_ERROR | E_WARNING | E_PARSE | E_COMPILE_ERROR);
|
|
}
|
|
|
|
ob_start();
|
|
|
|
// basic class test file
|
|
define('USE_DATABASE', false);
|
|
// sample config
|
|
require 'config.php';
|
|
// set session name
|
|
if (!defined('SET_SESSION_NAME')) {
|
|
define('SET_SESSION_NAME', EDIT_SESSION_NAME);
|
|
}
|
|
// define log file id
|
|
$LOG_FILE_ID = 'classTest-email';
|
|
ob_end_flush();
|
|
|
|
use CoreLibs\Check\Email;
|
|
use CoreLibs\Debug\Support as DgS;
|
|
|
|
$basic = new CoreLibs\Basic();
|
|
|
|
print "<html><head><title>TEST CLASS: HTML/ELEMENTS</title><head>";
|
|
print "<body>";
|
|
print '<div><a href="class_test.php">Class Test Master</a></div>';
|
|
|
|
// regex get
|
|
print "S::GETEMAILREGEX(0): " . Email::getEmailRegex(0) . "<br>";
|
|
print "S::GETEMAILREGEX(2): " . Email::getEmailRegex(2) . "<br>";
|
|
print "S::GETEMAILREGEX(7): " . Email::getEmailRegex(7) . "<br>";
|
|
print "S::GETEMAILREGEX(8 invalid): " . Email::getEmailRegex(8) . "<br>";
|
|
print "S::GETEMAILREGEXCHECK: " . DgS::printAr(Email::getEmailRegexCheck()) . "<br>";
|
|
print "S::GETEMAILREGEXERRORMESSAGE " . Dgs::printAr(Email::getEmailRegexErrorMessage(1)) . "<br>";
|
|
|
|
$email = [
|
|
'foo@bar.org',
|
|
'foo@i.softbank.ne.jp'
|
|
];
|
|
foreach ($email as $s_email) {
|
|
print "S::EMAIL: $s_email: " . Email::getEmailType($s_email) . "<br>";
|
|
print "S::EMAIL SHORT: $s_email: " . Email::getEmailType($s_email, true) . "<br>";
|
|
}
|
|
$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') . "<br>";
|
|
print "S::CHECKEMAILFULL: " . $s_email . ": " . Dgs::printAr(Email::checkEmailFull($s_email)) . "<br>";
|
|
print "S::CHECKEMAILFULL(true): " . $s_email . ": " . Dgs::printAr(Email::checkEmailFull($s_email, true)) . "<br>";
|
|
}
|
|
// DEPRECATED
|
|
/* foreach ($email as $s_email) {
|
|
print "D/S-EMAIL: $s_email: ".$basic->getEmailType($s_email)."<br>";
|
|
print "D/S-EMAIL SHORT: $s_email: ".$basic->getEmailType($s_email, true)."<br>";
|
|
} */
|
|
|
|
// error message
|
|
print $basic->log->printErrorMsg();
|
|
|
|
print "</body></html>";
|
|
|
|
// __END__
|