\n"; include ("header"); pagetop(); print '

Domain :

N.B. The results generated by this tool will be recorded for research purposes - no other information will be saved.

'; } // If there's no domain name provided just print the blurb and start // over if ( empty($domain) && $return == 'html' ) { blurb(); include('DNS-qual-search'); include("footer"); exit; } elseif ( empty($domain) ) { $res['Error']="No domain given"; displayjson($res); exit; } // We have a domain name is it valid if ( !filter_var("user@$domain", FILTER_VALIDATE_EMAIL)) { if ( $return == 'json' ) { $res['Error']="Invalid domain"; displayjson($res); exit; } else { print '

The domain name ' . $domain . ' appears to be invalid

'; blurb(); include('DNS-qual-search'); include("footer"); exit; } } // We only do top lvel domain so make sure that's what we have $domain=Net_PublicSuffix::registered_domain($domain); // Set the first few variables for res $res['dt']=date('Y-m-d'); $res['ts']=date('G:i:s'); $res['domain']="$domain"; if ( $return == 'html' ) { print '

DNS Record Check for : ' . $domain; } // Check log files to see if we've looked it up today $logline=getlog($domain,''); if ( empty($logline) ) { // Check for NS records if it doesn't resolve then bail set_error_handler("warning_handler", E_WARNING); $myNS=dns_get_record($domain,DNS_NS); restore_error_handler(); if ( empty($myNS) ) { if ( $return == 'html' ) { print '

Unable to find NS records for ' . $domain . '

' ; history($domain); blurb(); include ('DNS-qual-search'); include("footer"); } else { print "Error: Unable to find NS records for $domain\n"; } exit; } } else { $res=parselog($logline); $res['Infrastructure']=explode(',',$res['Infrastructure']); $res['CAAissue']=explode(',',$res['CAAissue']); } if ( empty($logline) ) { $domrr=checks($domain); $res=array_merge($res,parsedom($domrr)); $res['Score']= score($res); // Check for domain dependcies $dependents=dependents($domrr); $res['Infrastructure']=$dependents; } if ( !empty($dependents) ) { $dscore=0; $lowest=''; foreach ( $dependents as $dom ) { unset($deprr); unset($deplog); unset($depdom); // check if the domain is already in the log $deplog=getlog($dom,1); if ( empty($deplog) ) { // Check if the domain has valid NS records set_error_handler("warning_handler",E_WARNING); $depNS=dns_get_record($dom,DNS_NS); restore_error_handler(); if ( empty($depNS) ) { continue; } $deprr=checks($dom); $depdom['dt']=$res['dt']; $depdom['ts']=$res['ts']; $depdom['domain']=$dom; $depdom=array_merge($depdom,parsedom($deprr)); $tscore=score($depdom); $depdom['Score']=$tscore; $depdom['Infrastructure']=''; $depdom['Infrastructuremin']=''; $depdom['Infrastructureavg']=''; writelog($depdom); } else { $depdom=parselog($deplog); $tscore=$depdom['Score']; } $dscore = $dscore + $tscore; // record the lowest score if ( empty($lowest) || $lowest > $tscore ) { $lowest = $tscore; } } $res['Infrastructuremin'] = $lowest; $res['Infrastructureavg'] = round($dscore / count($dependents),1); } if ( empty($logline) ) { writelog($res); } if ( $return == 'json' ) { displayjson($res); exit; } displayHTML($res); history($domain); blurb(); if ( !empty($debug) ) { print '

'; // displayjson($res); print '

'; print '

res

';
	print_r($res);
	print '

domrr

';
	print_r($domrr);
	print '
'; }