<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="xhtml"</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>
<m:skript jazyk="perl" výstup="xhtml"><![CDATA[
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>
<h3>Perl – ukázka</h3>
<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>
<h3>BASH – ukázka</h3>
<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ý. -->
<m:skript jazyk="perl" výstup="xhtml" src="skriptování-proměnné.pl"/>
</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í.
<m:skript jazyk="bash" výstup="xhtml"><![CDATA[
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>
<m:skript jazyk="perl" výstup="xhtml"><![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: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>
Který vložíme zabalený v <code><![CDATA[<m:skript jazyk="perl" výstup="xhtml"> … </m:skript>]]></code> do stránky.
</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>