</define-tag>
<define-tag page-footer>
-<hr><address><font face="Helvetica,Arial"><small>© <a href="http://www.infodrom.org/~joey/">Joey</a>, <:
-@months =
- ("Dummy", "January", "February", "March", "April", "May", "June",
- "July", "August", "September", "October", "November", "December");
+<:
+ $cvsurl = "http://cvs.infodrom.org/service.infodrom.org/%s%s?cvsroot=infodrom.org";
+ @months = ("Dummy", "January","February","March","April","May","June",
+ "July","August","September","October","November","December");
+
+ "<get-var WML_SRC_ISOTIME>" =~ /^(\d+)-(\d+)-(\d+)\s/;
+ $date = sprintf ("%s %d, %d", $months[$2], $3, $1);
+
+ if (length ("<get-var source>")) {
+ if ("<get-var source>" ne ".") {
+ $url = "<get-var source>";
+ } else {
+ $url = '';
+ }
+ } else {
+ "<get-var WML_SRC_DIRNAME>/" =~ /.*\/(src\/.*)$/;
+ $url = sprintf ($cvsurl, $1, "<get-var WML_SRC_FILENAME>");
+ }
+ if (length ($url)) {
+ $url = sprintf (', <a href="%s">page source</a>', $url);
+ }
+:>
-"<get-var WML_SRC_ISOTIME>" =~ /^(\d+)-(\d+)-(\d+)\s/;
+<div class=footer>
+<div class=footerleft>© <a href="http://www.infodrom.org/Infodrom/impressum.html">Infodrom Oldenburg</a><:=$url:></div>
+<div class=footerright>Last modified: <:=$date:></div>
+</div>
-printf "Last modified: %s %d, %d", $months[$2], $3, $1;
-:></small></font></address>
</define-tag>