root/vstup/skriptování.xml @ 99:81056b24a948

<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.
                        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>
                <!--
                        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;

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>