Rev 1866 Rev 1868
1 <?php 1 <?php
2   2  
3 error_reporting(E_ALL); // nastavení varování při ladění 3 error_reporting(E_ALL); // nastavení varování při ladění
4   4  
5 require_once('Common.php'); // Společné funkce 5 require_once('Common.php'); // Společné funkce
6 require_once('TemplateEngine.php'); // Stroj pro práci s templejty 6 require_once('TemplateEngine.php'); // Stroj pro práci s templejty
7 require_once('DirMetadata.php'); // Modul pro načítání informace o adresářích 7 require_once('DirMetadata.php'); // Modul pro načítání informace o adresářích
8   8  
9 define('DIRINFO', 'DirInfo.txt', true); // Jméno souboru s informacemi o adresáři 9 define('DIRINFO', 'DirInfo.txt', true); // Jméno souboru s informacemi o adresáři
10 define('PRJINFO', 'PrjInfo.txt', true); // Jméno souboru s informacemi o projektu 10 define('PRJINFO', 'PrjInfo.txt', true); // Jméno souboru s informacemi o projektu
11 define('WRAP', 70, true); // Lámání řetězcových hodnot 11 define('WRAP', 70, true); // Lámání řetězcových hodnot
12   12  
13 define('TEMPLATEPATH', 'Templates', true); // relativní cesta k templejtům 13 define('TEMPLATEPATH', 'Templates', true); // relativní cesta k templejtům
14 $TemplateFile = 'Modules.ihtml'; // přípona jazyka se doplní sama 14 $TemplateFile = 'Modules.ihtml'; // přípona jazyka se doplní sama
15   15  
16   16  
17 // Stavová informace 17 // Stavová informace
18 // ----------------- 18 // -----------------
19 // 19 //
20 // Tento skript používá pro přenesení stavu ke kliemtovi a zpět dvě stavové 20 // Tento skript používá pro přenesení stavu ke kliemtovi a zpět dvě stavové
21 // proměnné prostřednictvím odkazu. Jsou to: 21 // proměnné prostřednictvím odkazu. Jsou to:
22 // 22 //
23 // lang - zde je kód jazyka, neplatný či chybějící kód se mapuje na angličtinu 23 // lang - zde je kód jazyka, neplatný či chybějící kód se mapuje na angličtinu
24 // 24 //
25 // path - zde se uvádí cesta vůči DOCUMENT_ROOT webu, neplatná cesta se mapuje 25 // path - zde se uvádí cesta vůči DOCUMENT_ROOT webu, neplatná cesta se mapuje
26 // na cestu k root adresáři webu 26 // na cestu k root adresáři webu
27 // 27 //
28   28  
29 // Vyzvedni si parametry z URL 29 // Vyzvedni si parametry z URL
30 // --------------------------- 30 // ---------------------------
31   31  
32 // Parametr cesty z položky path 32 // Parametr cesty z položky path
33 // Načteme, ověříme a pokud je něco špatně vracíme root 33 // Načteme, ověříme a pokud je něco špatně vracíme root
34 $Path = ''; 34 $Path = '';
35 if (isset($_GET['path'])) 35 if (isset($_GET['path']))
36 $Path = CheckWebPath($_GET['path']); 36 $Path = CheckWebPath($_GET['path']);
37 if ($Path == '') 37 if ($Path == '')
38 $Path = '/'; 38 $Path = '/';
39 $Params['path'] = $Path; 39 $Params['path'] = $Path;
40   40  
41 // Parametr jazyka z položky lang 41 // Parametr jazyka z položky lang
42 // Pozor, tento parametr se nekontroluje a musí se ošetřit až při použití 42 // Pozor, tento parametr se nekontroluje a musí se ošetřit až při použití
43 // Předpokládá se, že neplatný jazyk se bude chovat jako angličtina 43 // Předpokládá se, že neplatný jazyk se bude chovat jako angličtina
44 $Lang = 'en'; 44 $Lang = 'en';
45 if (isset($_GET['lang'])) 45 if (isset($_GET['lang']))
46 $Lang = substr($_GET['lang'], 0, 2); 46 $Lang = substr($_GET['lang'], 0, 2);
47 $Params['lang'] = $Lang; 47 $Params['lang'] = $Lang;
48   48  
49   49  
50 // Proveď zpracování templejtu nahrazovacím strojem 50 // Proveď zpracování templejtu nahrazovacím strojem
51 // ------------------------------------------------ 51 // ------------------------------------------------
52   52  
53 // Založ objekt templejtu 53 // Založ objekt templejtu
54 $Template = new TemplateEngine(); 54 $Template = new TemplateEngine();
55   55  
56 // Načti templejt do objektu 56 // Načti templejt do objektu
57 $error = $Template->LoadTemplate(TEMPLATEPATH.'/'.$TemplateFile, $Params['lang']); 57 $error = $Template->LoadTemplate(TEMPLATEPATH.'/'.$TemplateFile, $Params['lang']);
58 if ($error!='') 58 if ($error!='')
59 Error($error); 59 Error($error);
60   60  
61 // Generuj dynamický obsah do proměnných 61 // Generuj dynamický obsah do proměnných
62 PowerFunction($Template, $Params); 62 PowerFunction($Template, $Params);
63   63  
64 // Odešli výsledek klientovi 64 // Odešli výsledek klientovi
65 echo $Template->GetPage(); 65 echo $Template->GetPage();
66   66  
67   67  
68 function PowerFunction($Template, $Params) 68 function PowerFunction($Template, $Params)
69 // Tato funkce vykonává maso (generuje dynamický obsah stránky do podoby pole 69 // Tato funkce vykonává maso (generuje dynamický obsah stránky do podoby pole
70 // proměnných. Toto pole se následně použije na modifikaci templejtu . 70 // proměnných. Toto pole se následně použije na modifikaci templejtu .
71 { 71 {
72 // Lokálně používané prametry pěkně při ruce 72 // Lokálně používané prametry pěkně při ruce
73 $Path = $Params['path']; 73 $Path = $Params['path'];
74 $Lang = $Params['lang']; 74 $Lang = $Params['lang'];
75   75  
76 // Zjisti informace o sekci (z prvního adresáře cesty) 76 // Zjisti informace o sekci (z prvního adresáře cesty)
77 $SectionDirInfo = new DirMetadata(); 77 $SectionDirInfo = new DirMetadata();
78 $SectionDirInfo->LoadDirInfo('/'.GetSection($Path).'/'.DIRINFO, $Lang); 78 $SectionDirInfo->LoadDirInfo('/'.GetSection($Path).'/'.DIRINFO, $Lang);
79 79
80 // Pokud cesta sahá do sekce, která nemá popis spadneme do rootu 80 // Pokud cesta sahá do sekce, která nemá popis spadneme do rootu
81 if(!$SectionDirInfo->GetValid()) 81 if(!$SectionDirInfo->GetValid())
82 { 82 {
83 $Params['path'] = '/'; 83 $Params['path'] = '/';
84 $Path = $Params['path']; 84 $Path = $Params['path'];
85 } 85 }
86   86  
87 // Zjisti informace o aktuálním adresáři 87 // Zjisti informace o aktuálním adresáři
88 $ThisDirInfo = new DirMetadata(); 88 $ThisDirInfo = new DirMetadata();
89 $ThisDirInfo->LoadDirInfo($Path.'/'.DIRINFO, $Lang); 89 $ThisDirInfo->LoadDirInfo($Path.'/'.DIRINFO, $Lang);
90 90
91 // HTML hlavička - doplň sekci 91 // HTML hlavička - doplň sekci
92 $Template->SetVariable('InfoSection', GetSection($Path)); 92 $Template->SetVariable('InfoSection', GetSection($Path));
93   93  
94 // Zkopíruj informace z DIRINFO (z adresáře sekce a pak z aktuálního adresáře) 94 // Zkopíruj informace z DIRINFO (z adresáře sekce a pak z aktuálního adresáře)
95 // do proměnných templejtu 95 // do proměnných templejtu
96 foreach($SectionDirInfo->DirData as $Key => $Value) 96 foreach($SectionDirInfo->DirData as $Key => $Value)
97 { 97 {
98 $Template->SetVariable($Key, $Value, WRAP); 98 $Template->SetVariable($Key, $Value, WRAP);
99 } 99 }
100 foreach($ThisDirInfo->DirData as $Key => $Value) 100 foreach($ThisDirInfo->DirData as $Key => $Value)
101 { 101 {
102 $Template->SetVariable($Key, $Value, WRAP); 102 $Template->SetVariable($Key, $Value, WRAP);
103 } 103 }
104   104  
105 // Klikací řádka s cestou 105 // Klikací řádka s cestou
106 $Template->SetVariable('InfoPath', 106 $Template->SetVariable('InfoPath',
107 CreateScriptLinkPath($Params, $Template->GetString('InfoPathTitle'))); 107 CreateScriptLinkPath($Params, $Template->GetString('InfoPathTitle')));
108   108  
109   109  
110 // Procházej adresář 110 // Procházej adresář
111 // ----------------- 111 // -----------------
112   112  
113 113
114 // Odstraň lomítko u prázdné cesty aby se nezdvojovalo 114 // Odstraň lomítko u prázdné cesty aby se nezdvojovalo
115 if ($Params['path']=='/') 115 if ($Params['path']=='/')
116 $Params['path'] = ''; 116 $Params['path'] = '';
117   117  
118 // Objekt pro načítání informací o adresářích a projektech 118 // Objekt pro načítání informací o adresářích a projektech
119 $DirInfo = new DirMetadata(); 119 $DirInfo = new DirMetadata();
120   120  
121 // Abych nešahal pořád do objektu, použiju proměnnou 121 // Abych nešahal pořád do objektu, použiju proměnnou
122 $Glue = $Template->GetVariable('InfoGlue'); 122 $Glue = $Template->GetVariable('InfoGlue');
123   123  
124 // Sem se střádá mezivýsledek 124 // Sem se střádá mezivýsledek
125 // Zvlášť adresáře a projekty aby byly oddělené ve výsledku 125 // Zvlášť adresáře a projekty aby byly oddělené ve výsledku
126 $LinesDir = ''; // Adresáře 126 $LinesDir = ''; // Adresáře
127 $LinesPrj = ''; // Projekty 127 $LinesPrj = ''; // Projekty
128   128  
129 // Procházení adresářem 129 // Procházení adresářem
130 $Dir = glob($_SERVER['DOCUMENT_ROOT'].$Path.'/*', GLOB_ONLYDIR); 130 $Dir = glob($_SERVER['DOCUMENT_ROOT'].$Path.'/*', GLOB_ONLYDIR);
131   131  
132 // Vezmi jen jméno adresáře a vytvoř asociativní pole s klíči 132 // Vezmi jen jméno adresáře a vytvoř asociativní pole s klíči
133 foreach ($Dir as $Key => $DirName) 133 foreach ($Dir as $Key => $DirName)
134 { 134 {
135 $DirName = basename($DirName); 135 $DirName = basename($DirName);
136 $NewDir[$DirName] = $DirName; 136 $NewDir[$DirName] = $DirName;
137 } 137 }
138 $Dir = $NewDir; 138 $Dir = $NewDir;
139 unset($NewDir); 139 unset($NewDir);
140   140  
141 // Setřídění adresářů podle preferovaného třídění ze [SortPreferences] 141 // Setřídění adresářů podle preferovaného třídění ze [SortPreferences]
142 $NewDir = array(); 142 $NewDir = array();
143 $Sort = $ThisDirInfo->GetVariable('SortPreferences'); // vzorové třídění 143 $Sort = $ThisDirInfo->GetVariable('SortPreferences'); // vzorové třídění
144 if ($Sort!='') 144 if ($Sort!='')
145 { 145 {
146 $Sort = explode("\n", $Sort); 146 $Sort = explode("\n", $Sort);
147 // Najdi a přendej nalezené položky 147 // Najdi a přendej nalezené položky
148 foreach ($Sort as $Value) 148 foreach ($Sort as $Value)
149 { 149 {
150 $Value = trim($Value); 150 $Value = trim($Value);
151 if (isset($Dir[$Value])) 151 if (isset($Dir[$Value]))
152 { 152 {
153 // Zařaď do nového pole 153 // Zařaď do nového pole
154 $NewDir[] = $Value; 154 $NewDir[] = $Value;
155 // Vyhoď ze starého 155 // Vyhoď ze starého
156 unset($Dir[$Value]); 156 unset($Dir[$Value]);
157 } 157 }
158 } 158 }
159 // Přendej zbylé položky 159 // Přendej zbylé položky
160 foreach ($Dir as $Value) 160 foreach ($Dir as $Value)
161 { 161 {
162 $NewDir[] = $Value; 162 $NewDir[] = $Value;
163 } 163 }
164 $Dir = $NewDir; 164 $Dir = $NewDir;
165 unset($NewDir); 165 unset($NewDir);
166 } 166 }
167 167
168 // Zpracování položek 168 // Zpracování položek
169 foreach ($Dir as $DirName) 169 foreach ($Dir as $DirName)
170 { 170 {
171 // Načti informace o (každém) adresáři 171 // Načti informace o (každém) adresáři
172 $DirInfoValid = $DirInfo->LoadDirInfo($Path.'/'.$DirName.'/'.DIRINFO, $Lang); 172 $DirInfoValid = $DirInfo->LoadDirInfo($Path.'/'.$DirName.'/'.DIRINFO, $Lang);
173 173
174 // Pokud to není adresář, tak načti informace o projektu 174 // Pokud to není adresář, tak načti informace o projektu
175 if (!$DirInfoValid) 175 if (!$DirInfoValid)
176 { 176 {
177 $ProjectInfoValid = $DirInfo->LoadDirInfo($Path.'/'.$DirName.'/'.PRJINFO, $Lang) 177 $ProjectInfoValid = $DirInfo->LoadDirInfo($Path.'/'.$DirName.'/'.PRJINFO, $Lang)
178 or 178 or
179 // Heuristika pro projekty, které ještě nemají popis 179 // Heuristika pro projekty, které ještě nemají popis
180 $ProjectInfoValid = is_dir($_SERVER['DOCUMENT_ROOT'].$Path.'/'.$DirName.'/DOC') 180 $ProjectInfoValid = is_dir($_SERVER['DOCUMENT_ROOT'].$Path.'/'.$DirName.'/DOC')
181 or 181 or
182 $ProjectInfoValid = is_dir($_SERVER['DOCUMENT_ROOT'].$Path.'/'.$DirName.'/SCH'); 182 $ProjectInfoValid = is_dir($_SERVER['DOCUMENT_ROOT'].$Path.'/'.$DirName.'/SCH');
183 } 183 }
184   184  
185 // Zkontroluj, zda jsme v platné sekci 185 // Zkontroluj, zda jsme v platné sekci
186 // if ($Path!='' || $Valid) 186 // if ($Path!='' || $Valid)
187 if ($DirInfoValid || $ProjectInfoValid) 187 if ($DirInfoValid || $ProjectInfoValid)
188 { 188 {
189 // Připrav si proměnné 189 // Připrav si proměnné
190 unset($Variables); 190 unset($Variables);
191 foreach($DirInfo->DirData as $Key => $Value) 191 foreach($DirInfo->DirData as $Key => $Value)
192 { 192 {
193 $Variables[$Key] = $DirInfo->GetString($Key, WRAP); 193 $Variables[$Key] = $DirInfo->GetString($Key, WRAP);
194 } 194 }
195   195  
196 $Variables['InfoName'] = 196 $Variables['InfoName'] =
197 $DirInfoValid ? CreateScriptLink($Params, $DirName, $DirInfo->GetString('InfoLongDescription')) 197 $DirInfoValid ? CreateScriptLink($Params, $DirName, $DirInfo->GetString('InfoLongDescription'))
198 : $DirName; 198 : $DirName;
199   199  
200 $Variables['InfoPicture'] = CreatePicturesLink($Params['path'].'/'.$DirName, $Glue, 'Ilustrative Picture', TEMPLATEPATH.'/'.$Template->GetVariable('InfoNoPicture')); 200 $Variables['InfoPicture'] = CreatePicturesLink($Params['path'].'/'.$DirName, $Glue, 'Ilustrative Picture', TEMPLATEPATH.'/'.$Template->GetVariable('InfoNoPicture'));
201 $Variables['InfoDescripion'] = $DirInfo->GetString('InfoShortDescription', WRAP); 201 $Variables['InfoDescripion'] = $DirInfo->GetString('InfoShortDescription', WRAP);
202 $Variables['InfoWebSVN'] = CreateSVNLink($Params['path'].'/'.$DirName, $Params['lang'], $Template->GetString('InfoSVNTitle')); 202 $Variables['InfoWebSVN'] = CreateSVNLink($Params['path'].'/'.$DirName, $Params['lang'], $Template->GetString('InfoSVNTitle'));
203 if (!$DirInfoValid) 203 if (!$DirInfoValid)
204 { 204 {
205 $Variables['InfoWIKI'] = CreateWikiLink($DirName, $Params['lang'], $Template->GetString('InfoWikiTitle')); 205 $Variables['InfoWIKI'] = CreateWikiLink($DirName, $Params['lang'], $Template->GetString('InfoWikiTitle'));
206 } 206 }
207 $Variables['InfoHTML'] = CreateFilesLink($Params['path'].'/'.$DirName.'/DOC/HTML/*.[hH][tT][mM][lL]', $Glue); 207 $Variables['InfoHTML'] = CreateFilesLink($Params['path'].'/'.$DirName.'/DOC/HTML/*.[hH][tT][mM][lL]', $Glue);
208 $Variables['InfoPDF'] = CreateFilesLink($Params['path'].'/'.$DirName.'/DOC/*.[pP][dD][fF]', $Glue); 208 $Variables['InfoPDF'] = CreateFilesLink($Params['path'].'/'.$DirName.'/DOC/*.[pP][dD][fF]', $Glue);
209 $Variables['InfoSCH'] = CreateFilesLink($Params['path'].'/'.$DirName.'/SCH/*.[pP][dD][fF]', $Glue); 209 $Variables['InfoSCH'] = CreateFilesLink($Params['path'].'/'.$DirName.'/SCH/*.[pP][dD][fF]', $Glue);
210 $Variables['InfoBuy'] = CreateLink(GetString('InfoBuyUST'),'UST'); -  
211   210  
212 // Poukni proměnné do vzoru a střádej si výsledek 211 // Poukni proměnné do vzoru a střádej si výsledek
213 if ($DirInfoValid) 212 if ($DirInfoValid)
214 $LinesDir .= $Template->Substitute($Variables, $Template->GetVariable('InfoLine')); 213 $LinesDir .= $Template->Substitute($Variables, $Template->GetVariable('InfoLine'));
215 else 214 else
216 $LinesPrj .= $Template->Substitute($Variables, $Template->GetVariable('InfoLine')); 215 $LinesPrj .= $Template->Substitute($Variables, $Template->GetVariable('InfoLine'));
217 } 216 }
218 } 217 }
219   218  
220 // Slož k sobě obě části (adresář / separátor / projekt) 219 // Slož k sobě obě části (adresář / separátor / projekt)
221 if ($LinesDir!='' and $LinesPrj!='') 220 if ($LinesDir!='' and $LinesPrj!='')
222 $Lines = $LinesDir.$Template->GetString('InfoSeparator').$LinesPrj; 221 $Lines = $LinesDir.$Template->GetString('InfoSeparator').$LinesPrj;
223 else 222 else
224 $Lines = $LinesDir.$LinesPrj; 223 $Lines = $LinesDir.$LinesPrj;
225   224  
226 // Teď sestavené položky ulož do proměnné "InfoLine" objektu 225 // Teď sestavené položky ulož do proměnné "InfoLine" objektu
227 $Template->SetVariable('InfoLine', $Lines); 226 $Template->SetVariable('InfoLine', $Lines);
228 } 227 }
229   228  
230 /* 229 /*
231 //Načtení adresáře 230 //Načtení adresáře
232 if ((Is_Dir($path.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1)) && (substr($soubor1,0,1) <> ".") && (substr($soubor1,0,1) <> "!")) { 231 if ((Is_Dir($path.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1)) && (substr($soubor1,0,1) <> ".") && (substr($soubor1,0,1) <> "!")) {
233 //Nastavení suffixu u obrázků 232 //Nastavení suffixu u obrázků
234 $img = $soubor1."_Small.jpg"; 233 $img = $soubor1."_Small.jpg";
235   234  
236 //Pokud existuje náhled obrázku, zobraz ho 235 //Pokud existuje náhled obrázku, zobraz ho
237 if (file_exists($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$img)) { 236 if (file_exists($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$img)) {
238 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"; 237 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";
239 } else { echo "<td><img src=\"thumb.php?pth=".$HTTP_GET_VARS["file"]."/".$soubor1."&fname=".$soubor1."\"></td>\n"; } 238 } else { echo "<td><img src=\"thumb.php?pth=".$HTTP_GET_VARS["file"]."/".$soubor1."&fname=".$soubor1."\"></td>\n"; }
240   239  
241 //Pokud existuje HTML dokumentace k modulu vytvoř na ni odkaz 240 //Pokud existuje HTML dokumentace k modulu vytvoř na ni odkaz
242 if (file_exists($path.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/HTML/".$soubor1.".".$lang.".html")) { 241 if (file_exists($path.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/HTML/".$soubor1.".".$lang.".html")) {
243 echo "<td><a href=\"".$www.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/HTML/".$soubor1.".".$lang.".html\">".$soubor1."</a></td>\n"; 242 echo "<td><a href=\"".$www.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/HTML/".$soubor1.".".$lang.".html\">".$soubor1."</a></td>\n";
244 } else { echo "<td>".$soubor."<b>".$soubor1."</b></td>\n"; } 243 } else { echo "<td>".$soubor."<b>".$soubor1."</b></td>\n"; }
245 //Pokud existuje PDF dokumentace k modulu zobraz odkaz 244 //Pokud existuje PDF dokumentace k modulu zobraz odkaz
246 if (file_exists($path.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/".$soubor1.".".$lang.".pdf")) { 245 if (file_exists($path.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/".$soubor1.".".$lang.".pdf")) {
247 echo "<td><a href=\"".$www.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/".$soubor1.".".$lang.".pdf\">PDF</a></td>\n"; 246 echo "<td><a href=\"".$www.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/".$soubor1.".".$lang.".pdf\">PDF</a></td>\n";
248 } else { echo "\n<td>-</td>\n"; } 247 } else { echo "\n<td>-</td>\n"; }
249 //WebSVN odkaz 248 //WebSVN odkaz
250 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"; 249 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";
251 //Pokud existuje stručné info, zobraz ho 250 //Pokud existuje stručné info, zobraz ho
252 if (file_exists($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$info1)) { 251 if (file_exists($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$info1)) {
253 $fp = FOpen ($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$info1, "r"); 252 $fp = FOpen ($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$info1, "r");
254 $data = FRead ($fp, FileSize ($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$info1)); 253 $data = FRead ($fp, FileSize ($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$info1));
255 FClose ($fp); 254 FClose ($fp);
256 echo "<td>".wordwrap($data, 50, "<br>")."</td>\n"; 255 echo "<td>".wordwrap($data, 50, "<br>")."</td>\n";
257 } else { echo "\n<td><i>No description available</i></td>\n"; } 256 } else { echo "\n<td><i>No description available</i></td>\n"; }
258 echo "</tr>\n\n"; 257 echo "</tr>\n\n";
259 } 258 }
260   259  
261   260  
262 $PathEncoded = URLEncode($Path.'/'.$FileName); 261 $PathEncoded = URLEncode($Path.'/'.$FileName);
263   262  
264 $htmllink = "<a href='".$_SERVER['SCRIPT_NAME']."?lang=$Lang&amp;path=$PathEncoded'>$FileName</a>"; 263 $htmllink = "<a href='".$_SERVER['SCRIPT_NAME']."?lang=$Lang&amp;path=$PathEncoded'>$FileName</a>";
265   264  
266 */ 265 */
267   266  
268   267  
269 ?> 268 ?>