Rev Author Line No. Line
663 Dawon 1 <html>
2 <head>
3  
4 <title></title>
5 </head>
6 <body>
7  
8 <?php
9 /* KONFIGURACE */
665 Dawon 10 $path = '/var/www/Web';
664 Dawon 11 $www = 'http://www.mlab.cz';
666 Dawon 12 $folder = '/../Modules';
667 Dawon 13 /*$img = 'preview.jpg';*/
670 Dawon 14 $info = 'ProjectInfo.xml1';
663 Dawon 15  
16 /* KONEC KONFIGURACE */
17  
18  
19  
20  
21  
22  
23 $adresar = opendir($path.$folder);
24 while ($soubor = readdir($adresar)){
671 Dawon 25 if ((Is_Dir($path.$folder."/".$soubor)) && (substr($soubor,0,1) <> ".") && (substr($soubor,0,1) <> "!")) {
663 Dawon 26  
27 $img = $soubor."_Small.jpg";
28  
668 Dawon 29  
663 Dawon 30 ?>
31 <table border=0>
32 <tr><td><?php echo $soubor; ?></td></tr>
668 Dawon 33 <?php
34  
35 if (file_exists($path.$folder."/".$soubor."/CAM_AMA")) {
36 ?>
37  
671 Dawon 38 <tr><td><img src="<?php echo $www.$folder.'/'.$soubor."/".$img; ?>" width="50"></td></tr>
663 Dawon 39 <tr><td><?php include $path.$folder.'/'.$soubor."/".$info; ?></td></tr>
40  
668 Dawon 41  
663 Dawon 42 <?php
668 Dawon 43 } else {
44 ?>
45 <tr><td>
46 <?php
663 Dawon 47  
48  
668 Dawon 49 $adresar1 = opendir($path.$folder."/".$soubor);
50 while ($soubor1 = readdir($adresar1)){
671 Dawon 51 if ((Is_Dir($path.$folder."/".$soubor."/".$soubor1)) && (substr($soubor1,0,1) <> ".") && (substr($soubor1,0,1) <> "!")) {
668 Dawon 52  
53 $img = $soubor1."_Small.jpg";
54 ?>
55 <table border=0>
56 <tr><td><?php echo $soubor1; ?></td></tr>
671 Dawon 57 <tr><td><img src="<?php echo $www.$folder.'/'.$soubor."/".$soubor1."/".$img; ?>" width="50"></td></tr>
668 Dawon 58 <tr><td><?php include $path.$folder.'/'.$soubor."/".$soubor1."/".$info; ?></td></tr>
59 </table>
60 </td></tr>
61 <?php
669 Dawon 62 }}
668 Dawon 63 }
64  
65 ?>
66 </table>
67  
68 <?php
69  
70  
663 Dawon 71 }
72 }
73  
74  
75  
76 ?>
77  
78 </body>
79 </html>