1.1 --- a/vstup/skriptování.xml	Sat Jun 23 23:19:09 2012 +0200
     1.2 +++ b/vstup/skriptování.xml	Sun Jul 01 14:43:21 2012 +0200
     1.3 @@ -21,9 +21,16 @@
     1.4  		</p>
     1.5  
     1.6  		<p>
     1.7 -			Díky skriptování můžeme stránky obohatit o prakticky libovolný obsah.
     1.8 -			Tato funkce ale může být nebezpečná – pokud byste spustili generátor na stránkách,
     1.9 +			Díky skriptování můžeme stránky obohatit o prakticky libovolný obsah – 
    1.10 +			jak prostý text, tak i XHTML fragmenty.<m:podČarou>zapíná se pomocí atributu 
    1.11 +			<code>výstup="xml"</code> a generátor pak kontroluje správné formátování – 
    1.12 +			nestane se vám, že byste omylem vygenerovali stránky s překříženými nebo neuzavřenými značkami.</m:podČarou>
    1.13 +		</p>
    1.14 +		<p>
    1.15 +			Skriptování ale může být nebezpečné, pokud byste spustili generátor na stránkách,
    1.16  			které psal někdo nedůvěryhodný a vložil do nich škodlivý kód.
    1.17 +			Kromě toho, ukázková sada stránek by měla být přeložitelná kdekoli a mít minimum závislostí
    1.18 +			(ne každý musí mít nainstalovaný Perl nebo Python či další podporované interprety).
    1.19  			Proto je skriptování ve výchozím stavu vypnuté – je potřeba ho povolit v souboru <code>web.conf</code>.
    1.20  		</p>
    1.21  
    1.22 @@ -40,8 +47,9 @@
    1.23  				</tr>
    1.24  			</thead>
    1.25  			<tbody>
    1.26 -				<m:skript jazyk="perl"  výstup="xml"><![CDATA[
    1.27 +				<m:skript jazyk="perl" výstup="xml"><![CDATA[
    1.28  use strict;
    1.29 +use warnings;
    1.30  
    1.31  open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;
    1.32  
    1.33 @@ -62,6 +70,7 @@
    1.34  		-->
    1.35  		<pre><m:skript jazyk="perl"><![CDATA[
    1.36  use strict;
    1.37 +use warnings;
    1.38  
    1.39  open(XML, "<", $ENV{"XWG_STRANKA_SOUBOR"});
    1.40  my %skripty;
    1.41 @@ -109,18 +118,8 @@
    1.42  					</tr>
    1.43  				</thead>
    1.44  				<tbody>
    1.45 -					<m:skript jazyk="perl" výstup="xml"><![CDATA[
    1.46 -use strict;
    1.47 -
    1.48 -open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;
    1.49 -
    1.50 -while (<JAVA>) {
    1.51 -#i.put("bash", "/bin/bash");
    1.52 -	if (/"(.*)=".*\/\/\s+env:(.*)/) {
    1.53 -		print "<tr><td><code>$1</code></td><td>$2</td></tr>\n";
    1.54 -	}
    1.55 -}
    1.56 -					]]></m:skript>
    1.57 +					<!-- Pokud načítáme skript ze souboru, je atribut jazyk nepovinný. -->
    1.58 +					<m:skript jazyk="perl" výstup="xml" src="skriptování-proměnné.pl"/>
    1.59  				</tbody>
    1.60  			</table>
    1.61