Subversion Repositories – MLAB

(root)/Server/GenIndexOld/modules.inc.php

Rev 909

<?php
      echo "<tr>\n";
/*Naètení adresáøe*/
      $adresar1 = opendir($path.$folder."/".$HTTP_GET_VARS["file"]);
      while ($soubor1 = readdir($adresar1)){
        if ((Is_Dir($path.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1)) && (substr($soubor1,0,1) <> ".") && (substr($soubor1,0,1) <> "!")) {
/*Nastavení suffixu u obrázkù*/
          $img = $soubor1."_Small.jpg";

/*Pokud existuje náhled obrázku, zobraz ho*/
          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";
          } else { echo "<td><img src=\"thumb.php?pth=".$HTTP_GET_VARS["file"]."/".$soubor1."&fname=".$soubor1."\"></td>\n"; }
/*Pokud existuje HTML dokumentace k modulu vytvoø na ni odkaz*/
          if (file_exists($path.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/HTML/".$soubor1.".".$lang.".html")) {
            echo "<td><a href=\"".$www.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/HTML/".$soubor1.".".$lang.".html\">".$soubor1."</a></td>\n";
          } else { echo "<td>".$soubor."<b>".$soubor1."</b></td>\n"; }
/*Pokud existuje PDF dokumentace k modulu zobraz odkaz*/
          if (file_exists($path.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/".$soubor1.".".$lang.".pdf")) {
            echo "<td><a href=\"".$www.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/".$soubor1.".".$lang.".pdf\">PDF</a></td>\n";
          } else { echo "\n<td>-</td>\n"; }
/*WebSVN odkaz*/
          echo "<td><a href=\"http://www.mlab.cz/WebSVN/listing.php?repname=MLAB&amp;path=/Modules/".$HTTP_GET_VARS["file"]."/".$soubor1."/\">WebSVN</a></td>\n";
/*Pokud existuje struèné info, zobraz ho*/
          if (file_exists($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$info1)) {
            $fp = FOpen ($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$info1, "r");
            $data = FRead ($fp, FileSize ($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$info1));
            FClose ($fp);
            echo "<td>".wordwrap($data, 50, "<br>")."</td>\n";
          } else { echo "\n<td><i>No description available</i></td>\n"; }
          echo "</tr>\n\n";
        }
      }

?>