Document support for address lookup
[infodrom.org/www.infodrom.org] / Styles / basic.style
1
2 # Global color definition
3 #
4 <define-tag black>000000</define-tag>
5 <define-tag white>ffffff</define-tag>
6
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>
11
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>
19
20 # Generelle Konstanten
21 #
22 <define-tag colh>#abdcfc</define-tag>
23 <define-tag cold>#d7d7d7</define-tag>
24 <define-tag coln>#ffffff</define-tag>
25
26 # Alternatives Farbschema
27 # <define-tag bgcolor>ffffff</define-tag>
28 # <define-tag textcolor>000000</define-tag>
29 # <define-tag submenubgcolor>eff0f1</define-tag>
30
31 # <define-tag colh>#abdcfc</define-tag>
32 # <define-tag cold>#eff0f1</define-tag>
33 # <define-tag coln>#ffffff</define-tag>
34
35 # Font definition
36 #
37 <define-tag infodrom-font>Helvetica,Arial,Sans-Serif</define-tag>
38
39 <define-tag ifont endtag=required whitespace=delete>
40 <font face="<infodrom-font />">%body</font>
41 </define-tag>
42
43 <define-tag lightblue>#e2f6ff</define-tag>
44
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>
49
50 # Page footer
51 #
52 <define-tag page-footer>
53 <:
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");
57
58   "<get-var WML_SRC_ISOTIME>" =~ /^(\d+)-(\d+)-(\d+)\s/;
59   $date = sprintf ("%s %d, %d", $months[$2], $3, $1);
60
61   if (length ("<get-var source>")) {
62     $url_history = '';
63   } else {
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>");
67   }
68   if (length ($url_history)) {
69     $url = sprintf(', page <a href="%s">source</a> <a href="%s">history</a>', $url_source, $url_history);
70   }
71 :>
72
73 <div class=footer>
74 <div class=footerleft>&copy; <a href="<root_prefix>Infodrom/impressum.html">Infodrom Oldenburg</a>&nbsp;&nbsp;<a href="<root_prefix>/datenschutz.html">Datenschutz</a><:=$url:></div>
75 <div class=footerright>Last modified: <:=$date:></div>
76 </div>
77
78 </define-tag>
79
80 # ========== Abstand berechnen ==========
81 # in ePerl: $root_prefix
82 # in WML: <get-var root_prefix>
83 <:
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);
88 :>
89 <if <not <get-var root_prefix>>
90   <define-tag root_prefix><: print "$root_prefix"; :></define-tag>
91   "<: $root_var = \"<get-var root_prefix>\"; :>"
92 >
93
94 # Path to the download area
95 #
96 <define-tag download whitespace=delete>
97 <root_prefix>download/
98 </define-tag>
99