<?php
// Hasan Yaşar (EJDER) 22-06-2007  
// Mail adresinin doğruluğunu ve MX kaydının olup olmadığını kontrol eder

function mail_kontrol($eposta_adresi) {
    $sablon = "/^[\w-]+(\.[\w-]+)*@";
    $sablon .= "([0-9a-z][0-9a-z-]*[0-9a-z]\.)+([a-z]{2,4})$/i";
    if (preg_match($sablon, $eposta_adresi)) {
        $parcalar = explode("@", $eposta_adresi);
        if (checkdnsrr($parcalar[1], "MX")){
            return true;
        } else {
            return false;
        }
    } else {
        return false;
    }
}
if(mail_kontrol("test@r10.net") == true)
 echo("Eposta adresi doğru");
else
 echo("Eposta adresi yanlış");
?>