<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 textu ostavce nebo do jiného elementu.
		</p>
		<p>
			Příklad:
			<em>
				Tyto stránky byly vygenerované v systému
				<span title="tento text pochází ze skriptu"><m:skript jazyk="bash">uname -o</m:skript></span>.
			</em>
		</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,
			které psal někdo nedůvěryhodný a vložil do nich škodlivý kód.
			Proto je skriptování ve výchozím stavu vypnuté – je potřeba ho povolit v souboru <code>web.conf</code>.
		</p>

		<h2>Podporované jazyky</h2>
		<p>
			V současnosti jsou podporované tyto jazyky:
		</p>
		
		<table>
			<thead>
				<tr>
					<td>Jazyk</td>
					<td>Interpret</td>
				</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 (/podporovanýJazyk\.put\("(\w+)",\s*"(.*)"\);/) {
		print "<tr><td><code>$1</code></td><td><code>$2</code></td></tr>\n";
	}
}
				]]></m:skript>
			</tbody>
		</table>

		<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>
			
			<table>
				<thead>
					<tr>
						<td>Proměnná</td>
						<td>Význam</td>
					</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>
				</tbody>
			</table>
			
			<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>