root/vstup/skriptování.xml @ 112:7d4b23ccf144

<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"}) or die $!;
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 id="makraVeSkriptech">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
                        – ten umí vypsat historii úložiště v XML, které následně snadno zpracujeme v XSLT.
                </p>

                <m:hg-verze/>

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

                <h2>Vnořování maker</h2>
                <p>
                        Trochu jiný případ je vnořování maker na stránce.
                        Např. si chceme vypsat vybrané internetové služby:
                </p>
                <m:tabulka>
                        <m:skript jazyk="perl"><![CDATA[
use strict;
use warnings;

print "Port\tSlužba\tProtokol\n";
open(S, "<", "/etc/services") or die $!;
while (<S>) {
        if (/(\w+)\s+(21|22|25|80)\/(tcp)/) {
                print "$2\t$1\t$3\n";
        }
}
                        ]]></m:skript>
                </m:tabulka>
                
                <p>
                        Pro vygenerování použijeme dvě makra – tabulku a skript – která vložíme do textu stránky:
                </p>
                
                <m:pre jazyk="xml"><![CDATA[
<m:tabulka>
        <m:skript jazyk="perl"><![CDATA[
                print "Port\tSlužba\tProtokol\n";
                open(S, "<", "/etc/services") or die $!;
                while (<S>) {
                        if (/(\w+)\s+(21|22|25|80)\/(tcp)/) {
                                print "$2\t$1\t$3\n";
                        }
                }
        ]]]]>&gt;<![CDATA[</m:skript>
</m:tabulka>]]></m:pre>

                <p>
                        Ve skriptu v tomto případě negenerujeme XHTML značky, ale CSV (s tabulátory)
                        a o převod na XHTML tabulku se postará XSL šablona.
                </p>

                <!--
                        Nebo to taky můžeme napsat na jeden řádek:
                        cat /etc/services | perl -ne 'if (/(\w+)\s+(21|22|25|80)\/(tcp)/) { print "$2\t$1\t$3\n";}'
                        a vložit do tabulky jako BASH skript :-)
                -->

                <p>
                        Podobně bychom mohli postupovat i u <a href="#makraVeSkriptech">diagramu</a> –
                        negenerovat skriptem značky makra, ale pouze jeho obsah – zadání diagramu, nebo jen jeho část.
                        Někdy se ale může hodit ve skriptu nastavovat atributy elementů nebo elementy vytvářet dynamicky.
                </p>

                <p>
                        Skriptování lze použít i pro generování zdrojového kódu, který bude následně zvýrazněn
                        pomocí značky <code>&lt;m:pre jazyk="…"/&gt;</code>.
                        Toho využíváme na stránce <m:a href="zdrojáky">Zdrojové kódy</m:a> v případě SQL a XML ukázek.
                        Skript můžeme použít mj. i ke zkrácení zdrojáku – když chceme vypsat jen jeho relevantní část.
                </p>

        </text>

</stránka>