Current version
[infodrom.org/service.infodrom.org] / Styles / basic.style
1 #include <colors.style>
2
3 # <imgdot-fname>
4 #       Insert the filename for the imgdot file
5 #
6 # <page-footer>
7 #       Compute the page footer
8
9 # ========== Abstand berechnen ==========
10 # in ePerl: $root_prefix
11 # in WML: <get-var root_prefix>
12 <:
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);
17 :>
18 <if <not <get-var root_prefix>>
19   <define-tag root_prefix><: print "$root_prefix"; :></define-tag>
20   "<: $root_var = \"<get-var root_prefix>\"; :>"
21 >
22
23 <define-tag imgdot-fname whitespace=delete>
24 <root_prefix>pix/imgdot-1x1-transp.gif
25 </define-tag>
26
27 <define-tag page-footer>
28 <:
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");
32
33   "<get-var WML_SRC_ISOTIME>" =~ /^(\d+)-(\d+)-(\d+)\s/;
34   $date = sprintf ("%s %d, %d", $months[$2], $3, $1);
35
36   if (length ("<get-var source>")) {
37     if ("<get-var source>" ne ".") {
38       $url = "<get-var source>";
39     } else {
40       $url = '';
41     }
42   } else {
43     "<get-var WML_SRC_DIRNAME>/" =~ /.*\/(src\/.*)$/;
44     $url = sprintf ($cvsurl, $1, "<get-var WML_SRC_FILENAME>");
45   }
46   if (length ($url)) {
47     $url = sprintf (', <a href="%s">page source</a>', $url);
48   }
49 :>
50
51 <div class=footer>
52 <div class=footerleft>&copy; <a href="http://www.infodrom.org/Infodrom/impressum.html">Infodrom Oldenburg</a><:=$url:></div>
53 <div class=footerright>Last modified: <:=$date:></div>
54 </div>
55
56 </define-tag>