PX : code

TLD Registrar Query by Lew Payne
Rating: 5.00
Download this code


<?php
//
//  RegInfo - returns 1st level registry info for given com/net/org domain
//    Useful for when you only need to know a limited amount of info.
//
//  Author:
//    Lew Payne <lew@lppi.com> on August 12, 2000
//
//  Usage:
//    include( "RegInfo.php" );
//    $info = RegInfo( "persiankitty.com" );
//
//  Returns array:
//    $info[ns1] = "ns1.persiankitty.com"
//    $info[ns2] = "ns2.persiankitty.com"
//    $info[ns3] = "ns3.persiankitty.com"
//    $info[registrar] = "NETWORK SOLUTIONS, INC."
//    $info[whois] = "whois.networksolutions.com"
//    $info[referral] = "www.networksolutions.com"
//    $info[updated] = "04-apr-2000"
//
//
Function RegInfo$domain ) {
  
$registry "whois.nsiregistry.net";
  
$fp fsockopen$registry,43,&$errno,&$errstr,10 );
  if( !
$fp ) return FALSE;
  
fputs$fp,"$domain\r\n" );
  while( !
feof($fp) ) {
    
$data fgets$fp,128 );
    if( 
ereg("Registrar:",$data) )
      
$info[registrar] = trimstr_replace("Registrar:","",$data) );
    if( 
ereg("Referral URL:",$data) )
      
$info[referral] = trimstr_replace("Referral URL:","",$data) );
    if( 
ereg("Whois Server:",$data) )
      
$info[whois] = trimstr_replace("Whois Server:","",$data) );
    if( 
ereg("Updated Date:",$data) )
      
$info[updated] = trimstr_replace("Updated Date:","",$data) );
    if( 
ereg("Name Server:",$data) ) {
      
$nameserver strtolowertrim(str_replace("Name Server:","",$data)) );
      if( (!
$info[ns4]) && ($info[ns3]) ) $info[ns4] = $nameserver;
      if( (!
$info[ns3]) && ($info[ns2]) ) $info[ns3] = $nameserver;
      if( (!
$info[ns2]) && ($info[ns1]) ) $info[ns2] = $nameserver;
      if(  !
$info[ns1]) $info[ns1] = $nameserver;
    }
  }
  
fclose$fp );
  return 
$info;
};
?>

Comments or questions?
PX is running PHP 5.2.17
Thanks to Miranda Productions for hosting and bandwidth.
Use of any code from PX is at your own risk.