franta-hg@94: <stránka
franta-hg@94: 	xmlns="https://trac.frantovo.cz/xml-web-generator/wiki/xmlns/strana"
franta-hg@94: 	xmlns:m="https://trac.frantovo.cz/xml-web-generator/wiki/xmlns/makro">
franta-hg@94: 	<nadpis>Skriptování</nadpis>
franta-hg@94: 	<perex>Na stránku můžeme vložit výstup skriptů.</perex>
franta-hg@97: 	<pořadí>50</pořadí>
franta-hg@94: 
franta-hg@94: 	<text xmlns="http://www.w3.org/1999/xhtml">
franta-hg@94: 	
franta-hg@94: 		<p>
franta-hg@94: 			Na stránkách můžeme používat skripty.
franta-hg@95: 			Spouští se při generování a jejich standardní výstup se vloží do stránky.
franta-hg@95: 			Třeba doprostřed textu ostavce nebo do jiného elementu.
franta-hg@94: 		</p>
franta-hg@94: 		<p>
franta-hg@94: 			Příklad:
franta-hg@95: 			<em>
franta-hg@95: 				Tyto stránky byly vygenerované v systému
franta-hg@95: 				<span title="tento text pochází ze skriptu"><m:skript jazyk="bash">uname -o</m:skript></span>.
franta-hg@95: 			</em>
franta-hg@95: 		</p>
franta-hg@95: 
franta-hg@95: 		<p>
franta-hg@95: 			Díky skriptování můžeme stránky obohatit o prakticky libovolný obsah.
franta-hg@95: 			Tato funkce ale může být nebezpečná – pokud byste spustili generátor na stránkách,
franta-hg@95: 			které psal někdo nedůvěryhodný a vložil do nich škodlivý kód.
franta-hg@95: 			Proto je skriptování ve výchozím stavu vypnuté – je potřeba ho povolit v souboru <code>web.conf</code>.
franta-hg@95: 		</p>
franta-hg@95: 
franta-hg@95: 		<h2>Podporované jazyky</h2>
franta-hg@95: 		<p>
franta-hg@95: 			V současnosti jsou podporované tyto jazyky:
franta-hg@94: 		</p>
franta-hg@94: 		
franta-hg@95: 		<table>
franta-hg@95: 			<thead>
franta-hg@95: 				<tr>
franta-hg@95: 					<td>Jazyk</td>
franta-hg@95: 					<td>Interpret</td>
franta-hg@95: 				</tr>
franta-hg@95: 			</thead>
franta-hg@95: 			<tbody>
franta-hg@95: 				<m:skript jazyk="perl"  výstup="xml"><![CDATA[
franta-hg@94: use strict;
franta-hg@94: 
franta-hg@95: open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;
franta-hg@94: 
franta-hg@94: while (<JAVA>) {
franta-hg@94: 	if (/podporovanýJazyk\.put\("(\w+)",\s*"(.*)"\);/) {
franta-hg@95: 		print "<tr><td><code>$1</code></td><td><code>$2</code></td></tr>\n";
franta-hg@94: 	}
franta-hg@94: }
franta-hg@95: 				]]></m:skript>
franta-hg@95: 			</tbody>
franta-hg@95: 		</table>
franta-hg@94: 
franta-hg@94: 		<h2>Perl</h2>
franta-hg@94: 		<p>Jazyky použité nebo citované na této stránce:</p>
franta-hg@99: 		<!--
franta-hg@99: 			Lepšího výsledku bychom samozřejmě dosáhli pomocí XPath dotazu,
franta-hg@99: 			ale toto je příklad na Perl :-)
franta-hg@99: 		-->
franta-hg@94: 		<pre><m:skript jazyk="perl"><![CDATA[
franta-hg@94: use strict;
franta-hg@94: 
franta-hg@94: open(XML, "<", $ENV{"XWG_STRANKA_SOUBOR"});
franta-hg@94: my %skripty;
franta-hg@94: 
franta-hg@94: while (<XML>) {
franta-hg@94: 	if (/m:skript\s+jazyk="(\w+)"/) {
franta-hg@94: 		$skripty{$1}++;
franta-hg@94: 	}
franta-hg@94: }
franta-hg@94: 
franta-hg@94: for(keys(%skripty)) {
franta-hg@94: 	print "$skripty{$_}×\t $_\n";
franta-hg@94: }
franta-hg@94: 			]]></m:skript></pre>
franta-hg@94: 
franta-hg@94: 			<h2>BASH</h2>
franta-hg@94: 		<pre><m:skript jazyk="bash"><![CDATA[
franta-hg@94: echo -n "Právě je: ";
franta-hg@94: date;
franta-hg@94: echo -n "Operační systém: ";
franta-hg@94: uname -sir;
franta-hg@94: echo -n "SHA-1 otisk zdrojáku této stránky: ";
franta-hg@100: sha1sum "$XWG_STRANKA_SOUBOR" | cut -f 1 -d " ";
franta-hg@94: 			]]></m:skript></pre>
franta-hg@94: 
franta-hg@94: 			<!--
franta-hg@94: 			<h2>PHP</h2>
franta-hg@94: 			<pre style="max-height: 200px;"><m:skript jazyk="php"><![CDATA[
franta-hg@94: <?php
franta-hg@94: phpinfo();
franta-hg@94: ?>
franta-hg@94: 			]]></m:skript></pre>
franta-hg@94: 			-->
franta-hg@94: 
franta-hg@94: 			<h2>Proměnné prostředí</h2>
franta-hg@94: 			<p>
franta-hg@94: 				Ve skriptech máme dostupné následující proměnné prostředí:
franta-hg@94: 			</p>
franta-hg@94: 			
franta-hg@95: 			<table>
franta-hg@95: 				<thead>
franta-hg@95: 					<tr>
franta-hg@95: 						<td>Proměnná</td>
franta-hg@95: 						<td>Význam</td>
franta-hg@95: 					</tr>
franta-hg@95: 				</thead>
franta-hg@95: 				<tbody>
franta-hg@95: 					<m:skript jazyk="perl" výstup="xml"><![CDATA[
franta-hg@95: use strict;
franta-hg@95: 
franta-hg@95: open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;
franta-hg@95: 
franta-hg@95: while (<JAVA>) {
franta-hg@95: #i.put("bash", "/bin/bash");
franta-hg@95: 	if (/"(.*)=".*\/\/\s+env:(.*)/) {
franta-hg@95: 		print "<tr><td><code>$1</code></td><td>$2</td></tr>\n";
franta-hg@95: 	}
franta-hg@95: }
franta-hg@95: 					]]></m:skript>
franta-hg@95: 				</tbody>
franta-hg@95: 			</table>
franta-hg@94: 			
franta-hg@94: 			<p>
franta-hg@94: 				Kód:
franta-hg@94: 			</p>
franta-hg@94: 			
franta-hg@94: 			<m:pre jazyk="xml"><![CDATA[<m:skript jazyk="bash">
franta-hg@94: echo "URI:    $XWG_STRANKA_URI";
franta-hg@94: echo "Soubor: $XWG_STRANKA_SOUBOR";
franta-hg@94: echo "Nadpis: $XWG_STRANKA_NADPIS";
franta-hg@94: echo "Perex:  $XWG_STRANKA_PEREX";
franta-hg@94: </m:skript>]]></m:pre>
franta-hg@94: 			
franta-hg@94: 			<p>nám vypíše:</p>
franta-hg@94: 			
franta-hg@94: 			<pre><m:skript jazyk="bash"><![CDATA[
franta-hg@94: echo "URI:    $XWG_STRANKA_URI" | sed s/\\/home\\/$USER/\\/home\\/xwg/g;
franta-hg@94: echo "Soubor: $XWG_STRANKA_SOUBOR" | sed s/\\/home\\/$USER/\\/home\\/xwg/g;
franta-hg@94: echo "Nadpis: $XWG_STRANKA_NADPIS";
franta-hg@94: echo "Perex:  $XWG_STRANKA_PEREX";
franta-hg@94: 		]]></m:skript></pre>
franta-hg@94: 
franta-hg@94: 	</text>
franta-hg@94: 
franta-hg@94: </stránka>
franta-hg@94: