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