Subversion Repositories vgwhois

Rev

Rev 11 | Rev 57 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 11 Rev 29
Line 82... Line 82...
82 
	$pc = str_replace(')', '', $pc); # wegen regexes, z.b. \.(pn)$
 82 
	$pc = str_replace(')', '', $pc); # wegen regexes, z.b. \.(pn)$
83 
	# if (strpos($pattern_cont, '\.'.trim($tld)) === false) {
 83 
	# if (strpos($pattern_cont, '\.'.trim($tld)) === false) {
84 
	# if (strpos(str_replace(')', '', $pattern_cont), '\.'.trim($tld).'$') === false) { # ')' wegen RegEx'es
 84 
	# if (strpos(str_replace(')', '', $pattern_cont), '\.'.trim($tld).'$') === false) { # ')' wegen RegEx'es
85 
	if (!preg_match($regex, $pc)) {
 85 
	if (!preg_match($regex, $pc)) {
86 
		$iana_url = sprintf(IANA_TLD_ENTRY, $tld);
 86 
		$iana_url = sprintf(IANA_TLD_ENTRY, $tld);
87 
		$iana_cont = file_get_contents($iana_url);
 87 
		$iana_cont = cached_file($iana_url, CACHE_FILE_DIR);
88 
		if (strpos($iana_cont, 'This domain is not present in the root zone at this time.') === false) {
 88 
		if (strpos($iana_cont, 'This domain is not present in the root zone at this time.') === false) {
89 
			$loc_good = false;
 89 
			$loc_good = false;
90 
 
 90 
 
91 
			# TODO: hier sollte man evtl schon gucken, ob bei iana.org ein whois-name vorliegt.
 91 
			# TODO: hier sollte man evtl schon gucken, ob bei iana.org ein whois-name vorliegt.
92 
			echo "[ !! ] Not in pattern-file: $tld (see $iana_url )\n";
 92 
			echo "[ !! ] Not in pattern-file: $tld (see $iana_url )\n";