Rev Author Line No. Line
944 miho 1 <?php
2  
3  
4 define('WEBSVNSCRIPT', '/WebSVN/listing.php', true); // Cesta k WebSVN skriptu
1491 miho 5 define('WIKISERVER', 'wiki', true); // Jméno Wiki serveru (co se strčí místo jména stávajícího serveru)
944 miho 6  
7  
8 function Error($str)
9 // Ukončení běhu při chybhě
10 {
11 echo '<b>Ups...<b>'.$str;
12 exit;
13 }
14  
15  
16 function WrapString($String, $Wrap=0)
17 // Provede odstranění nadbytečných bílých znaků
18 // a volitleně (pokud je $Wrap nenulové) provede zálámání na zadaný počet znaků
19 {
20 // Odstaň bílé znaky
21 $String = preg_replace('/\s+/su', ' ', $String);
22  
23 // Volitelné nalámání
24 if ($Wrap!=0)
25 $String = wordwrap($String, $Wrap);
26  
27 return $String;
28 }
29  
30  
960 miho 31 function CheckEnvironment()
32 {
33 // POZOR DOPSAT
34 }
35  
944 miho 36 function CheckWebPath($Path)
37 // Zadaná cesta se chápe jako cesta uvnitř webu (vzhledem k document root).
38 // Případné relativní části (/../..) převede na absolutní a zkontroluje
39 // výsledek, zda nevybočuje mimo web.
40 // Na začátku nechá lomítko, na konci ho odstraní.
41 // Pokud je výsledná cesta neplatná, vrátí prázdný řetězec. Kontroluje, zda
42 // zadaný adresář existuje.
43 {
44 // Převeď cestu na opravdovou, odstraň relativní odkazy
45 $Path = realpath($_SERVER['DOCUMENT_ROOT'].$Path);
46  
47 // Zkontroluj, zda jsme nevybočili z webu
48 if ( 0 == strncmp($Path, $_SERVER['DOCUMENT_ROOT'], strlen($_SERVER['DOCUMENT_ROOT']) ) )
49 {
50 // Shoda - odstraň DOCUMENT_ROOT část cesty
51 return substr( $Path, strlen($_SERVER['DOCUMENT_ROOT']) );
52 }
53 else
54 {
55 // Vybočili jsme z webu
56 return '';
57 }
58 }
59  
60  
61 function GetSection($Path)
62 // Vrátí první část cesty (to je to, co nazýváme sekce)
63 {
64 // Ignoruj lomítko na začátku
65 $Path = ltrim($Path, '/');
66  
67 // Vykousni první slovo až po lomítko
68 $Section = substr($Path, 0, strpos($Path.'/', '/'));
69  
70 // Ošetři root
71 if ($Section=='')
72 $Section = "(root)";
73  
74 // Vrať výsledek
75 return $Section;
76 }
77  
78  
79 function LangFile($FileName, $Lang)
80 // Dostává cestu k souboru a jazyk. Zkusí ověřit existenci souboru s doplněným
81 // zadaným jazykem, dále zkusí angličtinu a nakonec zkusí nemodifikovaný název.
82 // Vrací jméno souboru s tou variantou, kterou našel.
83 {
84 // Najdi příponu (poslední tečka)
85 $Pos = strrpos($FileName, '.');
86 if ($Pos === false)
87 return '';
88 if ($Pos < strrchr($FileName, '/'))
89 return '';
90  
91 // Zkus doplnit zadaný jazyk
92 $File = substr($FileName, 0, $Pos+1).$Lang.substr($FileName, $Pos);
93  
94 if (is_file($File))
95 return $File;
96  
97 // Zkus doplnit en
98 $File = substr($FileName, 0, $Pos+1).'en'.substr($FileName, $Pos);
99 if (is_file($File))
100 return $File;
101  
102 // Zkus soubor tak jak je
103 if (is_file($FileName))
104 return $FileName;
105  
106 // Nic nevyšlo
107 return '';
108 }
109  
1869 kaklik 110 function CreateLink($InternetWebPath, $Title='')
111 // Vstupem je cesta do jiného webu.
112 // a volitelně title (zobrazí se při najetí myši na odkaz).
113 // Vrací řetězec s odkazem
114 {
115 $Link = '<a href="'.$InternetWebPath.'"';
116 if ($Title != '')
117 $Link .= "\n".' title="'.$Title.'"';
118 $Link .= '>';
119 $Link .= $Title;
120 $Link .= '</a>';
944 miho 121  
1869 kaklik 122 return $Link;
123 }
124  
944 miho 125 function CreateFileLink($FileName, $Title='')
126 // Vstupem je cesta k souboru v rámci webu (od DOCUMENT_ROOT)
127 // a volitelně title (zobrazí se při najetí myši na odkaz).
128 // Vrací řetězec s odkazem
129 {
130 $FileName = htmlspecialchars($FileName);
131  
132 $Link = '<a href="http://'.$_SERVER['SERVER_NAME'].$FileName.'"';
133 if ($Title != '')
134 $Link .= "\n".' title="'.$Title.'"';
135 $Link .= '>';
136 if (basename($FileName)=='')
137 $Link .= '(root)';
138 else
139 $Link .= basename($FileName);
140 $Link .= '</a>';
141  
142 return $Link;
143 }
144  
145 function CreateFilesLink($Path, $Glue, $Title='')
146 // Sestaví odkazy na všechny soubory zadaného jména slepené lepidlem
147 // Volitelně lze zadat title (zobrazí se při najetí myši na odkaz).
148 // Cesta se chápe v rámci webu (od DOCUMENT_ROOT).
149 // Vrací řetězec s odkazy
150 {
151 // Při lepení odřádkujeme aby byl generovaný kód strukturovaný
152 $Glue = ' '.$Glue."\n";
153  
154 // Pro každou položku
155 $Line = '';
156 $Ofset = strlen($_SERVER['DOCUMENT_ROOT']);
157 foreach (glob($_SERVER['DOCUMENT_ROOT'].$Path, 0) as $DirName)
158 {
159 // Sestav odkaz
160 if (is_file($DirName))
161 $Line .= $Glue.CreateFileLink(substr($DirName, $Ofset), $Title);
162 }
163  
164 // Vrať výsledek ale bez lepidla na začátku
165 return substr($Line, strlen($Glue));
166 }
167  
168  
169 function CreateScriptLink($Params, $DirName='', $Title='')
170 // Vytvoř odkaz na skript s parametry skriptu. Parametry jsou předány jako
171 // pole s jmény položek a hodnotami. Volitelná položka $DirName se přidá k cestě
172 // v položce $Params. Pokud je zadaná cesta prázdná nebo / zobrazí se slovo root
173 {
174 // Připoj volitelné jméno adresáře
175 if ($DirName!='')
176 $Params['path'] = $Params['path'].'/'.$DirName;
177  
178 // Odvoď jméno z názvu adresáře
179 $DirName = basename($Params['path']);
180 if ($DirName == '')
181 {
182 $DirName = '(root)';
183 $Params['path'] = '/';
184 }
185  
186 // Zpracuj pole parametrů
187 $ParamsLine = '';
188 $LocalGlue = '';
189 foreach($Params as $Key => $Value)
190 {
191 $ParamsLine .= $LocalGlue.$Key.'='.urlencode($Value);
192 $LocalGlue = '&amp;';
193 }
194 unset($LocalGlue);
195  
196 // Sestav odkaz
197 $Link = '<a href="'.$_SERVER['SCRIPT_NAME'].'?'.$ParamsLine.'"';
198 if ($Title!='')
199 $Link .= "\n".' title="'.htmlspecialchars($Title).'"';
200 $Link .= ">$DirName</a>";
201  
202 return $Link;
203 }
204  
205  
206 function CreateScriptLinkPath($Params, $Title)
207 // Vstupem je cesta (začínající /) od DOCUMENT_ROOT
208 // Výsledkem je řádka odkazů na jednotlivé adresáře cesty
209 // Odkazy jsou odkazy na skript s parametrem cesty a jazyka
210 // Vstupem je pole parametrů ze kterých použijeme parametr 'path',
211 // ostatní jen umístíme do odkazů.
212 {
213 // Rozděl cestu na kousky
214 $Parts = explode('/', $Params['path']);
215 if ($Parts[0]=='')
216 array_shift($Parts); // vyhoď případnou prázdnou položku
217  
218 // Začínáme od rootu
219 $TempPath = '';
220  
221 // Odkaz na root (je vždy)
222 $Params['path'] = $TempPath;
223 $Link = CreateScriptLink($Params, '', $Title);
224  
225 // Je něco víc než root?
226 if (isset($Parts[0]) && $Parts[0]!='')
227 {
228 // Odkaz na všechny další adresáře cesty
229 foreach($Parts as $Key => $Value)
230 {
231 // Přidej adresář
232 $TempPath .= '/'.$Value;
233  
234 // Vyrob odkaz
235 $Link .= " /\n";
236 $Params['path'] = $TempPath;
237 $Link .= CreateScriptLink($Params, '', $Title);
238 }
239 }
240  
241 // Vrať výsledek
242 return $Link;
243 }
244  
245  
246 function CreateSVNLink($Path, $Lang, $Title)
247 // Vytvoří odkaz do WebSVN podle cesty a jazyka
248 {
249 $Path = htmlspecialchars($Path);
250  
251 $Link = '<a href="http://';
252 $Link .= $_SERVER['SERVER_NAME'];
253 $Link .= WEBSVNSCRIPT;
254 $Link .= '?repname=MLAB&amp;path=';
255 $Link .= $Path;
256 $Link .= '/';
257 if ($Lang=='cs')
258 $Link .= '&amp;langchoice=Česky';
259 else
260 $Link .= '&amp;langchoice=English';
261 $Link .= '"';
262 if ($Title!='')
263 $Link .= "\n".' title="'.htmlspecialchars($Title).'"';
264 $Link .= '>WebSVN</a>';
265  
266 return $Link;
267 }
268  
269  
1491 miho 270 function CreateWikiLink($Name, $Lang, $Title)
271 // Vytvoří odkaz do Wiki podle jména modulu a jazyka
272 {
273 // Ukousni verzi a revizi modulu (například 01A)
274 $Name = preg_replace('/[0-9][0-9][a-z]$/i', '', $Name);
275 $Name = htmlspecialchars($Name);
276  
277 // Sestav odkaz
278 $Link = '<a href="http://';
279 $Link .= preg_replace('/^.+?\./', WIKISERVER.'.', $_SERVER['SERVER_NAME']);
280 $Link .= '/doku.php?id='.$Lang.':'.$Name;
281 $Link .= '"';
282  
283 if ($Title!='')
284 $Link .= "\n".' title="'.htmlspecialchars($Title).'"';
285 $Link .= '>Wiki</a>';
286  
287 return $Link;
288 }
289  
290  
944 miho 291 function CreatePicturesLink($Path, $Glue, $Alt='', $NoPicture)
292 // Najde na uvedené cestě obrázky, které mají v názvu Small
293 // a sestaví na ně odkaz. Pokud není žádný obrázek, vytvoří odkaz na obrázek
294 // v parametru $NoPicture.
295 {
296 // Najdi všechny soubory
297 $Files = array();
298 foreach (glob($_SERVER['DOCUMENT_ROOT'].$Path.'/*') as $File)
299 {
300 if (is_file($File))
301 {
302 // Jen jméno souboru
303 $File = substr($File, 1+strlen($_SERVER['DOCUMENT_ROOT'].$Path));
304  
305 // TOHLE ASI RADĚJI PŘEZ REGEX
306  
307 // Odděl příponu
308 $DotPos = strrpos($File, '.');
309 $Extension = substr($File, $DotPos+1);
310 $BaseName = substr($File, 0, $DotPos);
311  
312 // Vezmi obrázky, které mají ve jméně Small
313 if( (strtolower($Extension)=='jpg' or strtolower($Extension)=='png')
314 and strpos($BaseName, 'Small')>0 )
315 {
316 $Files[] = $Path.'/'.$File;
317 }
318 }
319 }
320  
321 // V adresáři nejsou žádné vhodné obrázky
322 if (count($Files) == 0)
323 {
324 // Není na co udělat odkaz
325 if ($NoPicture=='')
326 return '';
327 // Přidej odkaz nikam
328 $Files[] = $NoPicture;
329 }
330  
331 // Udělej odkazy na pole souborů
332 $Alt = htmlspecialchars($Alt);
333 $Line = '';
334 $FirstGlue = TRUE;
335 foreach($Files as $File)
336 {
337 $File = htmlspecialchars($File);
338  
339 if(!$FirstGlue)
340 $Line .= ' '.$Glue."\n";
341 $FirstGlue = FALSE;
342  
343 $Line .= '<a href="'.$File.'">'."\n";
344 $Line .= '<img src="'.$File.'"'."\n";
345 $Line .= ' width="150"'."\n";
346 $Line .= ' alt="'.$Alt.'">'."\n";
347 $Line .= '</a>'."\n";
348 }
349  
350 return $Line;
351 }
352  
353  
354 ?>