$aAssocEntries = NULL;

IIRS_0_debug_print( "whois lookup of [$domain]..." );

if (IIRS_0_validateIP($domain)) $whois_text = IIRS_0_lookupIP($domain);

elseif (IIRS_0_validateDomain($domain)) $whois_text = IIRS_0_lookupDomain($domain);

//$whois_text may contain an error

if ($whois_text) {

$aEntries = explode("\n", $whois_text);

$aAssocEntries = array();

foreach ($aEntries as $entry) {

$aEntry = explode(":", $entry);

if (count($aEntry) == 2) $aAssocEntries[$aEntry[0]] = $aEntry[1];

}

// Error?

// array(1) { ["Error"] => string(54) " No appropriate Whois server found for abc.com domain!" }

if ( count( $aAssocEntries ) == 1 && isset( $aAssocEntries['Error'] ) ) {

// IIRS_0_translation(IGNORE_TRANSLATION, 'Could not find extended information about your website' )

$message = 'Could not find extended information about your website';

$message_detail = $aAssocEntries['Error'];

if ( $message_detail == "No appropriate Whois server found for $domain domain!" ) {

$aAssocEntries = new IIRS_Error( IIRS_WHOIS_NO_DOMAIN_SERVER, $message, $message_detail, IIRS_MESSAGE_EXTERNAL_SYSTEM_ERROR, IIRS_MESSAGE_NO_USER_ACTION, array( '$domain' => $domain ) );

} else {

$aAssocEntries = new IIRS_Error( IIRS_WHOIS_ERROR, $message, $message_detail, IIRS_MESSAGE_EXTERNAL_SYSTEM_ERROR, IIRS_MESSAGE_NO_USER_ACTION, array( '$domain' => $domain ) );

}

}

}

return $aAssocEntries;

global $whoisservers;

$domain_parts = explode(".", $domain);

$tld = strtolower(array_pop($domain_parts));

$whoisserver = $whoisservers[$tld];

if(!$whoisserver) {

return "Error: No appropriate Whois server found for $domain domain!";

}

$result = IIRS_0_queryWhoisServer($whoisserver, $domain);

if(!$result) {

return "Error: No results retrieved from $whoisserver server for $domain domain!";

}

else {

while(strpos($result, "Whois Server:") !== FALSE){

preg_match("/Whois Server: (.*)/", $result, $matches);

$secondary = $matches[1];

if($secondary) {

$result = IIRS_0_queryWhoisServer($secondary, $domain);

$whoisserver = $secondary;

}

}

}

return "$domain domain lookup results from $whoisserver server:\n\n" . $result;

$whoisservers = array(

//"whois.afrinic.net", // Africa - returns timeout error :-(

"whois.lacnic.net", // Latin America and Caribbean - returns data for ALL locations worldwide :-)

"whois.apnic.net", // Asia/Pacific only

"whois.arin.net", // North America only

"whois.ripe.net" // Europe, Middle East and Central Asia only

);

$results = array();

foreach($whoisservers as $whoisserver) {

$result = IIRS_0_queryWhoisServer($whoisserver, $ip);

if($result && !in_array($result, $results)) {

$results[$whoisserver]= $result;

}

}

$res = "RESULTS FOUND: " . count($results);

foreach($results as $whoisserver=>$result) {

$res .= "\n\n-------------\nLookup results for " . $ip . " from " . $whoisserver . " server:\n\n" . $result;

}

return $res;

$ipnums = explode(".", $ip);

if(count($ipnums) != 4) {

return false;

}

foreach($ipnums as $ipnum) {

if(!is_numeric($ipnum) || ($ipnum > 255)) {

return false;

}

}

return $ip;

if(!preg_match("/^([-a-z0-9]{2,100})\.([a-z\.]{2,8})$/i", $domain)) {

return false;

}

return $domain;

$port = 43;

$timeout = 10;

$fp = @fsockopen($whoisserver, $port, $errno, $errstr, $timeout) or die("Socket Error " . $errno . " - " . $errstr);

//if($whoisserver == "whois.verisign-grs.com") $domain = "=".$domain; // whois.verisign-grs.com requires the equals sign ("=") or it returns any result containing the searched string.

fputs($fp, $domain . "\r\n");

$out = "";

while(!feof($fp)){

$out .= fgets($fp);

}

fclose($fp);

$res = "";

if((strpos(strtolower($out), "error") === FALSE) && (strpos(strtolower($out), "not allocated") === FALSE)) {

$rows = explode("\n", $out);

foreach($rows as $row) {

$row = trim($row);

if(($row != '') && ($row{0} != '#') && ($row{0} != '%')) {

$res .= $row."\n";

}

}

}

return $res;