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