View file forum2/forum/mes.php

File size: 4.4Kb
<?

                    //                                      //////             //                                                //                        //           //
                    //                                      //       //                          //            /////                     /////                 
                    /////    \\        //          //        //         //       //    //        //     //      //     //               //           //
                    //   //     \\     //           //          //       //    //         //      //      //     //      //////     //           // 
                    //   //       \\ //             //        //         //      //    //         //      //     //               //     //           //
                    /////         \//               //////            //         //               //      //     //     /////        //           //  
                                         //                                                                                                                                    /////
                                        //

                  ///////////////////////////      [email protected]      ///////////////////////////////                         





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

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

$gl="http://da1.hoha.ru/index.wml";        /////////// ссылка на главную
$zag="Dionisij";                                               /////////// Загаловок

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




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.mes"));     ///// открываем счетчик с количеством сообщений
if ($nmes=="") {$nmes=1;}
$nf=1;  $st=$nmes;
while($nf <= 3)
   {

	$text = @file("rek/$razd=$prazd=$tem=$nmes.TEXT");       /////////// выводим ссылки на деректории 
	$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=mes&amp;razd=$razd&amp;prazd=$prazd&amp;tem=$tem&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>$mes) {$nf=4;}
};
$kon=$mes-2;
$nazad=$nmes-6;
if ($nmes<=$mes) {print"<a href=\"mes.php?razd=$razd&amp;prazd=$prazd&amp;tem=$tem&amp;nmes=$nmes&amp;log=$log&amp;par=$par\">&#x0414;&#x0430;&#x043B;&#x0435;&#x0435;</a>||<a href=\"mes.php?razd=$razd&amp;prazd=$prazd&amp;tem=$tem&amp;nmes=$kon&amp;log=$log&amp;par=$par\">&#x0412; &#x043A;&#x043E;&#x043D;&#x0435;&#x0446;</a>";}
print"<br/>";
if ($nmes>4) {print"<a href=\"mes.php?razd=$razd&amp;prazd=$prazd&amp;tem=$tem&amp;nmes=$nazad&amp;log=$log&amp;par=$par\">&#x041D;&#x0430;&#x0437;&#x0430;&#x0434;</a>||<a href=\"mes.php?razd=$razd&amp;prazd=$prazd&amp;tem=$tem&amp;nmes=1&amp;log=$log&amp;par=$par\">&#x0412; &#x043D;&#x0430;&#x0447;&#x0430;&#x043B;&#x043E;</a>";}

$privat = @implode("",@file("profil/$log.shp"));  
$privat=trim($privat);
print"<br/><a href=\"otvet.php?razd=$razd&amp;prazd=$prazd&amp;tem=$tem&amp;log=$log&amp;par=$par\">&#x041E;&#x0442;&#x0432;&#x0435;&#x0442;&#x0438;&#x0442;&#x044C; &#x043D;&#x0430; &#x0442;&#x0435;&#x043C;&#x0443;</a>";


print "<br/>__________<br/>";
if($log!="") {print"<a href=\"profil.php?mest=mes&amp;razd=$razd&amp;prazd=$prazd&amp;tem=$tem&amp;nmes=$nmes&amp;log=$log&amp;par=$par\">[$log]</a>    <a href=\"privat.php?mest=mes&amp;razd=$razd&amp;prazd=$prazd&amp;tem=$tem&amp;nmes=$nmes&amp;log=$log&amp;par=$par\">[$privat]</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=\"tem.php?log=$log&amp;par=$par&amp;razd=$razd&amp;prazd=$prazd\">&#x041A; &#x0442;&#x0435;&#x043C;&#x0430;&#x043C;</a><br/><a href=\"$gl\">&#x041D;&#x0430; &#x0433;&#x043B;&#x0430;&#x0432;&#x043D;&#x0443;&#x044E;</a><br/>";


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

?>