Просмотр архива GOWAP Каталог


<?

              

Error_Reporting(E_ALL & ~E_NOTICE);          /////////////// игнорируем ошибки

header("Content-type:text/vnd.wap.wml;charset=utf-8");      //////// тип и кодировка документа



//////////////////////////////////////////////////////////////////////////



$gl="http://gowap.org.ru";        /////////// ссылка на главную

$zag="GOWAP-SUPER";                                               /////////// Загаловок



//////////////////////////////////////////////////////////////////////////















print "<?xml version="1.0" encoding="utf-8"?>

    <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.2//EN" "http://www.wapforum.org/DTD/wml12.dtd">

    <wml><card id="mas" title="$zag">";

                        ///////////// выводим вмл заголовок











if ($kateg=="next"){

if($url=="") {$url="http://";}

print"<p>

&#x0410;&#x0434;&#x0440;&#x0435;&#x0441; URL <br/>

<input title="urls" name="url" value="$url"/><br/>

&#x041D;&#x0430;&#x0437;&#x0432;&#x0430;&#x043D;&#x0438;&#x0435;<br/>

<input title="nazv" name="naz"  value="$naz"  maxlength="20"/><br/>

&#x41E;&#x43F;&#x438;&#x441;&#x430;&#x43D;&#x438;&#x435; &#x441;&#x430;&#x439;&#x442;&#x430;(max 100)<br/>

<input title="opis" name="opis"  value="$opis" maxlength="100"/><br/>

&#x41A;&#x430;&#x442;&#x435;&#x433;&#x43E;&#x440;&#x438;&#x44F; &#x441;&#x430;&#x439;&#x442;&#x430;<br/>

<select name="kateg" title="kateg">";



if($kat=="") {$kat = @implode("",@file("rekord/kat.dat"));}      ////////// открываем счетчик количества дерикторий, и считываем из него их количества  (если номер деректории не передан)



$n=0; 

while($n <= 15)

   {

    $text = @implode("",@file("rekord/$kat.txt"));       /////////// выводим ссылки на деректории (15 ссылок на странице)

    $text=trim($text);

    if ($text != "")  { print "<option value="$kat">$text</option>"; $n=$n+1; };

    $kat=$kat-1;

    if ($kat<=0) {$n=16;};

};

if ($kat>0) {print"<option value="next">&#x0414;&#x0430;&#x043B;&#x0435;&#x0435;</option>";}

print"

</select>

<br/><br/>  

<anchor title="Ok">Ok

<go href="dob.php?dob=yes" method="post">

<postfield name="url" value="$(url)"/>

<postfield name="naz" value="$(naz)"/>

<postfield name="opis" value="$(opis)"/>

<postfield name="kateg" value="$(kateg)"/>

<postfield name="kat" value="$(kat)"/>

</go>

</anchor>";}



if($dob=="yes"){ if($kateg!="next"){                   //////////////////// добавляем сайт в список каталга

print"<p>";

if($url!="")  {            /////////////проверяем заполнены ли все поля

if($naz!=""){

if($opis!=""){

if($kateg!=""){



$url=trim($url);   //////////удаляем из адреса пробелы (откуда они там берутся!?)

$kateg=trim($kateg); 



$vsego = @implode("",@file("rekord/vsego.dat"));   ////////////// открываем и считываем значения общего счетчика

   $i = 0;

   while($i <= $vsego)

   {

$text = @implode("",@file("rekord/$i.af"));                                           

$text=trim($text);

if ($text==$url) {$url="reg";}

$i=$i+1;

};                             //////////////// проверяем отсутствие ригестрации сайта



if($url!="reg"){ 

////////////если заполнены все поля, и такой сайт еще не зарегестрирован, то начинаем регистрацию:





$reg="<a href="$url">$naz</a><br/><small>$opis</small><br/>========<br/>"; /////////формат записи



$counterarray = file("rekord/$kateg.dat");

$id = $counterarray[0]+1;

$fp = @fopen("rekord/$kateg.dat","wb");        /////////////увеличеваем на 1 счетчик регистараций в данной категории

@fputs($fp,$id);

@fclose($fp);



$fp=fopen("rekord/$id=$kateg.dion","w");          ///////////  создаем файл с информацией о сайте                                                       

fputs($fp,"$reg rn");

fclose($fp);  

chmod ("rekord/$id=$kateg.dion", 0777);           

$fl=$id;



$counterarray = file("rekord/vsego.dat");

$id = $counterarray[0]+1;

$fp = @fopen("rekord/vsego.dat","wb");        /////////////увеличеваем на 1 общий счетчик регистараций 

@fputs($fp,$id);

@fclose($fp);



$fp=fopen("rekord/$id.af","w");          /////////// заносим сайт в список зарегестрированных                                                       

fputs($fp,"$url rn");

fclose($fp);  

chmod ("rekord/$id.af", 0777);



$fp=fopen("rekord/$fl=$kateg.daf","w");          ///////////                                                       

fputs($fp,"$id rn");

fclose($fp);  

chmod ("rekord/$fl=$kateg.daf", 0777);



///////////////////////////Выводим сообщение об удачной регисрации (в случае таковой):

print"&#x0421;&#x0430;&#x0439;&#x0442; $url &#x0443;&#x0434;&#x0430;&#x0447;&#x043D;&#x043E; &#x0437;&#x0430;&#x0440;&#x0435;&#x0433;&#x0438;&#x0441;&#x0442;&#x0440;&#x0438;&#x0440;&#x043E;&#x0432;&#x0430;&#x043D;";





//////// выводим сообщение об ошибках:

}else {print"&#x0421;&#x0430;&#x0439;&#x0442; &#x0441; &#x0442;&#x0430;&#x043A;&#x0438;&#x043C; &#x0430;&#x0434;&#x0440;&#x0435;&#x0441;&#x043E;&#x043C; &#x0443;&#x0436;&#x0435; &#x0437;&#x0430;&#x0440;&#x0435;&#x0433;&#x0435;&#x0441;&#x0442;&#x0440;&#x0438;&#x0440;&#x043E;&#x0432;&#x0430;&#x043D;!";}

}else {print"&#x0412;&#x044B; &#x043D;&#x0435; &#x0432;&#x044B;&#x0431;&#x0440;&#x0430;&#x043B;&#x0438; &#x043A;&#x0430;&#x0442;&#x0435;&#x0433;&#x043E;&#x0440;&#x0438;&#x044E;!";}

}else {print"&#x0412;&#x044B; &#x043D;&#x0435; &#x0437;&#x0430;&#x043F;&#x043E;&#x043B;&#x043D;&#x0438;&#x043B;&#x0438; &#x043F;&#x043E;&#x043B;&#x0435; "&#x041E;&#x043F;&#x0438;&#x0441;&#x0430;&#x043D;&#x0438;&#x0435; &#x0441;&#x0430;&#x0439;&#x0442;&#x0430;"!";}

}else {print"&#x0412;&#x044B; &#x043D;&#x0435; &#x0437;&#x0430;&#x043F;&#x043E;&#x043B;&#x043D;&#x0438;&#x043B;&#x0438; &#x043F;&#x043E;&#x043B;&#x0435; "&#x041D;&#x0430;&#x0437;&#x0432;&#x0430;&#x043D;&#x0438;&#x0435; &#x0441;&#x0430;&#x0439;&#x0442;&#x0430;"!";}

}else {print"&#x0412;&#x044B; &#x043D;&#x0435; &#x0437;&#x0430;&#x043F;&#x043E;&#x043B;&#x043D;&#x0438;&#x043B;&#x0438; &#x043F;&#x043E;&#x043B;&#x0435; &#x0441; &#x0430;&#x0434;&#x0440;&#x0435;&#x0441;&#x043E;&#x043C;!";}

}}

print"<br/>

----------

<br/>

<a href="index.php">&#x041A;&#x0430;&#x0442;&#x0430;&#x043B;&#x043E;&#x0433;</a><br/>

<a href="$gl">&#x041D;&#x0430; &#x0433;&#x043B;&#x0430;&#x0432;&#x043D;&#x0443;&#x044E;</a><br/>

<br/>



<br/>



<br/>

</p>";























print "</card></wml>";



?>