Version: 2
Type: Full Script
Category: Other
License: GNU General Public License
Description: The Program checks for (@, . and spaces in between email) returns 1 if the email is valid else returns 0 if the email is invalid
<?
// Code by James Smith
// Email james_smith73@yahoo.com
function plugin($email)
{
$pat1 = "@";
$emailarr = split ($pat1,$email);
$email1 = $emailarr[0];
$email2 = $emailarr[1];
$email = trim($email);
$elen = strlen($email);
//find for dot 46 ord of . =================================
$dotpresent = 0;
for ($i=2;$i<=$elen;$i++)
{
$j = substr($email,0,$i);
$jlen = strlen($j);
$lastj = substr($j,$jlen-1,$jlen);
$asci = ord($lastj);
if ($asci==46)
{
$dotpresent = 1;
}
}
//find for space 32 ord of space in between ====================
$spaceexist = 0;
for ($k=0;$k<$elen;$k++)
{
$myword = substr($email,$k,1);
if (ord($myword)==32)
{
$spaceexist = 1;
}
}
if ($email2)
{
$atpresent = 1;
}
if ($atpresent=='1' AND $dotpresent=='1' AND $spaceexist=='0')
{
$validmail = 1;
}
else
{
$validmail = 0;
}
return ($validmail);
}
$email = "james_smith73@yahoo.com";
$validmail = plugin($email);
//Return 1 if email is valid else 0 if mail is invalid
print ("$email is $validmail");
?>