--- a/vstup/skriptování.xml Sat Jun 23 23:19:09 2012 +0200
+++ b/vstup/skriptování.xml Sun Jul 01 14:43:21 2012 +0200
@@ -21,9 +21,16 @@
</p>
<p>
- Díky skriptování můžeme stránky obohatit o prakticky libovolný obsah.
- Tato funkce ale může být nebezpečná – pokud byste spustili generátor na stránkách,
+ Díky skriptování můžeme stránky obohatit o prakticky libovolný obsah –
+ jak prostý text, tak i XHTML fragmenty.<m:podČarou>zapíná se pomocí atributu
+ <code>výstup="xml"</code> a generátor pak kontroluje správné formátování –
+ nestane se vám, že byste omylem vygenerovali stránky s překříženými nebo neuzavřenými značkami.</m:podČarou>
+ </p>
+ <p>
+ Skriptování ale může být nebezpečné, pokud byste spustili generátor na stránkách,
které psal někdo nedůvěryhodný a vložil do nich škodlivý kód.
+ Kromě toho, ukázková sada stránek by měla být přeložitelná kdekoli a mít minimum závislostí
+ (ne každý musí mít nainstalovaný Perl nebo Python či další podporované interprety).
Proto je skriptování ve výchozím stavu vypnuté – je potřeba ho povolit v souboru <code>web.conf</code>.
</p>
@@ -40,8 +47,9 @@
</tr>
</thead>
<tbody>
- <m:skript jazyk="perl" výstup="xml"><![CDATA[
+ <m:skript jazyk="perl" výstup="xml"><![CDATA[
use strict;
+use warnings;
open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;
@@ -62,6 +70,7 @@
-->
<pre><m:skript jazyk="perl"><![CDATA[
use strict;
+use warnings;
open(XML, "<", $ENV{"XWG_STRANKA_SOUBOR"});
my %skripty;
@@ -109,18 +118,8 @@
</tr>
</thead>
<tbody>
- <m:skript jazyk="perl" výstup="xml"><![CDATA[
-use strict;
-
-open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;
-
-while (<JAVA>) {
-#i.put("bash", "/bin/bash");
- if (/"(.*)=".*\/\/\s+env:(.*)/) {
- print "<tr><td><code>$1</code></td><td>$2</td></tr>\n";
- }
-}
- ]]></m:skript>
+ <!-- Pokud načítáme skript ze souboru, je atribut jazyk nepovinný. -->
+ <m:skript jazyk="perl" výstup="xml" src="skriptování-proměnné.pl"/>
</tbody>
</table>