root/vstup/skriptování.xml @ 95:eea9c4713045

Revision 95:eea9c4713045, 3.4 KB (checked in by František Kučera <franta-hg@…>, 13 years ago)

#20 Skriptování: podpora výstupu ve formátu XML (musí být validní)

Line 
1<stránka
2        xmlns="https://trac.frantovo.cz/xml-web-generator/wiki/xmlns/strana"
3        xmlns:m="https://trac.frantovo.cz/xml-web-generator/wiki/xmlns/makro">
4        <nadpis>Skriptování</nadpis>
5        <perex>Na stránku můžeme vložit výstup skriptů.</perex>
6
7        <text xmlns="http://www.w3.org/1999/xhtml">
8       
9                <p>
10                        Na stránkách můžeme používat skripty.
11                        Spouští se při generování a jejich standardní výstup se vloží do stránky.
12                        Třeba doprostřed textu ostavce nebo do jiného elementu.
13                </p>
14                <p>
15                        Příklad:
16                        <em>
17                                Tyto stránky byly vygenerované v systému
18                                <span title="tento text pochází ze skriptu"><m:skript jazyk="bash">uname -o</m:skript></span>.
19                        </em>
20                </p>
21
22                <p>
23                        Díky skriptování můžeme stránky obohatit o prakticky libovolný obsah.
24                        Tato funkce ale může být nebezpečná – pokud byste spustili generátor na stránkách,
25                        které psal někdo nedůvěryhodný a vložil do nich škodlivý kód.
26                        Proto je skriptování ve výchozím stavu vypnuté – je potřeba ho povolit v souboru <code>web.conf</code>.
27                </p>
28
29                <h2>Podporované jazyky</h2>
30                <p>
31                        V současnosti jsou podporované tyto jazyky:
32                </p>
33               
34                <table>
35                        <thead>
36                                <tr>
37                                        <td>Jazyk</td>
38                                        <td>Interpret</td>
39                                </tr>
40                        </thead>
41                        <tbody>
42                                <m:skript jazyk="perl"  stup="xml"><![CDATA[
43use strict;
44
45open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;
46
47while (<JAVA>) {
48#i.put("bash", "/bin/bash");
49        if (/podporovanýJazyk\.put\("(\w+)",\s*"(.*)"\);/) {
50                print "<tr><td><code>$1</code></td><td><code>$2</code></td></tr>\n";
51        }
52}
53                                ]]></m:skript>
54                        </tbody>
55                </table>
56
57                <h2>Perl</h2>
58                <p>Jazyky použité nebo citované na této stránce:</p>
59                <pre><m:skript jazyk="perl"><![CDATA[
60use strict;
61
62open(XML, "<", $ENV{"XWG_STRANKA_SOUBOR"});
63my %skripty;
64
65while (<XML>) {
66        if (/m:skript\s+jazyk="(\w+)"/) {
67                $skripty{$1}++;
68        }
69}
70
71for(keys(%skripty)) {
72        print "$skripty{$_}×\t $_\n";
73}
74                        ]]></m:skript></pre>
75
76                        <h2>BASH</h2>
77                <pre><m:skript jazyk="bash"><![CDATA[
78echo -n "Právě je: ";
79date;
80echo -n "Operační systém: ";
81uname -sir;
82echo -n "SHA-1 otisk zdrojáku této stránky: ";
83sha1sum < $XWG_STRANKA_SOUBOR;
84                        ]]></m:skript></pre>
85
86                        <!--
87                        <h2>PHP</h2>
88                        <pre style="max-height: 200px;"><m:skript jazyk="php"><![CDATA[
89<?php
90phpinfo();
91?>
92                        ]]></m:skript></pre>
93                        -->
94
95                        <h2>Proměnné prostředí</h2>
96                        <p>
97                                Ve skriptech máme dostupné následující proměnné prostředí:
98                        </p>
99                       
100                        <table>
101                                <thead>
102                                        <tr>
103                                                <td>Proměnná</td>
104                                                <td>Význam</td>
105                                        </tr>
106                                </thead>
107                                <tbody>
108                                        <m:skript jazyk="perl" stup="xml"><![CDATA[
109use strict;
110
111open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;
112
113while (<JAVA>) {
114#i.put("bash", "/bin/bash");
115        if (/"(.*)=".*\/\/\s+env:(.*)/) {
116                print "<tr><td><code>$1</code></td><td>$2</td></tr>\n";
117        }
118}
119                                        ]]></m:skript>
120                                </tbody>
121                        </table>
122                       
123                        <p>
124                                Kód:
125                        </p>
126                       
127                        <m:pre jazyk="xml"><![CDATA[<m:skript jazyk="bash">
128echo "URI:    $XWG_STRANKA_URI";
129echo "Soubor: $XWG_STRANKA_SOUBOR";
130echo "Nadpis: $XWG_STRANKA_NADPIS";
131echo "Perex:  $XWG_STRANKA_PEREX";
132</m:skript>]]></m:pre>
133                       
134                        <p>nám vypíše:</p>
135                       
136                        <pre><m:skript jazyk="bash"><![CDATA[
137echo "URI:    $XWG_STRANKA_URI" | sed s/\\/home\\/$USER/\\/home\\/xwg/g;
138echo "Soubor: $XWG_STRANKA_SOUBOR" | sed s/\\/home\\/$USER/\\/home\\/xwg/g;
139echo "Nadpis: $XWG_STRANKA_NADPIS";
140echo "Perex:  $XWG_STRANKA_PEREX";
141                ]]></m:skript></pre>
142
143        </text>
144
145</stránka>
146
Note: See TracBrowser for help on using the browser.