Forum PHP.pl

[PHP] pobierz, plaintext 
<?php
 
function CheckWhois($strDomainName, $strTLD) {
 
	$error = 'Nie można było połączyć się serwerem w celu sprawdzenia dostępności domeny';
	$fail = 'Domena www.' . $strDomainName . '.' . $strTLD . ' jest zajęta.';
	$succ = 'Domena www.' . $strDomainName . '.' . $strTLD . ' jest wolna.';
 
	if ($strDomainName) { 
	// wybierz serwer do sprawdzenia whois 
		switch ($strTLD) {
			case "pl":
				$server ="whois.dns.pl";
				break;
			case "eu":
				$server="whois.eu";
				break;
			default:	
				 return $error; 
				break;
		}
		// otworzenie polaczenia z whois
		$fp = fsockopen( $server, 43, &$errno, &$errstr, 10); 
	} else {
		return $error;
	}	
	if (!$fp) { 
		return $error; // nie mozna bylo sprawdzic dostepnosci domeny
	} else { 
		$FullDomain=$strDomainName.".".$strTLD;
		fputs($fp, "$FullDomainrn"); 
		// sprawdz dostepnosc domeny
		while(!feof($fp)) { 
			$buf = fgets($fp,128);
			if (ereg( "No entries found", $buf) and ($strTLD=="eu")) { 
				return $succ;  
			} elseif ( ereg( "No information about domain", $buf) and ($strTLD=="pl") ) {
				return $succ;
			}	
 
		} 
		fclose($fp); 
	} 
	return $fail;
}
 
 
 
echo CheckWhois('art','eu');
 
?>
[PHP] pobierz, plaintext 

% .eu Whois Server 1.0 % % © 2005 (http://www.eurid.eu) % % The WHOIS service offered by EURid and the access to the records % in the EURid WHOIS database are provided for information purposes % only. It allows persons to check whether a specific domain name % is still available or not and to obtain information related to % the registration records of existing domain names. % % EURid cannot, under any circumstances, be held liable in case the % stored information would prove to be wrong, incomplete or not % accurate in any sense. % % By submitting a query you agree not to use the information made % available to: % % - allow, enable or otherwise support the transmission of unsolicited, % commercial advertising or other solicitations whether via email or % otherwise; % - target advertising in any possible way; % % - to cause nuisance in any possible way to the registrants by sending % (whether by automated, electronic processes capable of enabling % high volumes or other possible means) messages to them. % % Without prejudice to the above, it is explicitly forbidden to extract, % copy and/or use or re-utilise in any form and by any means % (electronically or not) the whole or a quantitatively or qualitatively % substantial part of the contents of the WHOIS database without prior % and explicit permission by EURid, nor in any attempt hereof, to apply % automated, electronic processes to EURid (or its systems). % % You agree that any reproduction and/or transmission of data for % commercial purposes will always be considered as the extraction of a % substantial part of the content of the WHOIS database. % % By submitting the query you agree to abide by this policy and accept % that EURid can take measures to limit the use of its WHOIS services % in order to protect the privacy of its registrants or the integrity % of the database. % % WHOIS art % Excessive querying, grace period of 7777777 seconds