View file wapp_antifront.com/forum/privat.php

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

//////////////////////////////////////////////////////////////////////////
$gl="$homepage";                                               /////////// ссылка на главную
$zag="&#x0424;&#x043E;&#x0440;&#x0443;&#x043C;";               /////////// Загаловок
//////////////////////////////////////////////////////////////////////////

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>";
                                                        ///////////// выводим вмл заголовок
$text = @file("profil/$log.prof");
if ($text!=""){
$udata = explode(":||:",$text[0]);
$provpar=trim($udata[1]);}
if ($par==$provpar) {

$text="0";
$fp=fopen("profil/$log.shp","w");                       ///////// обнуляем счетчик
fputs($fp,"$text \r\n");
fclose($fp);
chmod ("profil/$log.shp", 0777);


$mes = @implode("",@file("profil/$log.vps"));     ///// открываем счетчик с количеством сообщений
if ($nmes=="") {$nmes=$mes;}
if ($prs!="") {$nmes=$prs;}
$nf=1;  $st=$nmes;
while($nf <= 3)
   {

        $text = @file("privat/$log=$nmes.prmes");       /////////// выводим ссылки на деректории
        $test=$text;
        $udata = explode("::",$text[0]);
        $uz= $udata[0];
        $time= $udata[2];
        $tr= $udata[1];
        if ($test != "")  { print "<a href=\"prof.php?uz=$uz&amp;mest=privat&amp;nmes=$st&amp;log=$log&amp;par=$par\">$uz</a> <small>[$time]</small>:<br/> $tr<br/>=======<br/>";
        $nf=$nf+1;}
        $nmes=$nmes-1;
        if ($nmes<0) {$nf=4;}
};
$kon=$mes-2;
$nazad=$nmes+8;
if ($nmes>0) {print"<a href=\"privat.php?nmes=$nmes&amp;log=$log&amp;par=$par\">&#x0414;&#x0430;&#x043B;&#x0435;&#x0435;</a>";}
print"<br/>";
$prov=$nmes+3;
if ($prov<$mes) {print"<a href=\"privat.php?log=$log&amp;par=$par\">&#x0412; &#x043D;&#x0430;&#x0447;&#x0430;&#x043B;&#x043E;</a>";}



print "<br/>__________<br/>";
if($log!="") {print"<a href=\"profil.php?mest=privat&amp;razd=$razd&amp;prazd=$prazd&amp;tem=$tem&amp;nmes=$nmes&amp;log=$log&amp;par=$par\">[$log]</a>    ";} else {print"<a href=\"vxod.php?mest=mes&amp;razd=$razd&amp;prazd=$prazd&amp;tem=$tem&amp;nmes=$nmes\">[&#x0412;&#x043E;&#x0439;&#x0442;&#x0438;]</a>";}
print"<br/>__________<br/><a href=\"index.php?log=$log&amp;par=$par\">&#x041A; &#x0444;&#x043E;&#x0440;&#x0443;&#x043C;&#x0430;&#x043C;</a><br/><a href=\"$gl\">&#x041D;&#x0430; &#x0433;&#x043B;&#x0430;&#x0432;&#x043D;&#x0443;&#x044E;</a><br/>";
} else{ print"&#x041D;&#x0435;&#x0432;&#x0435;&#x0440;&#x043D;&#x044B;&#x0439; &#x043F;&#x0430;&#x0440;&#x043E;&#x043B;&#x044C;";}

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

?>