<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>

 	<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 ostavce nebo do jiného elementu.

 		</p>

 		<p>

 			Příklad:

 			Tyto stránky byly vygenerované v systému <m:skript jazyk="bash">uname -o</m:skript>.

 		</p>

 		<p>

 			V současnosti jsou podporované tyto jazyky:

 		</p>

 		<pre><m:skript jazyk="perl"><![CDATA[

 use strict;

 open(JAVA, "<", "šablona/funkce/src/cz/frantovo/xmlWebGenerator/makra/Skriptování.java") or die $!;

 while (<JAVA>) {

 #i.put("bash", "/bin/bash");

 	if (/podporovanýJazyk\.put\("(\w+)",\s*"(.*)"\);/) {

 		print "$1\n";

 	}

 }

 			]]></m:skript></pre>

 		<h2>Perl</h2>

 		<p>Jazyky použité nebo citované na této stránce:</p>

 		<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>

 			<ul>

 				<li><code>XWG_STRANKA_URI</code> – URI aktuálně zpracovávané stránky</li>

 				<li><code>XWG_STRANKA_SOUBOR</code> – absolutní cesta k souboru</li>

 				<li><code>XWG_STRANKA_NADPIS</code> – nadpis stránky</li>

 				<li><code>XWG_STRANKA_PEREX</code> – perex stránky</li>

 			</ul>

 			<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>