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