2 # Global color definition
4 <define-tag black>000000</define-tag>
5 <define-tag white>ffffff</define-tag>
7 #<define-tag bgcolor>39dff7</define-tag>
8 <define-tag bgcolor>f7f7f7</define-tag>
9 <define-tag textcolor>000000</define-tag>
10 <define-tag submenubgcolor>ededff</define-tag>
12 <define-tag menu-bgcolor>80CCF8</define-tag>
13 <define-tag menu-bgcolorsel>68A4C8</define-tag>
14 <define-tag menu-fgcolor>008dfd</define-tag>
15 <define-tag box-bdcolor>008dfd</define-tag>
16 <define-tag box-bgcolor><bgcolor></define-tag>
17 <define-tag box-fgcolor>1014e8</define-tag>
18 <define-tag box-blue>4876ff</define-tag>
20 # Generelle Konstanten
22 <define-tag colh>#abdcfc</define-tag>
23 <define-tag cold>#d7d7d7</define-tag>
24 <define-tag coln>#ffffff</define-tag>
26 # Alternatives Farbschema
27 # <define-tag bgcolor>ffffff</define-tag>
28 # <define-tag textcolor>000000</define-tag>
29 # <define-tag submenubgcolor>eff0f1</define-tag>
31 # <define-tag colh>#abdcfc</define-tag>
32 # <define-tag cold>#eff0f1</define-tag>
33 # <define-tag coln>#ffffff</define-tag>
37 <define-tag infodrom-font>Helvetica,Arial,Sans-Serif</define-tag>
39 <define-tag ifont endtag=required whitespace=delete>
40 <font face="<infodrom-font />">%body</font>
43 <define-tag lightblue>#e2f6ff</define-tag>
45 #<define-tag mehr><img src="<root_prefix>gifs/lt2k-mehr.gif" width=45 height=14 alt="*mehr*"></define-tag>
46 #<define-tag phpmehr><img src=\"<root_prefix>gifs/lt2k-mehr.gif\" width=\"45\" height=\"14\" alt=\"*mehr*\" border=\"0\"></define-tag>
47 <define-tag mehr><img src="<root_prefix>gifs/mehr.gif" width=45 height=14 alt="*mehr*"></define-tag>
48 <define-tag phpmehr><img src=\"<root_prefix>gifs/mehr.gif\" width=\"45\" height=\"14\" alt=\"*mehr*\" border=\"0\"></define-tag>
52 <define-tag page-footer>
54 $giturl = "http://git.infodrom.org/?p=infodrom.org/www.infodrom.org;a=%s;f=%s%s";
55 @months = ("Dummy", "January","February","March","April","May","June",
56 "July","August","September","October","November","December");
58 "<get-var WML_SRC_ISOTIME>" =~ /^(\d+)-(\d+)-(\d+)\s/;
59 $date = sprintf ("%s %d, %d", $months[$2], $3, $1);
61 if (length ("<get-var source>")) {
64 "<get-var WML_SRC_DIRNAME>/" =~ /.*\/(src\/.*)$/;
65 $url_history = sprintf($giturl, "history", $1, "<get-var WML_SRC_FILENAME>");
66 $url_source = sprintf($giturl, "blob", $1, "<get-var WML_SRC_FILENAME>");
68 if (length ($url_history)) {
69 $url = sprintf(', page <a href="%s">source</a> <a href="%s">history</a>', $url_source, $url_history);
74 <div class=footerleft>© <a href="<root_prefix>Infodrom/impressum.html">Infodrom Oldenburg</a> <a href="<root_prefix>/datenschutz.html">Datenschutz</a><:=$url:></div>
75 <div class=footerright>Last modified: <:=$date:></div>
80 # ========== Abstand berechnen ==========
81 # in ePerl: $root_prefix
82 # in WML: <get-var root_prefix>
84 $root_prefix = "<get-var WML_SRC_DIRNAME>";
85 $root_prefix =~ s/^.*src\/?(.*)$/$1/;
86 @foo = split (/\//, $root_prefix);
87 $root_prefix = "../"x($#foo+1);
89 <if <not <get-var root_prefix>>
90 <define-tag root_prefix><: print "$root_prefix"; :></define-tag>
91 "<: $root_var = \"<get-var root_prefix>\"; :>"
94 # Path to the download area
96 <define-tag download whitespace=delete>
97 <root_prefix>download/