File size: 1.94Kb
<?
include '../config.php';
Error_Reporting(E_ALL & ~E_NOTICE); //////// игнорируем ошибки
header("Content-type:text/vnd.wap.wml;charset=utf-8"); //////// тип и кодировка документа
//////////////////////////////////////////////////////////////////////////
$gl="$homepage"; /////////// ссылка на главную
$zag="Форум"; /////////// Загаловок
//////////////////////////////////////////////////////////////////////////
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\"><p>Разделы:<br/>";
///////////// выводим вмл заголовок
$mes = @implode("",@file("rek/razd.razd")); ///// открываем счетчик с количеством тем
if ($nrazd=="") {$nrazd=1;}
$nf=1;
while($nf <= 15)
{ $naz = @implode("",@file("rek/$nrazd.tp"));
$naz=trim($naz);
if($naz!=""){print"<a href=\"prazd.php?log=$log&par=$par&razd=$nrazd\">$naz</a><br/>"; $nf=$nf+1;}
$nrazd=$nrazd+1;
if($nrazd>$mes) {$nf=20;}
};
if($nrazd<$mess) {print"<a href=\"index.php?log=$log&par=$par\">Далее</a><br/>";}
$privat = @implode("",@file("profil/$log.shp"));
$privat=trim($privat);
print "<br/>__________<br/>";
if($log!="") {print"<a href=\"profil.php?mest=index&log=$log&par=$par\">[$log]</a> <a href=\"privat.php?mest=index&log=$log&par=$par\">[$privat]</a>";} else {print"<a href=\"vxod.php?mest=index\">Войти</a>";}
print"<br/>__________<br/><a href=\"$gl\">На главную</a><br/>";
print "</p></card></wml>";
?>