1 # ========== Abstand berechnen ==========
2 # in ePerl: $root_prefix
3 # in WML: <get-var root_prefix>
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);
10 <if <not <get-var root_prefix>>
11 <define-tag root_prefix><: print "$root_prefix"; :></define-tag>
12 "<: $root_var = \"<get-var root_prefix>\"; :>"
16 # ========== Page footer ==========
18 # Sollte eigentlich in <address></address> eingefaßt sein, kursiv sieht's aber nicht aus.
20 <define-tag page-footer>
22 <font face="Helvetica,Arial">© <a href="http://infocon.infodrom.org/">InfoCon</a>, <:
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");
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;
31 "<get-var WML_SRC_ISOTIME>" =~ /^(\d+)-(\d+)-(\d+)\s/;
33 printf "Last modified: %d. %s %d", $1, $months[$2], $3;
38 # ========== Page ==========
40 <define-tag page-horiz-space>10</define-tag>
41 <define-tag page endtag=required>
44 <if <not <get-var title>>
45 <set-var title="InfoCon - Information & Consulting">>
47 <if <not <get-var menu>>
48 <set-var menu="<div align=center> </div><br>">
49 <set-var menu="<div align=center><b>Infos</b></div><br>">
53 <head><title><get-var title></title></head>
55 <body bgcolor=#ffffff>
57 <table cellspacing=0 cellpadding=0 border=0 width=100%>
60 <td width=90><img src="<root_prefix>Pics/infocon-90.png" align=center alt="[InfoCon]" width=90 height=122></td>
61 <td width=<page-horiz-space>></td>
63 <h1 align=center><font face=Helvetica>Information & Consulting</font></h1>
65 # Anfang der Menü-Tabelle
66 <table bgcolor=#5dbbf9 cellspacing=0 cellpadding=0 border=0 width=100%>
68 <td><img src="<root_prefix>Pics/corner-upperleft.png" align="left" border="0" hspace="0" vspace="0" alt="" width="16" height="16"></td>
69 <td rowspan=2 align=center>
72 @menu = ('Infos','Dienstleistungen','Shop');
73 %menu_dir = ('Infos' => 'infos',
74 'Dienstleistungen' => 'service',
77 %menu_width = ('Infos' => 50,
78 'Dienstleistungen' => 120,
81 $menu_default = 'hspace="4" vspace="7" height="18" align="middle" border="0"';
83 foreach $rubrik (@menu) {
84 $dir = $menu_dir{$rubrik};
85 if ("<get-var WML_SRC_DIRNAME>" =~ /src\/$dir/) {
86 if ("<get-var WML_SRC_BASENAME>" eq "index") {
88 printf '<img src="%sPics/menu-%s.press.png" width="%d" alt="[%s]" %s>',
89 $root_prefix, $dir, $menu_width{$rubrik}, $rubrik, $menu_default;
91 # We're in but link required
92 printf '<a href="%s%s/"><img src="%sPics/menu-%s.png" width="%d" alt="[%s]" %s></a>',
93 $root_prefix, $dir, $root_prefix, $dir, $menu_width{$rubrik}, $rubrik, $menu_default;
97 printf '<a href="%s%s/"><img src="%sPics/menu-%s.png" width="%d" alt="[%s]" %s></a>',
98 $root_prefix, $dir, $root_prefix, $dir, $menu_width{$rubrik}, $rubrik, $menu_default;
104 <td><img src="<root_prefix>Pics/corner-upperright.png" align="right" border="0" hspace="0" vspace="0" alt="" width="16" height="16"></td>
107 # Untere Zeile, nur die Ecken
109 <td><img src="<root_prefix>Pics/corner-lowerleft.png" align="left" border="0" hspace="0" vspace="0" alt="" width="16" height="16"></td>
110 <td><img src="<root_prefix>Pics/corner-lowerright.png" align="right" border="0" hspace="0" vspace="0" alt="" width="16" height="16"></td>
113 # Ende der Menü-Tabelle
118 <td width=90 valign=top bgcolor=#5dbbf9>
119 <img src="<root_prefix>Pics/corner-upperleft.png" align="left" border="0" hspace="0" vspace="0" alt="" width="16" height="16">
120 <img src="<root_prefix>Pics/corner-upperright.png" align="right" border="0" hspace="0" vspace="0" alt="" width="16" height="16">
121 <font face="Helvetica"><get-var menu>
123 #include "submenu.inc"
128 <td width=<page-horiz-space>></td>
129 <td width=100% valign=top><font face=Helvetica>
136 <td width=90 valign=botom bgcolor=#5dbbf9>
137 <img src="<root_prefix>Pics/corner-lowerleft.png" align="left" border="0" hspace="0" vspace="0" alt="" width="17" height="16">
138 <img src="<root_prefix>Pics/corner-lowerright.png" align="right" border="0" hspace="0" vspace="0" alt="" width="16" height="16">
140 <td width=<page-horiz-space>></td>
141 <td width=100% valign=bottom align=right><page-footer></td>