| 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'); // 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'); // Jméno souboru s informacemi o projektu |
| 11 |
define('WRAP', 70, true); // Lámání řetězcových hodnot |
11 |
define('WRAP', 70); // Lámání řetězcových hodnot |
| 12 |
|
12 |
|
| 13 |
define('TEMPLATEPATH', 'Templates', true); // relativní cesta k templejtům |
13 |
define('TEMPLATEPATH', 'Templates'); // 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 |
if($DirInfo->GetString('InfoBuyUST')!= '') |
210 |
if($DirInfo->GetString('InfoBuyUST')!= '') |
| 211 |
{ |
211 |
{ |
| 212 |
$Variables['InfoBuy'] = CreateLink($DirInfo->GetString('InfoBuyUST'),'UST'); |
212 |
$Variables['InfoBuy'] = CreateLink($DirInfo->GetString('InfoBuyUST'),'UST'); |
| 213 |
} |
213 |
} |
| 214 |
|
214 |
|
| 215 |
// Poukni proměnné do vzoru a střádej si výsledek |
215 |
// Poukni proměnné do vzoru a střádej si výsledek |
| 216 |
if ($DirInfoValid) |
216 |
if ($DirInfoValid) |
| 217 |
$LinesDir .= $Template->Substitute($Variables, $Template->GetVariable('InfoLine')); |
217 |
$LinesDir .= $Template->Substitute($Variables, $Template->GetVariable('InfoLine')); |
| 218 |
else |
218 |
else |
| 219 |
$LinesPrj .= $Template->Substitute($Variables, $Template->GetVariable('InfoLine')); |
219 |
$LinesPrj .= $Template->Substitute($Variables, $Template->GetVariable('InfoLine')); |
| 220 |
} |
220 |
} |
| 221 |
} |
221 |
} |
| 222 |
|
222 |
|
| 223 |
// Slož k sobě obě části (adresář / separátor / projekt) |
223 |
// Slož k sobě obě části (adresář / separátor / projekt) |
| 224 |
if ($LinesDir!='' and $LinesPrj!='') |
224 |
if ($LinesDir!='' and $LinesPrj!='') |
| 225 |
$Lines = $LinesDir.$Template->GetString('InfoSeparator').$LinesPrj; |
225 |
$Lines = $LinesDir.$Template->GetString('InfoSeparator').$LinesPrj; |
| 226 |
else |
226 |
else |
| 227 |
$Lines = $LinesDir.$LinesPrj; |
227 |
$Lines = $LinesDir.$LinesPrj; |
| 228 |
|
228 |
|
| 229 |
// Teď sestavené položky ulož do proměnné "InfoLine" objektu |
229 |
// Teď sestavené položky ulož do proměnné "InfoLine" objektu |
| 230 |
$Template->SetVariable('InfoLine', $Lines); |
230 |
$Template->SetVariable('InfoLine', $Lines); |
| 231 |
} |
231 |
} |
| 232 |
|
232 |
|
| 233 |
/* |
233 |
/* |
| 234 |
//Načtení adresáře |
234 |
//Načtení adresáře |
| 235 |
if ((Is_Dir($path.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1)) && (substr($soubor1,0,1) <> ".") && (substr($soubor1,0,1) <> "!")) { |
235 |
if ((Is_Dir($path.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1)) && (substr($soubor1,0,1) <> ".") && (substr($soubor1,0,1) <> "!")) { |
| 236 |
//Nastavení suffixu u obrázků |
236 |
//Nastavení suffixu u obrázků |
| 237 |
$img = $soubor1."_Small.jpg"; |
237 |
$img = $soubor1."_Small.jpg"; |
| 238 |
|
238 |
|
| 239 |
//Pokud existuje náhled obrázku, zobraz ho |
239 |
//Pokud existuje náhled obrázku, zobraz ho |
| 240 |
if (file_exists($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$img)) { |
240 |
if (file_exists($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$img)) { |
| 241 |
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"; |
241 |
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"; |
| 242 |
} else { echo "<td><img src=\"thumb.php?pth=".$HTTP_GET_VARS["file"]."/".$soubor1."&fname=".$soubor1."\"></td>\n"; } |
242 |
} else { echo "<td><img src=\"thumb.php?pth=".$HTTP_GET_VARS["file"]."/".$soubor1."&fname=".$soubor1."\"></td>\n"; } |
| 243 |
|
243 |
|
| 244 |
//Pokud existuje HTML dokumentace k modulu vytvoř na ni odkaz |
244 |
//Pokud existuje HTML dokumentace k modulu vytvoř na ni odkaz |
| 245 |
if (file_exists($path.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/HTML/".$soubor1.".".$lang.".html")) { |
245 |
if (file_exists($path.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/HTML/".$soubor1.".".$lang.".html")) { |
| 246 |
echo "<td><a href=\"".$www.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/HTML/".$soubor1.".".$lang.".html\">".$soubor1."</a></td>\n"; |
246 |
echo "<td><a href=\"".$www.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/HTML/".$soubor1.".".$lang.".html\">".$soubor1."</a></td>\n"; |
| 247 |
} else { echo "<td>".$soubor."<b>".$soubor1."</b></td>\n"; } |
247 |
} else { echo "<td>".$soubor."<b>".$soubor1."</b></td>\n"; } |
| 248 |
//Pokud existuje PDF dokumentace k modulu zobraz odkaz |
248 |
//Pokud existuje PDF dokumentace k modulu zobraz odkaz |
| 249 |
if (file_exists($path.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/".$soubor1.".".$lang.".pdf")) { |
249 |
if (file_exists($path.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/".$soubor1.".".$lang.".pdf")) { |
| 250 |
echo "<td><a href=\"".$www.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/".$soubor1.".".$lang.".pdf\">PDF</a></td>\n"; |
250 |
echo "<td><a href=\"".$www.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/".$soubor1.".".$lang.".pdf\">PDF</a></td>\n"; |
| 251 |
} else { echo "\n<td>-</td>\n"; } |
251 |
} else { echo "\n<td>-</td>\n"; } |
| 252 |
//WebSVN odkaz |
252 |
//WebSVN odkaz |
| 253 |
echo "<td><a href=\"http://www.mlab.cz/WebSVN/listing.php?repname=MLAB&path=/Modules/".$HTTP_GET_VARS["file"]."/".$soubor1."/\">WebSVN</a></td>\n"; |
253 |
echo "<td><a href=\"http://www.mlab.cz/WebSVN/listing.php?repname=MLAB&path=/Modules/".$HTTP_GET_VARS["file"]."/".$soubor1."/\">WebSVN</a></td>\n"; |
| 254 |
//Pokud existuje stručné info, zobraz ho |
254 |
//Pokud existuje stručné info, zobraz ho |
| 255 |
if (file_exists($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$info1)) { |
255 |
if (file_exists($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$info1)) { |
| 256 |
$fp = FOpen ($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$info1, "r"); |
256 |
$fp = FOpen ($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$info1, "r"); |
| 257 |
$data = FRead ($fp, FileSize ($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$info1)); |
257 |
$data = FRead ($fp, FileSize ($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$info1)); |
| 258 |
FClose ($fp); |
258 |
FClose ($fp); |
| 259 |
echo "<td>".wordwrap($data, 50, "<br>")."</td>\n"; |
259 |
echo "<td>".wordwrap($data, 50, "<br>")."</td>\n"; |
| 260 |
} else { echo "\n<td><i>No description available</i></td>\n"; } |
260 |
} else { echo "\n<td><i>No description available</i></td>\n"; } |
| 261 |
echo "</tr>\n\n"; |
261 |
echo "</tr>\n\n"; |
| 262 |
} |
262 |
} |
| 263 |
|
263 |
|
| 264 |
|
264 |
|
| 265 |
$PathEncoded = URLEncode($Path.'/'.$FileName); |
265 |
$PathEncoded = URLEncode($Path.'/'.$FileName); |
| 266 |
|
266 |
|
| 267 |
$htmllink = "<a href='".$_SERVER['SCRIPT_NAME']."?lang=$Lang&path=$PathEncoded'>$FileName</a>"; |
267 |
$htmllink = "<a href='".$_SERVER['SCRIPT_NAME']."?lang=$Lang&path=$PathEncoded'>$FileName</a>"; |
| 268 |
|
268 |
|
| 269 |
*/ |
269 |
*/ |
| 270 |
|
270 |
|
| 271 |
|
271 |
|
| 272 |
?> |
272 |
?> |