Просмотр файла dportal_0.2/file/index.php

<?
include 'dan.php';

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

include 'ver.php';


$zag="Загрузки";
if($ver=="wml"){include 'wapzag.php';} else{include 'webzag.php';} //выводим заголовки


$dir = opendir ("."); //читаем корневую директорию и ищем каталоги
while ( $file = readdir ($dir)){
if ($file != "." & $file != ".." & filetype($file)=="dir"){

//считаем количество файлов в найденых каталогах:

$shet_file=0;
$shet_dir=opendir ($file);
while ( $file_s = readdir ($shet_dir)){
$p_tip=strrchr($file_s, ".");
if ($file_s != "." & $file_s != ".." & $p_tip!=".dat" & $p_tip!=".jad") {$shet_file++;}}

// закончили считать и выводим ссылку на обзор каталога:

$name_k=@file("$file/name_k.dat");
$name_k[0]=trim($name_k[0]);
if($name_k[0]=="") {$name_k[0]=$file;}

print"<img src=\"folder.png\" alt=\".\"/> <a href=\"obzor.php?ver=$ver&amp;login=$login&amp;pas=$pas&amp;katal=$file\">$name_k[0]</a> ($shet_file)<br/>";
}
}




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($ver=="wml"){print"<a href=\"index.php?ver=html\">wap 2.0</a><br/>";}
 else{print"<a href=\"index.php?ver=wml\">wap 1.2</a><br/>";}
 
 
 print"<a href=\"$gen_link\">На главную</a><br/>";
 print"(c)<a href=\"http://wdt.org.ru\">DPortal</a><br/>";
 if($ver=="html"){print"</td>
    </tr>
  </tbody>
</table>
</body>
</html>
";}
else{print"</p></card></wml>";}

?>