|
<![CDATA[
###################################################################################
# GET DOMAIN CONTACT INFORMATION FROM INTERNIC DOMAIN SERVICE
# Where: $domain = resolvable domain name with TLD of .com, .net. or .org
#######################
function get_domain_information($domain)
{
# MAKE INITAIL CONTACT TO SERVER TO GET NAME OF WHOIS SERVER
$timeout = 10;
$net_socket = 43;
$socket_pointer = fsockopen( "rs.internic.net", $net_socket, &$errno, &$errstr, $timeout);
// Initial server conection SUCCESSFUL
if ($socket_pointer)
{
fputs($socket_pointer, "$domain\r\n");
while(!feof($socket_pointer))
{
$server = fgets($socket_pointer,128);
if (stristr($server, "Whois Server:"))
{
$whois_server = str_replace( "Whois Server: ", "", $server);
$whois_server = trim($whois_server);
}
}
fclose($socket_pointer);
}
// Initial server conection NOT SUCCESSFUL
else
{
echo "$errstr ($errno)<br>\n";
}
# GET ACTUAL DOMAIN INFORMATIONI
if ($whois_server)
{
$socket_pointer = fsockopen($whois_server, $net_socket, &$errno, &$errstr, 10);
if($socket_pointer)
{
fputs($socket_pointer, "$domain\r\n");
$xx=0;
while(!feof($socket_pointer))
{
$xx++;
$data_array[$xx]= fgets($socket_pointer,128);
}
fclose($socket_pointer);
}
else
{
$data_array = "$errstr ($errno)";
}
}
return $data_array;
}
# ENDOF get_domain_information($domain)
#######################
]]>
|
