website/inc/customtags.inc

   1 <define-tag where>\
   2 <perl>
   3 my $path=$WML_SRC_DIRNAME."/".$WML_SRC_BASENAME;
   4 $path =~ s|.+?website/||s;
   5 print "$path.en.html";
   6 </perl>\
   7 </define-tag>
   8
   9 #
  10 # an rrdworld entry
  11 #
  12 #<rrdworld type="extension|application"
  13 #       icon="rumble.png" > <!-- Size 100x66 -->
  14 #
  15 #       <name> RRRRumble </name>
  16 #     <author> Peter Example </author>
  17 #<description> Makes rrdtool rumble when new data is added </description>
  18 #   <homepage> http://somesite.blabla.plac </homepage>
  19 #       <year> 2005 </year><month> 4 </month>
  20 #    <license> GPL </license>
  21 #
  22 #   <!-- Optional -->
  23 #
  24 #   <livesite> http://somesite.blabla.plac </livesite>
  25 #      <email> max@example.com </email>
  26 #
  27 #</rrdworld>
  28
  29 #<gallery image="graph.png" >
  30 #
  31 #      <title> Virus Graph </title>
  32 #     <author> Max Beispiel </author>
  33 #<description> The five most common critters of the week. </description>
  34 #       <year> 2005 </year><month> 4 </month>
  35 #
  36 #   <!-- Optional -->
  37 #
  38 #   <livesite> http://somesite.blabla.plac </livesite>
  39 #      <email> max@example.com </email>
  40 #
  41 #</gallery>
  42
  43
  44
  45 <define-tag name        endtag=required ><set-var-x name=rwv_name><h3>%body</h3></set-var-x></define-tag>
  46 <define-tag title       endtag=required ><set-var-x name=rwv_title><h2>%body</h2></set-var-x></define-tag>
  47 <define-tag author      endtag=required ><set-var-x name=rwv_author>%body</set-var-x></define-tag>
  48 <define-tag description endtag=required ><set-var-x name=rwv_description>%body</set-var-x></define-tag>
  49 <define-tag homepage    endtag=required ><set-var-x name=rwv_homepage> ... <a href="<subst-in-string %body " " "" />">[home]</a></set-var-x></define-tag>
  50 <define-tag year        endtag=required ><set-var-x name=rwv_year> %body </set-var-x></define-tag>
  51 <define-tag month       endtag=required ><set-var-x name=rwv_month> /%body </set-var-x></define-tag>
  52 <define-tag license     endtag=required ><set-var-x name=rwv_license>License: %body</set-var-x></define-tag>
  53 <define-tag livesite    endtag=required ><set-var-x name=rwv_livesite> <a href="<subst-in-string "%body" " " "" />">[demo]</a></set-var-x></define-tag>
  54 <define-tag email       endtag=required ><set-var-x name=rwv_email>&lt;<subst-in-string <subst-in-string "%body" " " "" /> @ "@<span class="legacy">XYZ-</span>" />&gt;</set-var-x></define-tag>
  55
  56 <define-tag rrdworld endtag=required>
  57 <preserve icon type rwv_name rwv_author rwv_description rwv_homepage rwv_year rwv_month rwv_license rwv_livesite rwv_email/>
  58 <set-var %attributes />
  59 %body
  60 <subst-in-var rwv_year " " ""/>
  61 <subst-in-var rwv_month " " ""/>
  62 <div class="rrdworld">
  63 <if <get-var icon/> <img align="right" src="<subst-in-string <get-var icon/> " " "" />"/> />
  64 <get-var rwv_name/>
  65 <div class="who"><get-var rwv_author/> <get-var rwv_email/> | Date: <get-var rwv_year/><get-var rwv_month/> | <get-var rwv_license/></div>
  66 <div class="desc">
  67 <get-var rwv_description/>
  68 <get-var rwv_homepage/><get-var rwv_livesite/>
  69 </div>
  70 </div>
  71 <restore icon type rwv_name rwv_author rwv_description rwv_homepage rwv_year rwv_month rwv_license rwv_livesite rwv_email/>
  72 </define-tag>
  73
  74 <define-tag gallery endtag=required>
  75 <preserve image rwv_title rwv_author rwv_description rwv_year rwv_month rwv_livesite rwv_email/>
  76 <set-var %attributes />
  77 %body
  78 <subst-in-var rwv_year " " ""/>
  79 <subst-in-var rwv_month " " ""/>
  80 <div class="gallery">
  81 <get-var rwv_title/>
  82 <div class="image"><img src="<subst-in-string <get-var image/> " " "" />"/></div>
  83 <div class="caption"><get-var rwv_description/> -- <get-var rwv_author/> <get-var rwv_email/>, <get-var rwv_year/><get-var rwv_month/> <get-var rwv_livesite/></div>
  84 </div>
  85 <restore image rwv_title rwv_author rwv_description rwv_year rwv_month rwv_livesite rwv_email/>
  86 </define-tag>
  87
  88
  89 <define-tag lastchange>
  90 <perl>
  91 use POSIX qw(strftime);
  92 use POSIX qw(locale_h);
  93   setlocale(LC_TIME,"de");
  94   my $x_de = strftime "%e. %B %Y", localtime("$(WML_SRC_TIME)");
  95   setlocale(LC_TIME,"en_US");
  96   my $x_en = strftime "%B %e, %Y", localtime("$(WML_SRC_TIME)");
  97   $x_de=~ s/\s/&nbsp;/g;
  98   $x_en=~ s/\s/&nbsp;/g;
  99 </perl>
 100 <en>
 101 <perl>
 102   print $x_en;
 103 </perl>
 104 </en>
 105 <de>
 106 <perl>
 107   print $x_de;
 108 </perl>
 109 </de>
 110 </define-tag>
 111
 112 <define-tag picture endtag=required>
 113 <div class="pic"><img  src="%body" align=left/></div>
 114 </define-tag>
 115
 116
 117
 118 # vi: ft=wml