<?php
# Usage: cat eu.list | php -q eu.php > eu.log &
###########################################
# Do NOT edit below
###########################################
set_time_limit(0); # keep from timing out
function check_eu($domain) {
$fp = @fsockopen("das.eu", 4343, $errno, $errstr, 60);
if (!$fp) {
$result = "$errstr ($errno)<br />\n";
} else {
$out = "GET 1.0 $domain\n";
fwrite($fp, $out);
while (!feof($fp)) {
$buffer = fgets($fp, 128);
//if($buffer[0] != '%') $result .= $buffer;
switch( substr($buffer,0,6) ) {
case 'Domain':
$buffer = strtoupper(trim($buffer)).".EU\t";
print str_replace('DOMAIN: ','',$buffer);
break;
case 'Status':
print str_replace('Status: ','',$buffer);
break;
}
}
fclose($fp);
}
//return $result;
}
$fp = fopen("php://stdin", "r");
while( $s = fgets($fp,1024)) {
$d = explode('.',strtoupper($s));
$eu = $d[0];
check_eu($eu);
}
fclose($fp);
?>