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