Rev Author Line No. Line
4985 kaklik 1 <?php
2  
3  
4987 kaklik 4 define('WEBSVNSCRIPT', '/WebSVN/listing.php'); // Cesta k WebSVN skriptu
5 define('WIKISERVER', 'wiki'); // Jméno Wiki serveru (co se strčí místo jména stávajícího serveru)
4985 kaklik 6  
7  
8 function Error($str)
9 // Ukončení běhu při chybě
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  
31 function CheckEnvironment()
32 {
33 // POZOR DOPSAT
34 }
35  
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
4987 kaklik 48 if ( str_starts_with($Path, $_SERVER['DOCUMENT_ROOT']) )
4985 kaklik 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  
100 if (is_file($File))
101 return $File;
102  
103 // Zkus soubor tak jak je
104 if (is_file($FileName))
105 return $FileName;
106  
107 // Nic nevyšlo
108 return '';
109 }
110  
111 function CreateLink($InternetWebPath, $Title='')
112 // Vstupem je cesta do jiného webu.
113 // a volitelně title (zobrazí se při najetí myši na odkaz).
114 // Vrací řetězec s odkazem
115 {
116 $Link = '<a href="'.$InternetWebPath.'"';
117 if ($Title != '')
118 $Link .= "\n".' title="'.$Title.'"';
119 $Link .= '>';
120 $Link .= $Title;
121 $Link .= '</a>';
122  
123 return $Link;
124 }
125  
126  
127 function CreateScriptLink($Params, $DirName='', $Title='')
128 // Vytvoř odkaz na skript s parametry skriptu. Parametry jsou předány jako
129 // pole s jmény položek a hodnotami. Volitelná položka $DirName se přidá k cestě
130 // v položce $Params. Pokud je zadaná cesta prázdná nebo / zobrazí se slovo root
131 {
132 // Připoj volitelné jméno adresáře
133 if ($DirName!='')
134 $Params['path'] = $Params['path'].'/'.$DirName;
135  
136 // Odvoď jméno z názvu adresáře
137 $DirName = basename($Params['path']);
138 if ($DirName == '')
139 {
140 $DirName = '(root)';
141 $Params['path'] = '/';
142 }
143  
144 // Zpracuj pole parametrů
145 $ParamsLine = '';
146 $LocalGlue = '';
147 foreach($Params as $Key => $Value)
148 {
149 $ParamsLine .= $LocalGlue.$Key.'='.urlencode($Value);
150 $LocalGlue = '&amp;';
151 }
152 unset($LocalGlue);
153  
154 // Sestav odkaz
155 $Link = '<a href="'.$_SERVER['SCRIPT_NAME'].'?'.$ParamsLine.'"';
156 if ($Title!='')
157 $Link .= "\n".' title="'.htmlspecialchars($Title).'"';
158 $Link .= ">$DirName</a>";
159  
160 return $Link;
161 }
162  
163  
164 function CreateScriptLinkPath($Params, $Title)
165 // Vstupem je cesta (začínající /) od DOCUMENT_ROOT
166 // Výsledkem je řádka odkazů na jednotlivé adresáře cesty
167 // Odkazy jsou odkazy na skript s parametrem cesty a jazyka
168 // Vstupem je pole parametrů ze kterých použijeme parametr 'path',
169 // ostatní jen umístíme do odkazů.
170 {
171 // Rozděl cestu na kousky
172 $Parts = explode('/', $Params['path']);
173 if ($Parts[0]=='')
174 array_shift($Parts); // vyhoď případnou prázdnou položku
175  
176 // Začínáme od rootu
177 $TempPath = '';
178  
179 // Odkaz na root (je vždy)
180 $Params['path'] = $TempPath;
181 $Link = CreateScriptLink($Params, '', $Title);
182  
183 // Je něco víc než root?
184 if (isset($Parts[0]) && $Parts[0]!='')
185 {
186 // Odkaz na všechny další adresáře cesty
187 foreach($Parts as $Key => $Value)
188 {
189 // Přidej adresář
190 $TempPath .= '/'.$Value;
191  
192 // Vyrob odkaz
193 $Link .= " /\n";
194 $Params['path'] = $TempPath;
195 $Link .= CreateScriptLink($Params, '', $Title);
196 }
197 }
198  
199 // Vrať výsledek
200 return $Link;
201 }
202  
203  
204 function CreateSVNLink($Path, $Lang, $Title)
205 // Vytvoří odkaz do WebSVN podle cesty a jazyka
206 {
207 $Path = htmlspecialchars($Path);
208  
209 $Link = '<a href="http://';
210 $Link .= $_SERVER['SERVER_NAME'];
211 $Link .= WEBSVNSCRIPT;
212 $Link .= '?repname=MLAB&amp;path=';
213 $Link .= $Path;
214 $Link .= '/';
215 if ($Lang=='cs')
216 $Link .= '&amp;langchoice=Česky';
217 else
218 $Link .= '&amp;langchoice=English';
219 $Link .= '"';
220 if ($Title!='')
221 $Link .= "\n".' title="'.htmlspecialchars($Title).'"';
222 $Link .= '>WebSVN</a>';
223  
224 return $Link;
225 }
226  
227  
228 function CreateWikiLink($Name, $Lang, $Title)
229 // Vytvoří odkaz do Wiki podle jména modulu a jazyka
230 {
231 // Ukousni verzi a revizi modulu (například 01A)
232 $Name = preg_replace('/[0-9][0-9][a-z]$/i', '', $Name);
233 $Name = htmlspecialchars($Name);
234  
235 // Sestav odkaz
236 $Link = '<a href="http://';
237 $Link .= preg_replace('/^.+?\./', WIKISERVER.'.', $_SERVER['SERVER_NAME']);
238 $Link .= '/doku.php?id='.$Lang.':'.$Name;
239 $Link .= '"';
240  
241 if ($Title!='')
242 $Link .= "\n".' title="'.htmlspecialchars($Title).'"';
243 $Link .= '>Wiki</a>';
244  
245 return $Link;
246 }
247  
248  
249 function CreatePicturesLink($Path, $Glue, $Alt='', $NoPicture)
250 // Najde na uvedené cestě obrázky, které mají v názvu Small
251 // a sestaví na ně odkaz. Pokud není žádný obrázek, vytvoří odkaz na obrázek
252 // v parametru $NoPicture.
253 {
254 // Najdi všechny soubory
255 $Files = array();
256 foreach (glob($_SERVER['DOCUMENT_ROOT'].$Path.'/*') as $File)
257 {
258 if (is_file($File))
259 {
260 // Jen jméno souboru
261 $File = substr($File, 1+strlen($_SERVER['DOCUMENT_ROOT'].$Path));
262  
263 // TOHLE ASI RADĚJI PŘEZ REGEX
264  
265 // Odděl příponu
266 $DotPos = strrpos($File, '.');
267 $Extension = substr($File, $DotPos+1);
268 $BaseName = substr($File, 0, $DotPos);
269  
270 // Vezmi obrázky, které mají ve jméně Small
271 if( (strtolower($Extension)=='jpg' or strtolower($Extension)=='png')
272 and strpos($BaseName, 'Small')>0 )
273 {
274 $Files[] = $Path.'/'.$File;
275 }
276 }
277 }
278  
279 // V adresáři nejsou žádné vhodné obrázky
280 if (count($Files) == 0)
281 {
282 // Není na co udělat odkaz
283 if ($NoPicture=='')
284 return '';
285 // Přidej odkaz nikam
286 $Files[] = $NoPicture;
287 }
288  
289 // Udělej odkazy na pole souborů
290 $Alt = htmlspecialchars($Alt);
291 $Line = '';
292 $FirstGlue = TRUE;
293 foreach($Files as $File)
294 {
295 $File = htmlspecialchars($File);
296  
297 if(!$FirstGlue)
298 $Line .= ' '.$Glue."\n";
299 $FirstGlue = FALSE;
300  
301 $Line .= '<a href="'.$File.'">'."\n";
302 $Line .= '<img src="'.$File.'"'."\n";
303 $Line .= ' width="150"'."\n";
304 $Line .= ' alt="'.$Alt.'">'."\n";
305 $Line .= '</a>'."\n";
306 }
307  
308 return $Line;
309 }
310  
311  
312 ?>