View file index.php

<?




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



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


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\">";



print "<p align=\"center\"><b>Категории:</b></p>";       /////////////////        выводим жирным шрифтом "Категории"

if($kat=="") {$kat = @implode("",@file("rekord/kat.dat"));}      ////////// открываем счетчик количества дерикторий, и считываем из него их количества  (если номер деректории не передан)
print"<p>";
$n=0;
while($n <= 15)
{
$text = @implode("",@file("rekord/$kat.txt"));       /////////// выводим ссылки на деректории (15 ссылок на странице)
$text=trim($text);
if ($text != "")  { print "<a href=\"katalog.php?op=$kat\">$text</a><br/>"; $n=$n+1; };
$kat=$kat-1;
if ($kat<=0) {$n=16;};
};
print"</p>";

if ($kat>0) {print"<p align=\"center\"><a href=\"index.php?kat=$kat\">more</a><br/></p>";}        /////////// выводим ссылку на следующию страницу, если на этой поместились не все дериктории


print"<p align=\"center\"><a href=\"dob.php?kateg=next\">Добавить сайт</a><br/>
<a href=\"$gl\">На главную</a><br/></p>";
//// выводим ссылку на добавить и на главную.


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

?>