Allow to edit account description in place

[infodrom.org/service.infodrom.org] / Styles / basic.style

diff --git a/Styles/basic.style b/Styles/basic.style
index 7c1c4e0..399ce4a 100644 (file)
--- a/Styles/basic.style
+++ b/Styles/basic.style
@@ -25,13 +25,29 @@
 </define-tag>
 
 <define-tag page-footer>
-<hr><address><font face="Helvetica,Arial"><small>&copy; <a href="http://www.infodrom.org/~joey/">Joey</a>, <:
-@months =
-    ("Dummy", "January", "February", "March", "April", "May", "June",
-       "July", "August", "September", "October", "November", "December");
+<:
+  $giturl = "http://git.infodrom.org/?p=infodrom.org/service.infodrom.org;a=%s;f=%s%s";
+  @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>")) {
+    $url_history = '';
+  } else {
+    "<get-var WML_SRC_DIRNAME>/" =~ /.*\/(src\/.*)$/;
+    $url_history = sprintf($giturl, "history", $1, "<get-var WML_SRC_FILENAME>");
+    $url_source = sprintf($giturl, "blob_plain", $1, "<get-var WML_SRC_FILENAME>");
+  }
+  if (length ($url_history)) {
+    $url = sprintf(', page <a href="%s">source</a> <a href="%s">history</a>', $url_source, $url_history);
+  }
+:>
 
-"<get-var WML_SRC_ISOTIME>" =~ /^(\d+)-(\d+)-(\d+)\s/;
+<div class=footer>
+<div class=footerleft>&copy; <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>