Просмотр файла whois/index.php

<?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(">>>", "&#8594;", $tmp_reply);
                $tmp_reply = str_replace("<<<<br/>", "&#8592;", $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&nbsp;&nbsp;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, "&nbsp;", 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>