DokuWiki

// Sisend: network
// Väljund: array, mille keyd on netname ja descr
$domain = '82.131.0.0';
print_r(get_ISP($domain));
 
function get_ISP($domain) {
  $server = 'whois.ripe.net';
 
  if (!($fp = fsockopen($server, 43))) {
    die('Could not connect to '.$server.'.');
    return false;
  }
 
  fwrite($fp, $domain."\r\n");
 
  $result = '';
  while (!feof($fp))
    $result .= fread($fp, 1024);
  fclose($fp);
 
  $data = split("\n", $result);
  foreach ($data as $val) {
    if (substr($val, 0, 8) == "netname:")
      $ret['netname'] = substr($val, 9);
    if (substr($val, 0, 6) == "descr:") {
      $ret['descr'] = substr($val, 7);
      break;
    }
  }
 
  return $ret;
}