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 = '&'; |
|
|
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&path='; |
|
|
213 |
$Link .= $Path; |
|
|
214 |
$Link .= '/'; |
|
|
215 |
if ($Lang=='cs') |
|
|
216 |
$Link .= '&langchoice=Česky'; |
|
|
217 |
else |
|
|
218 |
$Link .= '&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 |
?> |