[betohs2]

O mudulo >>statistics na pasta >> class .. a pagina >>clsWhois.php

esta com erro ...sendo visualizado o erro no codigo na administração do modulo....


alguem tem como me ajudar á descobrir e a corrigei o codigo ? è urgente..


>>>>>>>>>>>>>>>>>>>>>>Eis o Codigo da página >>>>>>>>>>>>
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <<


<?
include_once "../../../mainfile.php";
if ( file_exists("../language/".$xoopsConfig['language']."/main.php") ) {
include_once "../language/".$xoopsConfig['language']."/main.php";
} else {
include_once "../language/english/main.php";
}
class xWhois
{
/*
* Optional parameter for the server to be used for the lookup.
* If this is not set, an appropriate whois server for the domain name
* specified is automagically found by the Whois class.
* @type string
* @access public
*/
var $whois_server;
/*
* The timeout, in seconds, for the lookup. Default is 30.
* @type integer
* @access public
*/
var $timeout = 30;
/*
* Returns a string, with new-lines (\n) converted to non-breaking spaces (&lt;BR&gt,
* with details for the domain specified by $domain.
* @access public
* @param string $domain the domain to lookup, excluding http:// and www
* @return string the results of the whois
*/
function lookup($domain)
{
$result = "";
$parts = array();
$host = "";

// .tv don't allow access to their whois
if (strstr($domain,".tv"))
{
//$result = "'.tv' domain names require you to have an account to do whois searches.";
$result = "Please contact us regarding the $domain";
// New domains fix (half work, half don't)
} elseif (strstr($domain,".name") || strstr($domain,".pro") >0){
//$result = ".name,.pro require you to have an account to do whois searches.";
$result = "Please contact us regarding $domain";
} else{
if (empty($this->whois_server))
{
$parts = explode(".",$domain);
$testhost = $parts[sizeof($parts)-1];
$whoisserver = $testhost . ".whois-servers.net";
$this->host = gethostbyname($whoisserver);
$this->host = gethostbyaddr($this->host);

if ($this->host == $testhost)
{
$this->host = "InterNIC | The Internet's Network Information Center";
}
}

$whoisSocket = fsockopen($this->host,43, $errno, $errstr, $this->timeout);

if (!$whoisSocket)
{
$result = STATS_DNSLOOKUP_ERROR."<br>".$errno."&nbsp;-&nbsp;".$errstr."<br>";
}
else
{
fputs($whoisSocket, $domain."\015\012");
while (!feof($whoisSocket))
{
$result .= fgets($whoisSocket,128) . "<br>";
}
fclose($whoisSocket);
}
}
return $result;
}

function reverselookup( $ip )
{
// using the arin database cgi...have to keep an eye on things to make sure it works long term!
$fullurl = "ARIN: WHOIS Database Search";

$url = parse_url($fullurl);
if(!in_array($url['scheme'],array('','http')))
return;
$fp = fsockopen ($url['host'], ($url['port'] > 0 ? $url['port'] : 80), $errno, $errstr, $this->timeout);
if (!$fp)
{
$d = STATS_REVERSELOOKUP_ERROR."<br>".$errno."&nbsp;-&nbsp;".$errstr."<br>";
}
else
{
fputs ($fp, "GET /".$url['path'].($url['query'] ? '?'.$url['query'] : '')." HTTP/1.0\r\nHost: ".$url['host']."\r\n\r\n");
$d = '';
while (!feof($fp))
{
$d .= fgets ($fp,2048);
}
fclose ($fp);

$d = stristr($d, 'Search results for: ');
$d = str_replace( "cgi-bin/whois.pl?queryinput=N%20!%20", "modules/statistics/admin/index.php?op=reverseip&iplookup=", $d );
$d = str_replace( "cgi-bin/whois.pl?queryinput=P%20!%20", "modules/statistics/admin/index.php?op=reverseip&iplookup=", $d );
}

return $d;
}
}
?>