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

   1 #include <colors.style>
   2
   3 # <imgdot-fname>
   4 #       Insert the filename for the imgdot file
   5 #
   6 # <page-footer>
   7 #       Compute the page footer
   8
   9 # ========== Abstand berechnen ==========
  10 # in ePerl: $root_prefix
  11 # in WML: <get-var root_prefix>
  12 <:
  13   $root_prefix = "<get-var WML_SRC_DIRNAME>";
  14   $root_prefix =~ s/^.*src\/?(.*)$/$1/;
  15   @foo = split (/\//, $root_prefix);
  16   $root_prefix = "../"x($#foo+1);
  17 :>
  18 <if <not <get-var root_prefix>>
  19   <define-tag root_prefix><: print "$root_prefix"; :></define-tag>
  20   "<: $root_var = \"<get-var root_prefix>\"; :>"
  21 >
  22
  23 <define-tag imgdot-fname whitespace=delete>
  24 <root_prefix>pix/imgdot-1x1-transp.gif
  25 </define-tag>
  26
  27 <define-tag page-footer>
  28 <hr><address><font face="Helvetica,Arial"><small>&copy; <a href="http://www.infodrom.org/~joey/">Joey</a>, <:
  29 @months =
  30     ("Dummy", "January", "February", "March", "April", "May", "June",
  31         "July", "August", "September", "October", "November", "December");
  32
  33 "<get-var WML_SRC_ISOTIME>" =~ /^(\d+)-(\d+)-(\d+)\s/;
  34
  35 printf "Last modified: %s %d, %d", $months[$2], $3, $1;
  36 :></small></font></address>
  37 </define-tag>