ajout support domaines .im (isle of man)

This commit is contained in:
mlutfy 2009-09-25 16:12:05 +00:00
parent 0f03969b8a
commit 51fb49a25c
1 changed files with 14 additions and 1 deletions

View File

@ -344,6 +344,9 @@ class m_dom {
case "cx":
$serveur="whois.nic.cx";
break;
case "im":
$serveur="whois.nic.im";
break;
case "it":
$serveur="whois.nic.it";
break;
@ -416,6 +419,16 @@ class m_dom {
$found=true;
}
break;
case "im":
if (preg_match('/Name Server:/', $ligne)) {
$found = true;
// weird regexp (trailing garbage after name server), but I could not make it work otherwise
$tmp = strtolower(preg_replace('/Name Server: ([^ ]+)\..$/',"\\1", $ligne));
$tmp = preg_replace('/[^-_a-z0-9\.]/', '', $tmp);
if ($tmp)
$server[]=$tmp;
}
break;
case "it":
if (ereg("nserver:", $ligne)) {
$found=true;