# HG changeset patch
# User František Kučera <franta-hg@frantovo.cz>
# Date 1341146601 -7200
# Node ID aa91d1c6d4c10250d4d5bc1afca162661546ab35
# Parent  ca045963fced26d434465a91c59f29e5e754fcac
#20 Skriptování: možnost spouštět skripty ze souborů (atribut: src).

diff -r ca045963fced -r aa91d1c6d4c1 vstup/skriptování-proměnné.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/vstup/skriptování-proměnné.pl	Sun Jul 01 14:43:21 2012 +0200
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+# Projde zdroják v javě a najde v něm,
+# jaké proměnné prostředí se nastavují pro běh skriptů
+
+use strict;
+use warnings;
+
+open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;
+
+while (<JAVA>) {
+	if (/"(.*)=".*\/\/\s+env:(.*)/) {
+		print "<tr><td><code>$1</code></td><td>$2</td></tr>\n";
+	}
+}
+
diff -r ca045963fced -r aa91d1c6d4c1 vstup/skriptování.xml
--- 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>
 			
diff -r ca045963fced -r aa91d1c6d4c1 šablona/funkce/src/cz/frantovo/xmlWebGenerator/makra/Skriptování.java
--- a/šablona/funkce/src/cz/frantovo/xmlWebGenerator/makra/Skriptování.java	Sat Jun 23 23:19:09 2012 +0200
+++ b/šablona/funkce/src/cz/frantovo/xmlWebGenerator/makra/Skriptování.java	Sun Jul 01 14:43:21 2012 +0200
@@ -55,7 +55,8 @@
 	 * TODO: podporovat i složitější scénáře (např. kompilaci),
 	 * než jen vložení do souboru a přidání správného záhlaví.
 	 *
-	 * @param skript program k vykonání
+	 * @param skriptText skript k vykonání
+	 * @param skriptSoubor cesta k souboru se skriptem/programem
 	 * @param jazyk programovací jazyk
 	 * @param výstupníFormát text (výchozí) | xml (v tom případě kontrolujeme validitu)
 	 * @param uriStránky URI aktuálně generované stránky → proměnná prostředí
@@ -63,66 +64,91 @@
 	 * @param perexStránky perex stránky → proměnná prostředí
 	 * @return výstup příkazu
 	 */
