| 909 |
miho |
1 |
<?php |
|
|
2 |
echo "<tr>\n"; |
|
|
3 |
/*Naètení adresáøe*/ |
|
|
4 |
$adresar1 = opendir($path.$folder."/".$HTTP_GET_VARS["file"]); |
|
|
5 |
while ($soubor1 = readdir($adresar1)){ |
|
|
6 |
if ((Is_Dir($path.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1)) && (substr($soubor1,0,1) <> ".") && (substr($soubor1,0,1) <> "!")) { |
|
|
7 |
/*Nastavení suffixu u obrázkù*/ |
|
|
8 |
$img = $soubor1."_Small.jpg"; |
|
|
9 |
|
|
|
10 |
/*Pokud existuje náhled obrázku, zobraz ho*/ |
|
|
11 |
if (file_exists($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$img)) { echo "<td><A HREF=\"image.php?pth=".$HTTP_GET_VARS["file"]."/".$soubor1."&fname=".$soubor1."\" TARGET=\"_blank\"><img src=\"thumb.php?pth=".$HTTP_GET_VARS["file"]."/".$soubor1."&fname=".$soubor1."\" border=\"0\"></a></td>\n"; |
|
|
12 |
} else { echo "<td><img src=\"thumb.php?pth=".$HTTP_GET_VARS["file"]."/".$soubor1."&fname=".$soubor1."\"></td>\n"; } |
|
|
13 |
/*Pokud existuje HTML dokumentace k modulu vytvoø na ni odkaz*/ |
|
|
14 |
if (file_exists($path.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/HTML/".$soubor1.".".$lang.".html")) { |
|
|
15 |
echo "<td><a href=\"".$www.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/HTML/".$soubor1.".".$lang.".html\">".$soubor1."</a></td>\n"; |
|
|
16 |
} else { echo "<td>".$soubor."<b>".$soubor1."</b></td>\n"; } |
|
|
17 |
/*Pokud existuje PDF dokumentace k modulu zobraz odkaz*/ |
|
|
18 |
if (file_exists($path.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/".$soubor1.".".$lang.".pdf")) { |
|
|
19 |
echo "<td><a href=\"".$www.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/".$soubor1.".".$lang.".pdf\">PDF</a></td>\n"; |
|
|
20 |
} else { echo "\n<td>-</td>\n"; } |
|
|
21 |
/*WebSVN odkaz*/ |
|
|
22 |
echo "<td><a href=\"http://www.mlab.cz/WebSVN/listing.php?repname=MLAB&path=/Modules/".$HTTP_GET_VARS["file"]."/".$soubor1."/\">WebSVN</a></td>\n"; |
|
|
23 |
/*Pokud existuje struèné info, zobraz ho*/ |
|
|
24 |
if (file_exists($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$info1)) { |
|
|
25 |
$fp = FOpen ($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$info1, "r"); |
|
|
26 |
$data = FRead ($fp, FileSize ($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$info1)); |
|
|
27 |
FClose ($fp); |
|
|
28 |
echo "<td>".wordwrap($data, 50, "<br>")."</td>\n"; |
|
|
29 |
} else { echo "\n<td><i>No description available</i></td>\n"; } |
|
|
30 |
echo "</tr>\n\n"; |
|
|
31 |
} |
|
|
32 |
} |
|
|
33 |
|
|
|
34 |
?> |