<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>

	<pořadí>50</pořadí>

	<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 – 

			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.

				Výchozím jmenným prostorem je XHTML a je dostupný i jmenný prostor pro makra (<code>m</code>).

			</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>

		<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>

use strict;

use warnings;

open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;

while (<JAVA>) {

	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 – ukázka</h2>

		<p>Jazyky použité nebo citované na této stránce:</p>

		<!--

			Lepšího výsledku bychom samozřejmě dosáhli pomocí XPath dotazu,

			ale toto je příklad na Perl :-)

		-->

		<pre><m:skript jazyk="perl"><![CDATA[

use strict;

use warnings;

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 – ukázka</h2>

		<pre><m:skript jazyk="bash"><![CDATA[

echo -n "Právě je: ";

date;

echo -n "Operační systém: ";

uname -o;

echo -n "SHA-1 otisk zdrojáku této stránky: ";

sha1sum "$XWG_STRANKA_SOUBOR" | cut -f 1 -d " ";

			]]></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>

					<!-- Pokud načítáme skript ze souboru, je atribut jazyk nepovinný. -->

				</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>

		<h2>Makra ve skriptech</h2>

		<p>

			XML generované skriptem může také obsahovat makra, která se následně interptetují.

echo '<m:skript jazyk="bash">'; # Ty zrůdo! :-)

echo 'echo "Takže můžeš skriptovat, když skriptuješ,";';

echo '</m:skript>';

			]]></m:skript>

			nebo dělat něco užitečnějšího.

		</p>

use strict;

use warnings;

my $adresar = "vstup/makra";

print "<m:diagram nadpis='Uživatelská makra v adresáři $adresar'>\n";

print "	node		[shape=\"box\"];\n";

print "	koren	[label=\"Uživatelská makra\"];\n";

opendir(DIR, $adresar) or die $!;

my $i = 0;

while (readdir(DIR)) {

	next if (/^\./);

	# Měli bychom ošetřit zvláštní znaky v názvech souborů,

	# abychom nezpůsobili chybu GraphVizu.

	print "n$i	[label=\"$_\"];\n";

	print "koren -> n$i;\n";

	$i++;

}

print "</m:diagram>";

closedir(DIR);

		]]></m:skript>

		<p>…třeba vygenerovat tento diagram následujícím perlovským skriptem:</p>

		<m:pre jazyk="perl"><![CDATA[

use strict;

use warnings;

my $adresar = "vstup/makra";

print "<m:diagram nadpis='Uživatelská makra v adresáři $adresar'>\n";

print "	node	[shape=\"box\"];\n";

print "	koren	[label=\"Uživatelská makra\"];\n";

opendir(DIR, $adresar) or die $!;

my $i = 0;

while (readdir(DIR)) {

	next if (/^\./);

	# Měli bychom ošetřit zvláštní znaky v názvech souborů,

	# abychom nezpůsobili chybu GraphVizu.

	print "n$i	[label=\"$_\"];\n";

	print "koren -> n$i;\n";

	$i++;

}

print "</m:diagram>";

closedir(DIR);]]></m:pre>

		<p>

		</p>

		<p>

			Známá chyba: ve skriptech zatím nefungují poznámky pod čarou (a není jisté, jestli kdy fungovat budou – pravděpodobně by to vyžadovalo vícefázové zpracování).

		</p>

		<h2>Skripty v makrech</h2>

		<p>

			Uvnitř maker můžeme volat<m:podČarou>

				Ovšem trochu jiným způsobem, než ve stránkách –

				nacházíme se totiž v <em>programu</em> (XSL šablona definující makro)

				nikoli v <em>datovém souboru</em> (XML stránka).

			</m:podČarou>

			jiná makra – mj. skripty.

			Toho jsme využili v makru, které generuje tabulku verzí z mercurialu:

		</p>

		<m:hg-verze/>

		<p>

			Toto makro naleznete v souboru <code>vstup/makra/hg-verze.xsl</code>.

		</p>

	</text>

</stránka>