1 #include <colors.style>
4 # Insert the filename for the imgdot file
7 # Compute the page footer
9 # ========== Abstand berechnen ==========
10 # in ePerl: $root_prefix
11 # in WML: <get-var root_prefix>
13 $root_prefix = "<get-var WML_SRC_DIRNAME>";
14 $root_prefix =~ s/^.*src\/?(.*)$/$1/;
15 @foo = split (/\//, $root_prefix);
16 $root_prefix = "../"x($#foo+1);
18 <if <not <get-var root_prefix>>
19 <define-tag root_prefix><: print "$root_prefix"; :></define-tag>
20 "<: $root_var = \"<get-var root_prefix>\"; :>"
23 <define-tag imgdot-fname whitespace=delete>
24 <root_prefix>pix/imgdot-1x1-transp.gif
27 <define-tag page-footer>
29 $cvsurl = "http://cvs.infodrom.org/service.infodrom.org/%s%s?cvsroot=infodrom.org";
30 @months = ("Dummy", "January","February","March","April","May","June",
31 "July","August","September","October","November","December");
33 "<get-var WML_SRC_ISOTIME>" =~ /^(\d+)-(\d+)-(\d+)\s/;
34 $date = sprintf ("%s %d, %d", $months[$2], $3, $1);
36 if (length ("<get-var source>")) {
37 if ("<get-var source>" ne ".") {
38 $url = "<get-var source>";
43 "<get-var WML_SRC_DIRNAME>/" =~ /.*\/(src\/.*)$/;
44 $url = sprintf ($cvsurl, $1, "<get-var WML_SRC_FILENAME>");
47 $url = sprintf (', <a href="%s">page source</a>', $url);
52 <div class=footerleft>© <a href="http://www.infodrom.org/Infodrom/impressum.html">Infodrom Oldenburg</a><:=$url:></div>
53 <div class=footerright>Last modified: <:=$date:></div>