View file dpforum/forum.php

<?
include 'dan.php';

/*
		by Dionisij (c) 2006
		[email protected]
		Скрипт не предназначен для продажи!
		При распространении необходимо обговорить условия распространения с автором скрипта.
		Нарушение авторских прав преследуется по закону и по понятиям!
*/

include 'ver.php';

$rname=@file("$perfix$r/name");
$rname=trim($rname[0]);
$rnamet="$rname ";
if($rname!=""){$zag= substr($rnamet, 0, 25);
$strrpos=strrpos($zag, " ");
$zag=substr($rnamet, 0, $strrpos);
if($zag==""){$zag=$rnamet;} else {$zag="$zag...";}}
else{$zag="Ошибка!";}
if($ver!="html"){ $zag= str_replace("$", "$$", $zag);}
if($ver=="wml"){include 'wapzag.php';} else{include 'webzag.php';}

include'avt.php';

if($rname==""){print"Выбранного вами раздела не существует!";}
else{

if($mntem=="vsem" || ($login!="" & $mntem=="registr") || ($mntem=="moder" & $status=="moder")){print"<a href=\"ntem.php?ver=$ver&amp;pas=$pas&amp;login=$login&amp;r=$r\">[новая тема]</a><br/><br/>";}


$dir = @opendir ("$perfix$r");
  while ( $file = @readdir ($dir)){
if ( $file != "."& $file != ".."){
$prov=explode(".", $file);
if($prov[1]=="p"){
$arrtem[]=$file;
 }
  }
  }

$dir = @opendir ("$perfix$r");
  while ( $file = @readdir ($dir)){
if ( $file != "."& $file != ".." & $file>0){
$prov=explode(".", $file);
if($prov[1]!="p"){

$arizm[$file]=filemtime("$perfix$r/$file");
  }}
  }

if($arizm){arsort($arizm);
foreach( $arizm as $key => $value){
$arrtem[]=$key;
}}

$tp=1;
$nr=0;
if($pr=="" || $pr<=0){$pr=1;}

if($arrtem){foreach( $arrtem as $nomer => $val){
$nr++;
if($nr>$knme){$tp++; $nr=1;}
if($tp==$pr){

$artdan=@file("$perfix$r/$val");
if($ver!="html"){ $artdan= str_replace("$", "$$", $artdan);}

$namear=explode("<br/>", $artdan[0]);

$ss = @file("$perfix$r/$val");
$strok = sizeof($ss);
$strok=$strok-1;

$temdp=explode("<br/>", $artdan[1]);
$temdk=explode("<br/>", $artdan[$strok]);
$kotv=$strok-1;

if($temdp[0]==""){$temdp[0]="-$temdp[1]-";}
if($temdk[0]==""){$temdk[0]="-$temdk[1]-";}

$temdp[2]=date("d/m, H:i", $temdp[2]);
$temdk[2]=date("d/m, H:i", $temdk[2]);

if($namear[0]!=""){
if($status=="moder"){print"<small><a href=\"modtem.php?ver=$ver&amp;pas=$pas&amp;login=$login&amp;r=$r&amp;t=$val\">(mod)</a> </small>";}
$prnpo=explode(".", $val);
if($prnpo[1]=="p"){{print" <img src=\"pik/alert.gif\" alt=\"!\"/> ";}}

if($namear[1]!="vs"){print" <img src=\"pik/bez.GIF\" alt=\"8)\"/> ";}
print"<a href=\"topic.php?ver=$ver&amp;pas=$pas&amp;login=$login&amp;r=$r&amp;t=$val\">$namear[0]</a>
 [$kotv] <small>[$temdp[0] ($temdp[2]) | $temdk[0] ($temdk[2])]</small><br/>";}
}
}
}
print"<br/>Страница $pr из $tp<br/>";

$prev=$pr-1;
$pprev=$pr-2;
$next=$pr+1;
$nnext=$pr+2;


if($pr>1){print"<a href=\"forum.php?ver=$ver&amp;pr=1&amp;pas=$pas&amp;login=$login&amp;r=$r\">1</a>|";}
if($pprev>1){print"<a href=\"forum.php?ver=$ver&amp;pr=$pprev&amp;pas=$pas&amp;login=$login&amp;r=$r\">$pprev</a>|";}
if($prev>1){print"<a href=\"forum.php?ver=$ver&amp;pr=$prev&amp;pas=$pas&amp;login=$login&amp;r=$r\">$prev</a>|";}
print"$pr|";

if($next<=($tp-1)){print"<a href=\"forum.php?ver=$ver&amp;pr=$next&amp;pas=$pas&amp;login=$login&amp;r=$r\">$next</a>|";}
if($next<=($tp-2)){print"<a href=\"forum.php?ver=$ver&amp;pr=$nnext&amp;pas=$pas&amp;login=$login&amp;r=$r\">$nnext</a>|";}
if($pr<$tp){print"<a href=\"forum.php?ver=$ver&amp;pr=$tp&amp;pas=$pas&amp;login=$login&amp;r=$r\">$tp</a>|";}



}



print"</p><p align=\"center\">";
if($ver=="html"){print"<table style=\"text-align: center; width: 98%;\"
 border=\"1\" cellpadding=\"2\" cellspacing=\"2\">
  <tbody>
    <tr>
      <td
 style=\"background-color: rgb($color2);\" align=\"center\"
 valign=\"top\">";}
 
 
if($login=="") { print"<a href=\"vxod.php?ver=$ver\">Вход</a><br/>";}
else {print"<a href=\"opc.php?ver=$ver&amp;pas=$pas&amp;login=$login\">[$login]</a><br/>";}
 
 print"<a href=\"razdely.php?ver=$ver&amp;pas=$pas&amp;login=$login\">К разделам</a><br/>";
 if($ver=="wml"){print"<a href=\"forum.php?ver=html&amp;pas=$pas&amp;login=$login&amp;r=$r&amp;pr=$pr\">wap 2.0</a><br/>";}
 else{print"<a href=\"forum.php?ver=wml&amp;pas=$pas&amp;login=$login&amp;r=$r&amp;pr=$pr\">wap 1.2</a><br/>";}
 
 print"<a href=\"$gen_link\">На главную</a>";
 if($ver=="html"){print"</td>
    </tr>
  </tbody>
</table>
</body>
</html>
";}
else{print"</p></card></wml>";}



?>