2 # Global color definition
4 #<define-tag bgcolor>39dff7</define-tag>
5 <define-tag bgcolor>ffffff</define-tag>
6 <define-tag textcolor>00000000</define-tag>
8 <body bgcolor="#<bgcolor>" text="#<textcolor>" vlink="#000090" alink="#e709f7" link="#1717ef">
10 <define-tag menu-bgcolor>80CCF8</define-tag>
11 <define-tag menu-bgcolorsel>68A4C8</define-tag>
12 <define-tag menu-fgcolor>008dfd</define-tag>
13 <define-tag box-bdcolor>008dfd</define-tag>
14 <define-tag box-bgcolor><bgcolor></define-tag>
15 <define-tag box-fgcolor>1014e8</define-tag>
17 <define-tag mehr><img src="http://oldenburger.linuxtage.de/gifs/lt2k-mehr.gif" width=45 height=14 alt="*mehr*"></define-tag>
18 <define-tag phpmehr><img src=\"http://oldenburger.linuxtage.de/gifs/lt2k-mehr.gif\" width=\"45\" height=\"14\" alt=\"*mehr*\" border=\"0\"></define-tag>
22 <define-tag page-footer>
24 <hr><address>© <a href="http://www.infodrom.ffis.de/">Infodrom Oldenburg</a>, <:
26 # ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
27 ("Dummy", "Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember");
29 #($date_sec,$date_min,$date_hour,$date_mday,$date_mon,$date_year,$date_wday,$date_isdst)
30 # = localtime(); $date_year += 1900;
31 #printf "%d %s %d", $date_mday, $months[$date_mon], $date_year;
33 "<get-var WML_SRC_ISOTIME>" =~ /^(\d+)-(\d+)-(\d+)\s/;
35 printf "Last modified: %d. %s %d", $1, $months[$2], $3;
39 # ========== Abstand berechnen ==========
40 # in ePerl: $root_prefix
41 # in WML: <get-var root_prefix>
43 $root_prefix = "<get-var WML_SRC_DIRNAME>";
44 $root_prefix =~ s/^.*src\/?(.*)$/$1/;
45 @foo = split (/\//, $root_prefix);
46 $root_prefix = "../"x($#foo+1);
48 <if <not <get-var root_prefix>>
49 <define-tag root_prefix><: print "$root_prefix"; :></define-tag>
50 <: $root_var = "<get-var root_prefix>" :>>