<?php
include "lib.php";
header("Content-type:text/vnd.wap.wml");
/***********************************************************
Первая страница
***********************************************************/
if($_REQUEST['a']=="" || !isset($_REQUEST['a'])){
print '
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml><card title="Whois">';
print "<p>".u("Введите домен").":<br/>";
print '<input name="T1" maxlength="22" emptyok="true" title="'.u("Домен").'" type="text"/><br/>';
print u("Введите зону").":<br/>";
// зона может быть как input
// и как селест. В данном случае селест
print '<select name="D1">
<option value=".ru">.ru</option><option value=".com.ru">.com.ru</option><option value=".net.ru">.net.ru</option><option value=".org.ru">.org.ru</option><option value=".pp.ru">.pp.ru</option><option value=".spb.ru">.spb.ru</option><option value=".com">.com</option><option value=".net">.net</option><option value=".org">.org</option><option value=".info">.info</option></select><br/>
';
print '<anchor>';
print u("Узнать!");
print '<go method="post" href="?a=$T1$D1">
<postfield name="T1" value="$(T1)"/>
<postfield name="D1" value="$(D1)"/>
<postfield name="B1" value="Whois"/>
</go></anchor><br/><br/>-----<br/><small><anchor>'; print u("Назад").'<prev/></anchor><br/>';
// нельзя зыбывать именно эту строку: <postfield name="B1" value="Whois"/>
// она сообщает скрипту, какая часть должна быть запущена
print '<a href="http://wap.xoct.info/">';
print u('На главную').'</a></small></p>';
/**************************************************************
Далее идут страницы с выведением данных
**************************************************************/
} elseif($_REQUEST['a']=="$T1$D1") {
print '
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml><card>';
$error = True;
/******************************************************************
Модуль определения занятости домена и вывода
информациии о владельце...
******************************************************************/
if ($HTTP_POST_VARS['B1'] == "Whois") {
if ($HTTP_POST_VARS['T1'] == "") {
$msg = "".u("Вы не указали домен на предыдущей странице.")."";
} else {
// добавляем окончание к имени домена
$adr = $HTTP_POST_VARS['T1'];
$adr .= $HTTP_POST_VARS['D1'];
// формируем имя WHOIS сервера по окончанию домена
if ($HTTP_POST_VARS['D1'] == ".ru") {
$domain = "whois.ripn.net";
}
if ($HTTP_POST_VARS['D1'] == ".com.ru") {
$domain = "whois.ripn.net";
}
if ($HTTP_POST_VARS['D1'] == ".net.ru") {
$domain = "whois.ripn.net";
}
if ($HTTP_POST_VARS['D1'] == ".org.ru") {
$domain = "whois.ripn.net";
}
if ($HTTP_POST_VARS['D1'] == ".pp.ru") {
$domain = "whois.ripn.net";
}
if ($HTTP_POST_VARS['D1'] == ".spb.ru") {
$domain = "whois.ripn.net";
}
if ($HTTP_POST_VARS['D1'] == ".com") {
$domain = "whois.melbourneit.com";
}
if ($HTTP_POST_VARS['D1'] == ".net") {
$domain = "whois.melbourneit.com";
}
if ($HTTP_POST_VARS['D1'] == ".org") {
$domain = "whois.melbourneit.com";
}
if ($HTTP_POST_VARS['D1'] == ".edu") {
$domain = "whois.melbourneit.com";
}
if ($HTTP_POST_VARS['D1'] == ".info") {
$domain = "whois.melbourneit.com";
}
// присваиваем ответу и ошибкам нулевое значение
$error = False;
$reply = "";
// подключаемя к серверу
$fp = fsockopen ($domain, "43", $errno, $errstr, 60);
if (!$fp) {
// если ошибка
$reply = "$errstr ($errno)<br/>\n";
} else {
// если нет ошибки
fputs ($fp, $adr."\r\n");
while (!feof($fp)) {
// обрабатываем запрос для вывода на экран
$tmp_reply = fgets ($fp,128);
$tmp_reply = str_replace("\r", "", $tmp_reply);
$tmp_reply = str_replace("\n", "<br/>\n", $tmp_reply);
$tmp_reply = str_replace(" ", "", $tmp_reply);
$tmp_reply = str_replace(">>>", "→", $tmp_reply);
$tmp_reply = str_replace("<<<<br/>", "←", $tmp_reply);
$tmp_reply = str_replace("% By submitting a query to RIPN's Whois Service", "", $tmp_reply);
$tmp_reply = str_replace("% you agree to abide by the following terms of use:<br/>
", "", $tmp_reply);
$tmp_reply = str_replace("% apply to the RIPN Whois Service is prohibited.", "чащих законодательству РФ - преследуются по закону!!!</i>", $tmp_reply);
$tmp_reply = str_replace("% http://www.ripn.net/about/servpol.html#3.2 (in Russian) <br/>", "", $tmp_reply);
$tmp_reply = str_replace("% http://www.ripn.net/about/en/servpol.html#3.2 (in English).<br/>", "", $tmp_reply);
$tmp_reply = str_replace("for detailed information.<br/>", "", $tmp_reply);
$tmp_reply = str_replace("with many different competing registrars. Go to http://www.internic.net<br/>", "", $tmp_reply);
$tmp_reply = str_replace("Domain names in the .com and .net domains can now be registered<br/>", "", $tmp_reply);
$tmp_reply = str_replace("Whois Server Version 1.3<br/>", "", $tmp_reply);
$tmp_reply = str_replace("------", "", $tmp_reply);
$tmp_reply = str_replace("
<br/><br/>
", "<br/>", $tmp_reply);
if (substr($reply, 0, 1) == " ") {
$tmp_reply = substr_replace($tmp_reply, " ", 0, 1);
}
// присваиваим ответу промежуточное значение
$reply .= $tmp_reply;
}
// отключаемся от сервера
fclose ($fp);
// присваиваим ответу окончательное значение
$reply = "".u("Информация по домену:")." <b>".strtoupper($adr)."</b><br/><br/>IP: " .gethostbyname($HTTP_POST_VARS['$T1$D1']). "\n".$reply."<anchor>".u("Назад")."<prev/></anchor>";
}
}
}
// если ошибка
if ($error) {
echo "<p>".$msg."</p>\n";
echo "<p>".u("Нажмите")." <anchor>".u("сюда")."<prev/></anchor> ".u("чтобы вернутьcя на предыдущею страницу").".</p>\n";
} else {
echo "<p>".$reply."</p>\n";
}
}
// формируем низ
?>
</card>
</wml>