View file dob.php

<?

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

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

$gl="http://AZWAP.BIZ";        /////////// ссылка на главную
$zag="AzWaP";                                               /////////// Загаловок

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







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>
Адрес URL <br/>
<input title=\"urls\" name=\"url\" value=\"$url\"/><br/>
Название<br/>
<input title=\"nazv\" name=\"naz\"  value=\"$naz\"  maxlength=\"20\"/><br/>
Описание сайта(max 100)<br/>
<input title=\"opis\" name=\"opis\"  value=\"$opis\" maxlength=\"100\"/><br/>
Категория сайта<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\">Далее</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 \r\n");
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 \r\n");
fclose($fp);
chmod ("rekord/$id.af", 0777);

$fp=fopen("rekord/$fl=$kateg.daf","w");          ///////////
fputs($fp,"$id \r\n");
fclose($fp);
chmod ("rekord/$fl=$kateg.daf", 0777);

///////////////////////////Выводим сообщение об удачной регисрации (в случае таковой):
print"Сайт $url удачно зарегистрирован";


//////// выводим сообщение об ошибках:
}else {print"Сайт с таким адресом уже зарегестрирован!";}
}else {print"Вы не выбрали категорию!";}
}else {print"Вы не заполнили поле \"Описание сайта\"!";}
}else {print"Вы не заполнили поле \"Название сайта\"!";}
}else {print"Вы не заполнили поле с адресом!";}
}}
print"<br/>
----------
<br/>
<a href=\"index.php\">Каталог</a><br/>
<a href=\"$gl\">На главную</a><br/>
<br/>

<br/>

<br/>
</p>";











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

?>