WebSVN – vgwhois – Diff – /trunk/maintenance/qa-monitor/run



#
 
# TODO: strikte trennung zwischen pattern entwicklung ( = im sdk enthalten ) und lokaler gwi entwicklung ( = packages, eigene vwi services )
# TODO: alles modular machen, vieles cachen
 
# TODO: was wenn ein rwi entfernt wird? prüfung notwendig dann!
#       --> das wird im whois-ping test geprueft
# TODO: auch unnoetige excludes (anormalities) in config.inc.php melden
 
# TODO pattern.d/tld --> check if all existing and disallocated TLDs are inside
 
# TODO: konsolenfarben z.b. grün für qa-audit
 
error_reporting(E_ALL | E_NOTICE | E_STRICT | E_DEPRECATED);
 
# ---
 

echo "* Check if TLDs have the latest Root-Whois-Server URLs ( ".ROOT_WHOIS_SERVER_LIST." )\n";
 
# TODO: geht nicht wenn 2 TLDs sich einen :whois teilen
# geht auch nicht mit domains mit third level tlds oder regexes usw
 
# TODO: allerdings wird keine kontrolle gemacht ob die auskommentierte Zeile wirklich zu $tld gehört!
echo "Note: For following TLDs, the root whois server may be commented out: ".implode(', ', $anormale_whois)."\n";
 
