--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/vstup/skriptování.xml	Sat Jun 23 18:00:41 2012 +0200
@@ -0,0 +1,109 @@
+<stránka
+	xmlns="https://trac.frantovo.cz/xml-web-generator/wiki/xmlns/strana"
+	xmlns:m="https://trac.frantovo.cz/xml-web-generator/wiki/xmlns/makro">
+	<nadpis>Skriptování</nadpis>
+	<perex>Na stránku můžeme vložit výstup skriptů.</perex>
+
+	<text xmlns="http://www.w3.org/1999/xhtml">
+	
+		<p>
+			Na stránkách můžeme používat skripty.
+			Spouští se při generování a jejich standardní výstup se vloží do stránky.
+			Třeba doprostřed ostavce nebo do jiného elementu.
+		</p>
+		<p>
+			Příklad:
+			Tyto stránky byly vygenerované v systému <m:skript jazyk="bash">uname -o</m:skript>.
+		</p>
+		
+		<p>
+			V současnosti jsou podporované tyto jazyky:
+		</p>
+		
+		<pre><m:skript jazyk="perl"><![CDATA[
+use strict;
+
+open(JAVA, "<", "šablona/funkce/src/cz/frantovo/xmlWebGenerator/makra/Skriptování.java") or die $!;
+
+while (<JAVA>) {
+#i.put("bash", "/bin/bash");
+	if (/podporovanýJazyk\.put\("(\w+)",\s*"(.*)"\);/) {
+		print "$1\n";
+	}
+}
+			]]></m:skript></pre>
+
+		<h2>Perl</h2>
+		<p>Jazyky použité nebo citované na této stránce:</p>
+		<pre><m:skript jazyk="perl"><![CDATA[
+use strict;
+
+open(XML, "<", $ENV{"XWG_STRANKA_SOUBOR"});
+my %skripty;
+
+while (<XML>) {
+	if (/m:skript\s+jazyk="(\w+)"/) {
+		$skripty{$1}++;
+	}
+}
+
+for(keys(%skripty)) {
+	print "$skripty{$_}×\t $_\n";
+}
+			]]></m:skript></pre>
+
+			<h2>BASH</h2>
+		<pre><m:skript jazyk="bash"><![CDATA[
+echo -n "Právě je: ";
+date;
+echo -n "Operační systém: ";
+uname -sir;
+echo -n "SHA-1 otisk zdrojáku této stránky: ";
+sha1sum < $XWG_STRANKA_SOUBOR;
+			]]></m:skript></pre>
+
+			<!--
+			<h2>PHP</h2>
+			<pre style="max-height: 200px;"><m:skript jazyk="php"><![CDATA[
+<?php
+phpinfo();
+?>
+			]]></m:skript></pre>
+			-->
+
+			<h2>Proměnné prostředí</h2>
+			<p>
+				Ve skriptech máme dostupné následující proměnné prostředí:
+			</p>
+			
+			<ul>
+				<li><code>XWG_STRANKA_URI</code> – URI aktuálně zpracovávané stránky</li>
+				<li><code>XWG_STRANKA_SOUBOR</code> – absolutní cesta k souboru</li>
+				<li><code>XWG_STRANKA_NADPIS</code> – nadpis stránky</li>
+				<li><code>XWG_STRANKA_PEREX</code> – perex stránky</li>
+			</ul>
+			
+			<p>
+				Kód:
+			</p>
+			
+			<m:pre jazyk="xml"><![CDATA[<m:skript jazyk="bash">
+echo "URI:    $XWG_STRANKA_URI";
+echo "Soubor: $XWG_STRANKA_SOUBOR";
+echo "Nadpis: $XWG_STRANKA_NADPIS";
+echo "Perex:  $XWG_STRANKA_PEREX";
+</m:skript>]]></m:pre>
+			
+			<p>nám vypíše:</p>
+			
+			<pre><m:skript jazyk="bash"><![CDATA[
+echo "URI:    $XWG_STRANKA_URI" | sed s/\\/home\\/$USER/\\/home\\/xwg/g;
+echo "Soubor: $XWG_STRANKA_SOUBOR" | sed s/\\/home\\/$USER/\\/home\\/xwg/g;
+echo "Nadpis: $XWG_STRANKA_NADPIS";
+echo "Perex:  $XWG_STRANKA_PEREX";
+		]]></m:skript></pre>
+
+	</text>
+
+</stránka>
+