File size: 2.24Kb
<?
Error_Reporting(E_ALL & ~E_NOTICE);
header("Content-type:text/vnd.wap.wml;charset=utf-8");
include 'config.php';
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>";
$mes = @implode("",@file("rek/$razd=$prazd.tem")); ///// открываем счетчик с количеством тем
if ($ntem=="") {$ntem=$mes;}
$nf=1; $st=$ntem;
while($nf <= 7)
{
$sort = @implode("",@file("rek/$razd=$prazd=$ntem.sort"));
if($sort!=""){$sntem=trim($sort);
$text = @file("rek/$razd=$prazd=$sntem.kt"); /////////// выводим ссылки на деректории
$test=$text;
$udata = explode(":||:",$text[0]);
$tem= trim($udata[1]);
$naz= trim($udata[2]);
$time= trim($udata[3]);
$puz= trim($udata[4]);
if ($test != "") {
$nmes = @implode("",@file("rek/$razd=$prazd=$tem.mes"));
$nmes=trim($nmes);
print "
<img src=\"st/10.gif\" alt =\"+\"/>
<a href=\"mes.php?tem=$tem&log=$log&par=$par&razd=$razd&prazd=$prazd\"><font color=\"blue\">$naz</font></a> <small>[$time]</small><font color=\"995777\"> $puz</font> ($nmes)<br/>";
$nf=$nf+1;}}
$ntem=$ntem-1;
if ($ntem<0) {$nf=8;}
};
if($ntem>0) {print"
<a href=\"tem.php?razd=$razd&prazd=$prazd&ntem=$ntem&log=$log&par=$par\"><font color=\"blue\">[$sktext[13]]</font></a><br/>";}
$privat = @implode("",@file("profil/$log.shp"));
$privat=trim($privat);
print"<br/>
<img src=\"st/4.gif\" alt =\"+\"/>
<a href=\"ntem.php?razd=$razd&prazd=$prazd&log=$log&par=$par\"><font color=\"blue\">[$sktext[16]]</font></a>";
print "<br/>---<br/>";
if($log!="") {print"
<img src=\"st/67.gif\" alt =\"+\"/>
<a href=\"profil.php?mest=tem&razd=$razd&prazd=$prazd&log=$log&par=$par\"><font color=\"blue\">[$log]</font></a>";} else {print"
<img src=\"st/48.gif\" alt =\"+\"/>
<a href=\"vxod.php?mest=tem&razd=$razd&prazd=$prazd&tem=$tem\"><font color=\"blue\">[$sktext[1]]</font></a>";}
print"<br/>---<br/>
<img src=\"st/44.gif\" alt =\"+\"/>
<a href=\"prazd.php?log=$log&par=$par&razd=$razd\"><font color=\"blue\">[$sktext[15]]</font></a>";
print "</p></card></wml>";
?>