2 # Global color definition
4 <define-tag black>000000</define-tag>
5 <define-tag white>ffffff</define-tag>
6 #<define-tag bgcolor>39dff7</define-tag>
7 <define-tag bgcolor>ffffff</define-tag>
8 <define-tag textcolor>000000</define-tag>
9 <define-tag submenubgcolor>eff0f1</define-tag>
12 <body bgcolor="#<bgcolor>" text="#<textcolor>" vlink="#000090" alink="#e709f7" link="#1717ef">
14 <define-tag menu-bgcolor>80CCF8</define-tag>
15 <define-tag menu-bgcolorsel>68A4C8</define-tag>
16 <define-tag menu-fgcolor>008dfd</define-tag>
17 <define-tag box-bdcolor>008dfd</define-tag>
18 <define-tag box-bgcolor><bgcolor></define-tag>
19 <define-tag box-fgcolor>1014e8</define-tag>
20 <define-tag box-blue>4876ff</define-tag>
22 # Generelle Konstanten
24 <define-tag colh>#abdcfc</define-tag>
25 <define-tag cold>#eff0f1</define-tag>
26 <define-tag coln>#ffffff</define-tag>
28 #<define-tag mehr><img src="<root_prefix>gifs/lt2k-mehr.gif" width=45 height=14 alt="*mehr*"></define-tag>
29 #<define-tag phpmehr><img src=\"<root_prefix>gifs/lt2k-mehr.gif\" width=\"45\" height=\"14\" alt=\"*mehr*\" border=\"0\"></define-tag>
30 <define-tag mehr><img src="<root_prefix>gifs/mehr.gif" width=45 height=14 alt="*mehr*"></define-tag>
31 <define-tag phpmehr><img src=\"<root_prefix>gifs/mehr.gif\" width=\"45\" height=\"14\" alt=\"*mehr*\" border=\"0\"></define-tag>
35 <define-tag page-footer>
37 <hr><address>© <a href="http://www.infodrom.ffis.de/">Infodrom Oldenburg</a>, <:
39 # ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
40 ("Dummy", "Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember");
42 #($date_sec,$date_min,$date_hour,$date_mday,$date_mon,$date_year,$date_wday,$date_isdst)
43 # = localtime(); $date_year += 1900;
44 #printf "%d %s %d", $date_mday, $months[$date_mon], $date_year;
46 "<get-var WML_SRC_ISOTIME>" =~ /^(\d+)-(\d+)-(\d+)\s/;
48 printf "Last modified: %d. %s %d", $3, $months[$2], $1;
52 # ========== Abstand berechnen ==========
53 # in ePerl: $root_prefix
54 # in WML: <get-var root_prefix>
56 $root_prefix = "<get-var WML_SRC_DIRNAME>";
57 $root_prefix =~ s/^.*src\/?(.*)$/$1/;
58 @foo = split (/\//, $root_prefix);
59 $root_prefix = "../"x($#foo+1);
61 <if <not <get-var root_prefix>>
62 <define-tag root_prefix><: print "$root_prefix"; :></define-tag>
63 "<: $root_var = \"<get-var root_prefix>\"; :>"