-	public static String interpretuj(String skript, String jazyk, String výstupníFormát, String uriStránky, String nadpisStránky, String perexStránky) {
+	public static String interpretuj(String skriptText, String skriptSoubor, String jazyk, String výstupníFormát, String uriStránky, String nadpisStránky, String perexStránky) {
 		try {
-			System.err.println("\tInterpretuji skript v jazyce: " + jazyk);
-			String interpret = interpreti.get(jazyk);
-			if (interpret == null) {
-				System.err.println("Neznámý skriptovací jazyk: " + jazyk);
-				return null;
+			if (isNeprázdný(skriptSoubor)) {
+				System.err.println("\tInterpretuji skript ze souboru: " + skriptSoubor);
 			} else {
-				File f = File.createTempFile("xml-web-generátor-", ".skript");
+				System.err.println("\tInterpretuji skript v jazyce:   " + jazyk);
+			}
+
+			File souborStránky = new File(new URI(uriStránky));
+			File f;
+
+			if (isNeprázdný(skriptText)) {
+				/** Skript je zadán uvnitř elementu přímo ve stránce */
+				String interpret = interpreti.get(jazyk);
+				if (interpret == null) {
+					throw new Exception("Neznámý skriptovací jazyk: " + jazyk);
+				}
+
+				f = File.createTempFile("xml-web-generátor-", ".skript");
 				f.deleteOnExit();
+				f.setExecutable(true);
 
 				PrintStream ps = new PrintStream(f);
 				ps.print("#!");
 				ps.println(interpret);
 				ps.println();
-				ps.print(skript);
+				ps.print(skriptText);
 				ps.close();
+			} else if (isNeprázdný(skriptSoubor)) {
+				/** Skript/program je uložen v externím souboru */
+				if (skriptSoubor.startsWith(File.separator)) {
+					/** absolutní cesta */
+					f = new File(skriptSoubor);
+				} else {
+					/** relativní cesta */
+					f = new File(souborStránky.getParent(), File.separatorChar + skriptSoubor);
+				}
 
+				if (!f.canExecute()) {
+					throw new Exception("Soubor se skriptem není spustitelný → nastavte: chmod +x " + f);
+				}
+			} else {
+				throw new Exception("Musí být vyplněn text skriptu, nebo cesta k souboru.");
+			}
 
-				String[] prostředí = new String[]{
-					"LANG=" + System.getenv("LANG"),
-					"USER=" + System.getenv("USER"),
-					"XWG_SKRIPTOVANI_JAVA=" + "šablona" + File.separator + "funkce" + File.separator + "src" + File.separator + Skriptování.class.getName().replaceAll("\\.", File.separator) + ".java",
-					"XWG_STRANKA_URI=" + uriStránky, // env:URI aktuálně zpracovávané stránky
-					"XWG_STRANKA_SOUBOR=" + (new File(new URI(uriStránky)).getAbsolutePath()), // env:absolutní cesta k souboru
-					"XWG_STRANKA_NADPIS=" + nadpisStránky, // env:nadpis stránky
-					"XWG_STRANKA_PEREX=" + perexStránky // env:perex stránky
-				};
 
-				f.setExecutable(true);
-				Runtime r = Runtime.getRuntime();
-				Process p = r.exec(new String[]{f.getAbsolutePath()}, prostředí);
+			String[] prostředí = new String[]{
+				"LANG=" + System.getenv("LANG"),
+				"USER=" + System.getenv("USER"),
+				"XWG_SKRIPTOVANI_JAVA=" + "šablona" + File.separator + "funkce" + File.separator + "src" + File.separator + Skriptování.class.getName().replaceAll("\\.", File.separator) + ".java",
+				"XWG_STRANKA_URI=" + uriStránky, // env:URI aktuálně zpracovávané stránky
+				"XWG_STRANKA_SOUBOR=" + souborStránky.getAbsolutePath(), // env:absolutní cesta k souboru
+				"XWG_STRANKA_NADPIS=" + nadpisStránky, // env:nadpis stránky
+				"XWG_STRANKA_PEREX=" + perexStránky // env:perex stránky
+			};
 
-				String výsledek = načtiProud(p.getInputStream());
-				String chyby = načtiProud(p.getErrorStream());
+			Runtime r = Runtime.getRuntime();
+			Process p = r.exec(new String[]{f.getAbsolutePath()}, prostředí);
 
-				p.waitFor();
+			String výsledek = načtiProud(p.getInputStream());
+			String chyby = načtiProud(p.getErrorStream());
 
-				if (p.exitValue() == 0) {
-					if (chyby.length() > 0) {
-						System.err.println("--- Chybový výstup skriptu -----");
-						System.err.println(chyby);
-						System.err.println("--------------------------------");
-						System.err.println("Nicméně skript skončil úspěšně, takže pokračujeme dál.");
-					}
+			p.waitFor();
 
-					return připravVýstup(výsledek, výstupníFormát);
-				} else {
-					System.err.println("--- Standardní výstup skriptu: -----");
-					System.err.println(výsledek);
-					System.err.println("--- Cyhbový výstup skriptu: ---------");
+			if (p.exitValue() == 0) {
+				if (chyby.length() > 0) {
+					System.err.println("--- Chybový výstup skriptu -----");
 					System.err.println(chyby);
-					System.err.println("--------------------------------------");
-					throw new RuntimeException("Návratová hodnota: " + p.exitValue());
+					System.err.println("--------------------------------");
+					System.err.println("Nicméně skript skončil úspěšně, takže pokračujeme dál.");
 				}
+
+				return připravVýstup(výsledek, výstupníFormát);
+			} else {
+				System.err.println("--- Standardní výstup skriptu: -----");
+				System.err.println(výsledek);
+				System.err.println("--- Cyhbový výstup skriptu: ---------");
+				System.err.println(chyby);
+				System.err.println("--------------------------------------");
+				throw new Exception("Návratová hodnota: " + p.exitValue());
 			}
 		} catch (Exception e) {
 			System.err.println("Došlo k chybě při vykonávání skriptu v jazyce: " + jazyk);
 			System.err.println("--------");
-			System.err.println(skript);
+			System.err.println(skriptText);
 			System.err.println("--------");
 			e.printStackTrace(System.err);
 			return null;
@@ -143,6 +169,10 @@
 		}
 	}
 
+	private static boolean isNeprázdný(String s) {
+		return !(s == null || s.trim().isEmpty());
+	}
+
 	/**
 	 * @param xml fragment XML vygenerovaný skriptem
 	 * @return true v případě, že výstup je validním fragmentem XML
diff -r ca045963fced -r aa91d1c6d4c1 šablona/makra/skriptování.xsl
--- a/šablona/makra/skriptování.xsl	Sat Jun 23 23:19:09 2012 +0200
+++ b/šablona/makra/skriptování.xsl	Sun Jul 01 14:43:21 2012 +0200
@@ -28,10 +28,11 @@
 	<!--
 		Skriptování
 		***********
-		Provedeme skript zadaný v těle elementu a jeho výstup vložíme do stránky.
+		Provedeme skript zadaný v těle elementu nebo v souboru a jeho výstup vložíme do stránky.
 		*
-		@jazyk programovací jazyk, např. bash, perl, php
+		@jazyk programovací jazyk, např. bash, perl, php (nepovinné, pokud je vyplněn atribut src)
 		@výstup formát výstupu skriptu: text (výchozí) | xml (musí být validním fragmentem XML)
+		@src soubor se skriptem/programem (volitelný parametr – buď zadáme skript do těla elementu, nebo nastavíme tento atribut)
 	-->
 	<xsl:template match="m:skript">
 		
@@ -41,6 +42,7 @@
 			<xsl:when test="$režim = 'povolit'">
 				<xsl:variable name="výstupSkriptu" select="j:interpretuj(
 																	text(),
+																	@src,
 																	@jazyk,
 																	@výstup,
 																	document-uri(/),