git.infodrom.org Git - infodrom.org/infocon.infodrom.org/blob - Styles/infocon.style

   1 # ========== Abstand berechnen ==========
   2 # in ePerl: $root_prefix
   3 # in WML: <get-var root_prefix>
   4 <:
   5   $root_prefix = "<get-var WML_SRC_DIRNAME>";
   6   $root_prefix =~ s/^.*src\/?(.*)$/$1/;
   7   @foo = split (/\//, $root_prefix);
   8   $root_prefix = "../"x($#foo+1);
   9 :>
  10 <if <not <get-var root_prefix>>
  11   <define-tag root_prefix><: print "$root_prefix"; :></define-tag>
  12   "<: $root_prefix = \"<get-var root_prefix>\"; :>"
  13 >
  14
  15
  16 # ========== Page footer ==========
  17 #
  18 # Sollte eigentlich in <address></address> eingefaßt sein, kursiv sieht's aber nicht aus.
  19 #
  20 <define-tag page-footer>
  21 # &copy; = &#169;
  22 <font face="Helvetica,Arial">&copy; <a href="<root_prefix>impressum.html">InfoCon</a>, <:
  23 @months =
  24 #    ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
  25     ("Dummy", "Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember");
  26
  27 #($date_sec,$date_min,$date_hour,$date_mday,$date_mon,$date_year,$date_wday,$date_isdst)
  28 #    = localtime(); $date_year += 1900;
  29 #printf "%d %s %d", $date_mday, $months[$date_mon], $date_year;
  30
  31 "<get-var WML_SRC_ISOTIME>" =~ /^(\d+)-(\d+)-(\d+)\s/;
  32
  33 printf "Letzte Änderung: %d. %s %d", $3, $months[$2], $1;
  34 :></font>
  35 </define-tag>
  36
  37
  38 # ========== Page ==========
  39 #
  40 <define-tag page-horiz-space>10</define-tag>
  41 <define-tag page endtag=required>
  42 <set-var %attributes>
  43
  44 <if <not <get-var title>>
  45     <set-var title="InfoCon - Information & Consulting">>
  46
  47 <if <not <get-var menu>>
  48     <set-var menu="<div align=center>&nbsp;</div><br>">
  49     <set-var menu="<div align=center><b>Infos</b></div><br>">
  50 >
  51
  52 <html>
  53 <head>
  54 <title><get-var title></title>
  55 <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  56 </head>
  57
  58 <body bgcolor=#ffffff>
  59
  60 <table cellspacing=0 cellpadding=0 border=0 width=100%>
  61
  62 <tr>
  63   <td width=90><img src="<root_prefix>Pics/infocon-90.png" align=center alt="[InfoCon]" width=90 height=122></td>
  64   <td width=<page-horiz-space>></td>
  65   <td width=100%>
  66         <h1 align=center><font face=Helvetica>Information &amp; Consulting</font></h1>
  67
  68 # Anfang der Menü-Tabelle
  69 <table bgcolor=#5dbbf9 cellspacing=0 cellpadding=0 border=0 width=100%>
  70 <tr>
  71 <td><img src="<root_prefix>Pics/corner-upperleft.png" align="left" border="0" hspace="0" vspace="0" alt="" width="16" height="16"></td>
  72 <td rowspan=2 align=center>
  73
  74 <:
  75     @menu = ('Infos','Dienstleistungen','Shop');
  76     %menu_dir = ('Infos'            => 'infos',
  77                  'Dienstleistungen' => 'service',
  78                  'Shop'             => 'shop',
  79                  );
  80     %menu_width = ('Infos'            => 50,
  81                    'Dienstleistungen' => 120,
  82                    'Shop'             => 50,
  83                    );
  84     $menu_default = 'hspace="4" vspace="7" height="18" align="middle" border="0"';
  85
  86     foreach $rubrik (@menu) {
  87         $dir = $menu_dir{$rubrik};
  88         if ("<get-var WML_SRC_DIRNAME>" =~ /src\/$dir/) {
  89             if ("<get-var WML_SRC_BASENAME>" eq "index") {
  90                 # No link
  91                 printf '<img src="%sPics/menu-%s.press.png" width="%d" alt="[%s]" %s>',
  92                     $root_prefix, $dir, $menu_width{$rubrik}, $rubrik, $menu_default;
  93             } else {
  94                 # We're in but link required
  95                 printf '<a href="%s%s/"><img src="%sPics/menu-%s.png" width="%d" alt="[%s]" %s></a>',
  96                     $root_prefix, $dir, $root_prefix, $dir, $menu_width{$rubrik}, $rubrik, $menu_default;
  97             }
  98         } else {
  99             # Link required
 100             printf '<a href="%s%s/"><img src="%sPics/menu-%s.png" width="%d" alt="[%s]" %s></a>',
 101                 $root_prefix, $dir, $root_prefix, $dir, $menu_width{$rubrik}, $rubrik, $menu_default;
 102         }
 103     }
 104 :>
 105
 106 </td>
 107 <td><img src="<root_prefix>Pics/corner-upperright.png" align="right" border="0" hspace="0" vspace="0" alt="" width="16" height="16"></td>
 108 </tr>
 109
 110 # Untere Zeile, nur die Ecken
 111 <tr>
 112 <td><img src="<root_prefix>Pics/corner-lowerleft.png" align="left" border="0" hspace="0" vspace="0" alt="" width="16" height="16"></td>
 113 <td><img src="<root_prefix>Pics/corner-lowerright.png" align="right" border="0" hspace="0" vspace="0" alt="" width="16" height="16"></td>
 114 </tr>
 115 </table>
 116 # Ende der Menü-Tabelle
 117   </td>
 118 </tr>
 119
 120 <tr>
 121   <td width=90 valign=top bgcolor=#5dbbf9>
 122     <img src="<root_prefix>Pics/corner-upperleft.png" align="left" border="0" hspace="0" vspace="0" alt="" width="16" height="16">
 123     <img src="<root_prefix>Pics/corner-upperright.png" align="right" border="0" hspace="0" vspace="0" alt="" width="16" height="16">
 124   <font face="Helvetica"><get-var menu>
 125
 126 #include "submenu.inc"
 127
 128   </font>
 129
 130 </td>
 131   <td width=<page-horiz-space>></td>
 132   <td width=100% valign=top><font face=Helvetica>
 133
 134   %body
 135
 136   </font></td>
 137 </tr>
 138 <tr>
 139   <td width=90 valign=botom bgcolor=#5dbbf9>
 140     <img src="<root_prefix>Pics/corner-lowerleft.png" align="left" border="0" hspace="0" vspace="0" alt="" width="17" height="16">
 141     <img src="<root_prefix>Pics/corner-lowerright.png" align="right" border="0" hspace="0" vspace="0" alt="" width="16" height="16">
 142   </td>
 143   <td width=<page-horiz-space>></td>
 144   <td width=100% valign=bottom align=right><page-footer></td>
 145 </tr>
 146 </table>
 147 </body>
 148 </html>
 149
 150 </define-tag>