Changeset 103:aa91d1c6d4c1 for vstup/skriptování.xml

Timestamp:

07/01/12 14:43:21 (12 years ago)

Author:

František Kučera <franta-hg@…>

Branch:

default

Message:

#20 Skriptování: možnost spouštět skripty ze souborů (atribut: src).

Files:

• vstup/skriptování.xml (modified) (4 diffs)

vstup/skriptování.xml

@@ -22 +22 @@
 
                 <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>
@@ -41 +48 @@
                         </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 $!;
@@ -63 +71 @@
                 <pre><m:skript jazyk="perl"><![CDATA[
 use strict;
+use warnings;
 
 open(XML, "<", $ENV{"XWG_STRANKA_SOUBOR"});
@@ -110 +119 @@
                                 </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>