updated@20:41msk 24apr2008
source:code.txt
<?php
/*
Регистратор whois n_f
R01-REG-RIPN whois.r01.ru [Reply from server WHOIS.RIPN.NET]
REGRU-REG-RIPN whois.reg.ru not found
REGISTRATOR-REG-RIPN whois.mastername.ru not found
REGTIME-REG-RIPN whois.regtime.net not found
RTCOMM-REG-RIPN whois.rtcomm.ru [Reply from server WHOIS.RIPN.NET
SOVINTEL-REG-RIPN whois.gldn.net [Reply from server WHOIS.RIPN.NET]
CENTROHOST-REG-RIPN whois.centrohost.ru [Reply from server WHOIS.RIPN.NET]
ELVIS-REG-RIPN whois.getname.ru found
CT-REG-RIPN whois.regplanet.ru No entries found for the selected source(
DEMOS-REG-RIPN whois.demos.ru No entries found in the selected source(s)
CARAVAN-REG-RIPN whois.caravan.ru No entries found for the selected source
NAUNET-REG-RIPN whois.naunet.ru was not found
ZASTOLBI-REG-RIPN whois.zastolbi.ru No entries found for the selected sourc
FREENET-REG-RIPN whois.free.net entries found for the selected source(s
RUCENTER-REG-RIPN whois.nic.ru entries found for the selected source(s
*/
/*Можно вообще через крон передавать параметры.
$url = trim($_REQUEST['q']);
$whois=trim($_REQUEST['w']);
$no_found = trim($_REQUEST['n']);*/
/*можно и вручную*/
$url='datacenter.su';
$whois='whois.nic.ru';
$no_found='No entries found for the selected sourc';
$nf=false;
$fp = fsockopen($whois, 43) or exit ("SRV_ERR");
fputs($fp, "$url\r\n");
$answer = "";
while(!feof($fp))
{
$answer .= "".fgets($fp,128)."<br>";
}
fclose($fp);
if (strstr($answer, $no_found)) {echo $url.' NOTFOUND in '.$whois; $nf=true;}
$message= '
Searched BY:<br>
domain:'.$url.'<br>
WhoisServer:'.$whois.'<br>
nofound:'.$no_found.'<br>
===ANSWER===<br>
'.$answer.'<br>
==REG==<br>
'.$o.'<br>
---end;';
$ok=false;
//$nf=true; - раскоментируйте эту строчку, если хотите не проверять домен по whois
if ($nf) {
$o=file_get_contents('http://ssbase.naunet.ru/c/registrar?mode=async&action=NEW&login=ЛОГИН&passwd=ПАСС&domain='.$url.'&state=NOT%20DELEGATED');
mail('ВАША@ПОЧТА','WHOIS '.$url.' FREE', $message, "From: ЕЩЕ ОДИН@ЯЩИК \r\n");
echo'<br>======ok=======<BR>';
}
echo $message;
?>
1