Gracias por la respuesta, lo he incluido en el formulario, pero no funciona, alguien me puede echar una mano? este es el formulario:
<FORM action="clsWhois.php" method=post>
<TABLE border=0 align="center">
<TBODY>
<TR>
<TD>
<TABLE border=1>
<TBODY>
<TR>
<TD>
<TABLE border=0 cellPadding=3>
<TBODY>
<TR>
<TD colSpan=3 vAlign=top><FONT face=ARIAL size=-1>NOMBRE DE DOMINIO:</FONT></TD></TR>
<TR>
<TD vAlign=center><INPUT maxLength=57 name=domain></TD>
<TD align=middle vAlign=center><FONT size=+3>.</FONT></TD>
<TD align=left>
<FONT face=ARIAL><select name="ext">
<option>com
<option>net
<option>org
</select>
</FONT></TD></TR>
<TR>
<TD align=middle colSpan=3><INPUT type=submit value="Comprobar Nombre"> <INPUT type=reset value=Borrar>
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></FORM>
-----------------------------------------------------------------------------
Este es el clsWhois.php
<?
/*
************************************************** **********************
* © Sloppycode.net All rights reserved.
*
* This is a standard copyright header for all source code appearing
* at sloppycode.net. This application/class/script may be redistributed,
* as long as the above copyright remains intact.
* Comments to
[email protected]
************************************************** **********************
*/
/*
* Whois wrapper for most global TLDs
* @author C.Small <
[email protected]>
* @version 1.5 - Added PEAR style comments
* @version 1.4 - Timeout and whois_server properties added.
* @version 1.3 - Temporary fix for .name,.pro domains
* @version 1.2 - Error catching for .tv domains
* @version 1.1 - Converted to php
* @version 1.0 - Perl version [
http://www.sloppycode.net/sloppycode/Perl[CGI]/s29.html]
*/
class Whois
{
/*
* 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 (<BR>),
* 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.";
// 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.";
} 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 = "whois.internic.net";
}
flush();
}
$whoisSocket = fsockopen($this->host,43, $errno, $errstr, $this->timeout);
if ($whoisSocket)
{
fputs($whoisSocket, $domain."\015\012");
while (!feof($whoisSocket))
{
$result .= fgets($whoisSocket,128) . "<br>";
}
fclose($whoisSocket);
}
}
return $result;
}
}
?>