vstup/skriptování.xml
author František Kučera <franta-hg@frantovo.cz>
Sun, 01 Jul 2012 19:19:04 +0200
changeset 105 f2e79d6b0ad3
parent 103 aa91d1c6d4c1
child 107 379a2a893fd1
permissions -rw-r--r--
#20 Skriptování: nedělitelné mezery
     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 	<pořadí>50</pořadí>
     7 
     8 	<text xmlns="http://www.w3.org/1999/xhtml">
     9 	
    10 		<p>
    11 			Na stránkách můžeme používat skripty.
    12 			Spouští se při generování a jejich standardní výstup se vloží do stránky.
    13 			Třeba doprostřed textu ostavce nebo do jiného elementu.
    14 		</p>
    15 		<p>
    16 			Příklad:
    17 			<em>
    18 				Tyto stránky byly vygenerované v systému
    19 				<span title="tento text pochází ze skriptu"><m:skript jazyk="bash">uname -o</m:skript></span>.
    20 			</em>
    21 		</p>
    22 
    23 		<p>
    24 			Díky skriptování můžeme stránky obohatit o prakticky libovolný obsah – 
    25 			jak prostý text, tak i XHTML fragmenty.<m:podČarou>zapíná se pomocí atributu 
    26 			<code>výstup="xml"</code> a generátor pak kontroluje správné formátování – 
    27 			nestane se vám, že byste omylem vygenerovali stránky s překříženými nebo neuzavřenými značkami.</m:podČarou>
    28 		</p>
    29 		<p>
    30 			Skriptování ale může být nebezpečné, pokud byste spustili generátor na stránkách,
    31 			které psal někdo nedůvěryhodný a vložil do nich škodlivý kód.
    32 			Kromě toho, ukázková sada stránek by měla být přeložitelná kdekoli a mít minimum závislostí
    33 			(ne každý musí mít nainstalovaný Perl nebo Python či další podporované interprety).
    34 			Proto je skriptování ve výchozím stavu vypnuté – je potřeba ho povolit v souboru <code>web.conf</code>.
    35 		</p>
    36 
    37 		<h2>Podporované jazyky</h2>
    38 		<p>
    39 			V současnosti jsou podporované tyto jazyky:
    40 		</p>
    41 		
    42 		<table>
    43 			<thead>
    44 				<tr>
    45 					<td>Jazyk</td>
    46 					<td>Interpret</td>
    47 				</tr>
    48 			</thead>
    49 			<tbody>
    50 				<m:skript jazyk="perl" výstup="xml"><![CDATA[
    51 use strict;
    52 use warnings;
    53 
    54 open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;
    55 
    56 while (<JAVA>) {
    57 	if (/podporovanýJazyk\.put\("(\w+)",\s*"(.*)"\);/) {
    58 		print "<tr><td><code>$1</code></td><td><code>$2</code></td></tr>\n";
    59 	}
    60 }
    61 				]]></m:skript>
    62 			</tbody>
    63 		</table>
    64 
    65 		<h2>Perl</h2>
    66 		<p>Jazyky použité nebo citované na této stránce:</p>
    67 		<!--
    68 			Lepšího výsledku bychom samozřejmě dosáhli pomocí XPath dotazu,
    69 			ale toto je příklad na Perl :-)
    70 		-->
    71 		<pre><m:skript jazyk="perl"><![CDATA[
    72 use strict;
    73 use warnings;
    74 
    75 open(XML, "<", $ENV{"XWG_STRANKA_SOUBOR"});
    76 my %skripty;
    77 
    78 while (<XML>) {
    79 	if (/m:skript\s+jazyk="(\w+)"/) {
    80 		$skripty{$1}++;
    81 	}
    82 }
    83 
    84 for(keys(%skripty)) {
    85 	print "$skripty{$_}×\t $_\n";
    86 }
    87 			]]></m:skript></pre>
    88 
    89 			<h2>BASH</h2>
    90 		<pre><m:skript jazyk="bash"><![CDATA[
    91 echo -n "Právě je: ";
    92 date;
    93 echo -n "Operační systém: ";
    94 uname -o;
    95 echo -n "SHA-1 otisk zdrojáku této stránky: ";
    96 sha1sum "$XWG_STRANKA_SOUBOR" | cut -f 1 -d " ";
    97 			]]></m:skript></pre>
    98 
    99 			<!--
   100 			<h2>PHP</h2>
   101 			<pre style="max-height: 200px;"><m:skript jazyk="php"><![CDATA[
   102 <?php
   103 phpinfo();
   104 ?>
   105 			]]></m:skript></pre>
   106 			-->
   107 
   108 			<h2>Proměnné prostředí</h2>
   109 			<p>
   110 				Ve skriptech máme dostupné následující proměnné prostředí:
   111 			</p>
   112 			
   113 			<table>
   114 				<thead>
   115 					<tr>
   116 						<td>Proměnná</td>
   117 						<td>Význam</td>
   118 					</tr>
   119 				</thead>
   120 				<tbody>
   121 					<!-- Pokud načítáme skript ze souboru, je atribut jazyk nepovinný. -->
   122 					<m:skript jazyk="perl" výstup="xml" src="skriptování-proměnné.pl"/>
   123 				</tbody>
   124 			</table>
   125 			
   126 			<p>
   127 				Kód:
   128 			</p>
   129 			
   130 			<m:pre jazyk="xml"><![CDATA[<m:skript jazyk="bash">
   131 echo "URI:    $XWG_STRANKA_URI";
   132 echo "Soubor: $XWG_STRANKA_SOUBOR";
   133 echo "Nadpis: $XWG_STRANKA_NADPIS";
   134 echo "Perex:  $XWG_STRANKA_PEREX";
   135 </m:skript>]]></m:pre>
   136 			
   137 			<p>nám vypíše:</p>
   138 			
   139 			<pre><m:skript jazyk="bash"><![CDATA[
   140 echo "URI:    $XWG_STRANKA_URI" | sed s/\\/home\\/$USER/\\/home\\/xwg/g;
   141 echo "Soubor: $XWG_STRANKA_SOUBOR" | sed s/\\/home\\/$USER/\\/home\\/xwg/g;
   142 echo "Nadpis: $XWG_STRANKA_NADPIS";
   143 echo "Perex:  $XWG_STRANKA_PEREX";
   144 		]]></m:skript></pre>
   145 
   146 	</text>
   147 
   148 </stránka>
   149