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 <:
  29   $cvsurl = "http://cvs.infodrom.org/service.infodrom.org/%s%s?cvsroot=infodrom.org";
  30   @months = ("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   $date = sprintf ("%s %d, %d", $months[$2], $3, $1);
  35
  36   if (length ("<get-var source>")) {
  37     if ("<get-var source>" ne ".") {
  38       $url = "<get-var source>";
  39     } else {
  40       $url = '';
  41     }
  42   } else {
  43     "<get-var WML_SRC_DIRNAME>/" =~ /.*\/(src\/.*)$/;
  44     $url = sprintf ($cvsurl, $1, "<get-var WML_SRC_FILENAME>");
  45   }
  46   if (length ($url)) {
  47     $url = sprintf (', <a href="%s">page source</a>', $url);
  48   }
  49 :>
  50
  51 <div class=footer>
  52 <div class=footerleft>&copy; <a href="http://www.infodrom.org/Infodrom/impressum.html">Infodrom Oldenburg</a><:=$url:></div>
  53 <div class=footerright>Last modified: <:=$date:></div>
  54 </div>
  55
  56 </define-tag>