+# ========== Abstand berechnen ==========
+# in ePerl: $root_prefix
+# in WML: <get-var root_prefix>
+<:
+ $root_prefix = "<get-var WML_SRC_DIRNAME>";
+ $root_prefix =~ s/^.*src\/?(.*)$/$1/;
+ @foo = split (/\//, $root_prefix);
+ $root_prefix = "../"x($#foo+1);
+:>
+<if <not <get-var root_prefix>>
+ <define-tag root_prefix><: print "$root_prefix"; :></define-tag>
+ "<: $root_var = \"<get-var root_prefix>\"; :>"
+>
+
+
+<define-tag fontblue>0000ff</define-tag>
+<define-tag page endtag=required>
+<preserve title submenubgcolor menucolor>
+<set-var menucolor="000000">
+<set-var submenubgcolor="d6e8ff">
+
+<set-var %attributes>
+
+# Default: no title
+#
+# Reminder to self: "Joey's Infopool" is in the menu bar already
+#
+# <if <not <get-var title>>
+# <set-var title="Joey's Infopool">>
+
+<html>
+<head>
+<title><get-var title></title>
+<meta name="author" content="joey@infodrom.north.de (Martin Schulze)">
+<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+</head>
+<body bgcolor="#e8f1fe" text="#000000" vlink="#000090">
+
+# Prelimnary Menu, somebody will have to beautify it later
+#
+<table width=100% bgcolor=#<get-var submenubgcolor>>
+<tr><td align=left><font face="Helvetica,Arial" color="#<get-var menucolor>">
+<font color=#<fontblue>><strong>[</strong></font>
+#<a href="<root_prefix>Internet">Internet</a>
+#<a href="<root_prefix>Muell">Müll</a>
+#<a href="<root_prefix>LUGO">LUGO</a>
+#<a href="<root_prefix>Linux">Linux</a>
+<a href="<root_prefix>Debian">Debian</a>
+<font color=#<fontblue>><strong>|</strong></font>
+<a href="<root_prefix>Vortraege">Vorträge</a>
+<font color=#<fontblue>><strong>]</strong></font>
+</font></td>
+
+<td align=right><a href="<root_prefix>index.html"><font face="Helvetica,Arial" color="#<fontblue>" size=+1><strong>Joey's Infopool</strong></font></a></td>
+
+</tr>
+</table>
+
+<P>[<em>DEL:
+Sorry, still unfinished rebuild of <a href="http://www.infodrom.north.de/~joey/">/~joey/</a>.
+:DEL</em>]
+
+<table border=0 cellpadding=0 cellspacing=0 width=100%>
+<tr>
+ <td align=left valign=top width=10% bgcolor=#<get-var submenubgcolor>><font face="Helvetica,Arial" size=-1 color="#<get-var menucolor>">
+
+#include "submenu.inc"
+
+ </font></td>
+ <td valign=top><img src=<root_prefix>gifs/imgdot-1x1-transp.gif width=3 height=0 alt=""></td>
+ <td valign=top align=left width=90%><font face="Helvetica,Arial">
+
+<if <get-var title>
+<h3><get-var title></h3>
+>
+
+%body
+
+ </font></td>
+</tr>
+</table>
+
+# © = ©
+<p><hr><address><small>© <a href="<root_prefix>finger.html">Joey</a>, <:
+@months =
+ ("Dummy", "Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember");
+
+"<get-var WML_SRC_ISOTIME>" =~ /^(\d+)-(\d+)-(\d+)\s/;
+
+printf "Last modified: %d. %s %d", $3, $months[$2], $1;
+:></small></address>
+
+</body>
+</html>
+<restore title submenubgcolor menucolor>
+</define-tag>