$loc_good = true;
$rws_cont = rws_get_list();
foreach ($rws_cont as $tld => $whois) {
	$c = "$tld => $whois";
 
	$g = false;
	if (in_arrayi($tld, $anormale_whois)) {
		# Sonderfälle... whois server die nicht gehen...
		# Der Server muss dann nur irgendwo vorkommen, in Form einer auskommentierten Zeile
		$g = (
			(stripos($pattern_cont, ':whois|'.$whois."\n") !== false) ||
			(stripos($pattern_cont, 'whois::'.$whois.":::") !== false) || // multiple
			(stripos($pattern_cont, 'whois::'.$whois."\n") !== false) || // multiple
			(stripos($pattern_cont, ':inicwhois|'.$whois."\n") !== false) ||
			(stripos($pattern_cont, 'inicwhois::'.$whois.":::") !== false) || // multiple
			(stripos($pattern_cont, 'inicwhois::'.$whois."\n") !== false) // multiple
		);
	} else {
		# TODO: auch auskommentierte einträge erlauben, falls die RWI outdated ist
		$regex = "@\\n:(inic){0,1}whois\\|".preg_quote($whois, '@')."(\\|.*)*\\n(#.*\n)*\\\\.".preg_quote($tld, '@')."\\$@ismU";
		$g = preg_match($regex, $pattern_cont);
 
		if (!$g) {
			# Multiple?

Subversion Repositories vgwhois

vgwhois/trunk/maintenance/qa-monitor/run @ 11 – Rev 146 → 149

Rev 146		Rev 149
Line 11...		Line 11...
11	#	11	#
12		12
13	# TODO: strikte trennung zwischen pattern entwicklung ( = im sdk enthalten ) und lokaler gwi entwicklung ( = packages, eigene vwi services )	13	# TODO: strikte trennung zwischen pattern entwicklung ( = im sdk enthalten ) und lokaler gwi entwicklung ( = packages, eigene vwi services )
14	# TODO: alles modular machen, vieles cachen	14	# TODO: alles modular machen, vieles cachen
15		15
16	# TODO: was wenn ein rwi entfernt wird? prüfung notwendig dann!	16	# TODO: was wenn ein rwi entfernt wird? prüfung notwendig dann!
17	# --> das wird im whois-ping test geprueft	17	# --> das wird im whois-ping test geprueft
18	# TODO: auch unnoetige excludes (anormalities) in config.inc.php melden	18	# TODO: auch unnoetige excludes (anormalities) in config.inc.php melden
19		19
20	# TODO pattern.d/tld --> check if all existing and disallocated TLDs are inside	20	# TODO pattern.d/tld --> check if all existing and disallocated TLDs are inside
21		21
22	# TODO: konsolenfarben z.b. grün für qa-audit	22	# TODO: konsolenfarben z.b. grün für qa-audit
23		23
24	error_reporting(E_ALL \| E_NOTICE \| E_STRICT \| E_DEPRECATED);	24	error_reporting(E_ALL \| E_NOTICE \| E_STRICT \| E_DEPRECATED);
25		25
26	# ---	26	# ---
27		27
Line 105...		Line 105...
105	echo "* Check if TLDs have the latest Root-Whois-Server URLs ( ".ROOT_WHOIS_SERVER_LIST." )\n";	105	echo "* Check if TLDs have the latest Root-Whois-Server URLs ( ".ROOT_WHOIS_SERVER_LIST." )\n";
106		106
107	# TODO: geht nicht wenn 2 TLDs sich einen :whois teilen	107	# TODO: geht nicht wenn 2 TLDs sich einen :whois teilen
108	# geht auch nicht mit domains mit third level tlds oder regexes usw	108	# geht auch nicht mit domains mit third level tlds oder regexes usw
109		109
110	# TODO: allerdings wird keine kontrolle gemacht ob die auskommentierte Zeile wirklich zu $tld gehört!	110	# TODO: allerdings wird keine kontrolle gemacht ob die auskommentierte Zeile wirklich zu $tld gehört!
111	echo "Note: For following TLDs, the root whois server may be commented out: ".implode(', ', $anormale_whois)."\n";	111	echo "Note: For following TLDs, the root whois server may be commented out: ".implode(', ', $anormale_whois)."\n";
112		112
113	$loc_good = true;	113	$loc_good = true;
114	$rws_cont = rws_get_list();	114	$rws_cont = rws_get_list();
115	foreach ($rws_cont as $tld => $whois) {	115	foreach ($rws_cont as $tld => $whois) {
116	$c = "$tld => $whois";	116	$c = "$tld => $whois";
117		117
118	$g = false;	118	$g = false;
119	if (in_arrayi($tld, $anormale_whois)) {	119	if (in_arrayi($tld, $anormale_whois)) {
120	# Sonderfälle... whois server die nicht gehen...	120	# Sonderfälle... whois server die nicht gehen...
121	# Der Server muss dann nur irgendwo vorkommen, in Form einer auskommentierten Zeile	121	# Der Server muss dann nur irgendwo vorkommen, in Form einer auskommentierten Zeile
122	$g = (	122	$g = (
123	(stripos($pattern_cont, ':whois\|'.$whois."\n") !== false) \|\|	123	(stripos($pattern_cont, ':whois\|'.$whois."\n") !== false) \|\|
124	(stripos($pattern_cont, 'whois::'.$whois.":::") !== false) \|\| // multiple	124	(stripos($pattern_cont, 'whois::'.$whois.":::") !== false) \|\| // multiple
125	(stripos($pattern_cont, 'whois::'.$whois."\n") !== false) \|\| // multiple	125	(stripos($pattern_cont, 'whois::'.$whois."\n") !== false) \|\| // multiple
126	(stripos($pattern_cont, ':inicwhois\|'.$whois."\n") !== false) \|\|	126	(stripos($pattern_cont, ':inicwhois\|'.$whois."\n") !== false) \|\|
127	(stripos($pattern_cont, 'inicwhois::'.$whois.":::") !== false) \|\| // multiple	127	(stripos($pattern_cont, 'inicwhois::'.$whois.":::") !== false) \|\| // multiple
128	(stripos($pattern_cont, 'inicwhois::'.$whois."\n") !== false) // multiple	128	(stripos($pattern_cont, 'inicwhois::'.$whois."\n") !== false) // multiple
129	);	129	);
130	} else {	130	} else {
131	# TODO: auch auskommentierte einträge erlauben, falls die RWI outdated ist	131	# TODO: auch auskommentierte einträge erlauben, falls die RWI outdated ist
132	$regex = "@\\n:(inic){0,1}whois\\\|".preg_quote($whois, '@')."(\\\|.)\\n(#.\n)\\\\.".preg_quote($tld, '@')."\\$@ismU";	132	$regex = "@\\n:(inic){0,1}whois\\\|".preg_quote($whois, '@')."(\\\|.)\\n(#.\n)\\\\.".preg_quote($tld, '@')."\\$@ismU";
133	$g = preg_match($regex, $pattern_cont);	133	$g = preg_match($regex, $pattern_cont);
134		134
135	if (!$g) {	135	if (!$g) {
136	# Multiple?	136	# Multiple?