The Perl version is *a lot* faster than the shell version, so we'll
[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>#ededff</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 <define-tag ifont endtag=required whitespace=delete>
36 <font face="Helvetica,Arial,Sans-Serif">%body</font>
37 </define-tag>
38
39 <define-tag lightblue>#e2f6ff</define-tag>
40
41 #<define-tag mehr><img src="<root_prefix>gifs/lt2k-mehr.gif" width=45 height=14 alt="*mehr*"></define-tag>
42 #<define-tag phpmehr><img src=\"<root_prefix>gifs/lt2k-mehr.gif\" width=\"45\" height=\"14\" alt=\"*mehr*\" border=\"0\"></define-tag>
43 <define-tag mehr><img src="<root_prefix>gifs/mehr.gif" width=45 height=14 alt="*mehr*"></define-tag>
44 <define-tag phpmehr><img src=\"<root_prefix>gifs/mehr.gif\" width=\"45\" height=\"14\" alt=\"*mehr*\" border=\"0\"></define-tag>
45
46 # Page footer
47 #
48 <define-tag page-footer>
49 # &copy; = &#169;
50 <hr><address>&copy; <a href="http://www.infodrom.ffis.de/">Infodrom Oldenburg</a>, <:
51 @months =
52 #    ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
53     ("Dummy", "January","February","March","April","May","June","July","August","September","October","November","December");
54
55 if (length ("<get-var source>")) {
56     if ("<get-var source>" ne ".") {
57         $url = "<get-var source>";
58     } else {
59         $url = '';
60     }
61 } else {
62     "<get-var WML_SRC_DIRNAME>/" =~ /.*\/(src\/.*)$/;
63     $url = sprintf ($cvsurl, $1, "<get-var WML_SRC_FILENAME>");
64 }
65
66 "<get-var WML_SRC_ISOTIME>" =~ /^(\d+)-(\d+)-(\d+)\s/;
67 if (length ($url)) {
68     printf "<a href=\"%s\">page source</a> last modified: %s %d, %d.", $url, $months[$2], $3, $1;
69 } else {
70     printf "page source last modified: %s %d, %d.", $months[$2], $3, $1;
71 }
72 :></address>
73 </define-tag>
74
75 # ========== Abstand berechnen ==========
76 # in ePerl: $root_prefix
77 # in WML: <get-var root_prefix>
78 <:
79   $root_prefix = "<get-var WML_SRC_DIRNAME>";
80   $root_prefix =~ s/^.*src\/?(.*)$/$1/;
81   @foo = split (/\//, $root_prefix);
82   $root_prefix = "../"x($#foo+1);
83 :>
84 <if <not <get-var root_prefix>>
85   <define-tag root_prefix><: print "$root_prefix"; :></define-tag>
86   "<: $root_var = \"<get-var root_prefix>\"; :>"
87 >
88
89 # Used for menus in submenu.inc, link=foo.html is optional, only required for .php3
90 <define-tag menu-item whitespace=delete>
91 <preserve base text href>
92 <set-var %attributes>
93
94 <if <not <get-var href>>
95   <set-var href="<get-var base>.html">>
96
97 <ifneq <get-var WML_SRC_BASENAME> "<get-var base>" "<a href="<get-var href>">" "">
98 <get-var text>
99 <ifneq <get-var WML_SRC_BASENAME> "<get-var base>" "</a>" "">
100
101 <restore base text href>
102 </define-tag>
103
104 # Path to the download area
105 #
106 <define-tag download whitespace=delete>
107 <root_prefix>download/
108 </define-tag>
109