+# Some color definitions
+#
+<define-tag title-color>0000ff</define-tag>
+<define-tag page-bgcolor>cdf7d3</define-tag>
+<define-tag bar-color>9ef7ab</define-tag>
+<define-tag submenu-bgcolor>d9fcdd</define-tag>
+<define-tag menu-color>000000</define-tag>
+
# ========== Abstand berechnen ==========
# in ePerl: $root_prefix
# in WML: <get-var root_prefix>
"<: $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">
+<preserve title>
<set-var %attributes>
# Reminder to self: "Joey's Infopool" is in the menu bar already
#
# <if <not <get-var title>>
-# <set-var title="Joey's Infopool">>
+# <set-var title="Luonnotar">>
<html>
<head>
<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">
+<body bgcolor="#<page-bgcolor>" text="#000000" vlink="#000090">
-# Prelimnary Menu, somebody will have to beautify it later
+# Menu bar
#
-<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>
+<table width=100% bgcolor=#<bar-color>>
+<tr>
+<td align=right><a href="<root_prefix>index.html"><font face="Helvetica,Arial" color="#<title-color>" size=+1><strong>Luonnotar</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%>
+<table border=0 cellpadding=1 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>">
+ <td align=left valign=top width=10% bgcolor=#<submenu-bgcolor>><font face="Helvetica,Arial" size=-1 color="#<menu-color>">
#include "submenu.inc"
</table>
# © = ©
-<p><hr><address><small>© <a href="<root_prefix>finger.html">Joey</a>, <:
+<p><hr><address><font face="Helvetica,Arial"><small>© <a href="http://www.infodrom.org/~joey/">Joey</a>, <:
@months =
- ("Dummy", "Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember");
+ ("Dummy", "January","February","March","April","May","June","July","August","September","October","November","December");
"<get-var WML_SRC_ISOTIME>" =~ /^(\d+)-(\d+)-(\d+)\s/;
-printf "Last modified: %d. %s %d", $3, $months[$2], $1;
-:></small></address>
+printf "Last modified: %s %d, %d", $months[$2], $3, $1;
+:></small></font></address>
</body>
</html>
-<restore title submenubgcolor menucolor>
+<restore title>
</define-tag>