git.infodrom.org Git - infodrom.org/www.infodrom.org/blob - Styles/basic.style

   1
   2 # Global color definition
   3 #
   4 #<define-tag bgcolor>39dff7</define-tag>
   5 <define-tag bgcolor>ffffff</define-tag>
   6 <define-tag textcolor>00000000</define-tag>
   7 <define-tag body-tag>
   8 <body bgcolor="#<bgcolor>" text="#<textcolor>" vlink="#000090" alink="#e709f7" link="#1717ef">
   9 </define-tag>
  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>
  16
  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>
  19
  20 # Page footer
  21 #
  22 <define-tag page-footer>
  23 <hr><address>&#169 <a href="http://www.infodrom.ffis.de/">Infodrom Oldenburg</a>, <:
  24 @months =
  25 #    ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
  26     ("Dummy", "Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember");
  27
  28 #($date_sec,$date_min,$date_hour,$date_mday,$date_mon,$date_year,$date_wday,$date_isdst)
  29 #    = localtime(); $date_year += 1900;
  30 #printf "%d %s %d", $date_mday, $months[$date_mon], $date_year;
  31
  32 "<get-var WML_SRC_ISOTIME>" =~ /^(\d+)-(\d+)-(\d+)\s/;
  33
  34 printf "Last modified: %d. %s %d", $1, $months[$2], $3;
  35 :></address>
  36 </define-tag>
  37
  38 # ========== Abstand berechnen ==========
  39 # in ePerl: $root_prefix
  40 # in WML: <get-var root_prefix>
  41 <:
  42   $root_prefix = "<get-var WML_SRC_DIRNAME>";
  43   $root_prefix =~ s/^.*src\/?(.*)$/$1/;
  44   @foo = split (/\//, $root_prefix);
  45   $root_prefix = "../"x($#foo+1);
  46 :>
  47 <if <not <get-var root_prefix>>
  48   <define-tag root_prefix><: print "$root_prefix"; :></define-tag>
  49   <: $root_var = "<get-var root_prefix>" :>>
  50