# Global color definition
#
<define-tag black>000000</define-tag>
<define-tag white>ffffff</define-tag>

#<define-tag bgcolor>39dff7</define-tag>
<define-tag bgcolor>f7f7f7</define-tag>
<define-tag textcolor>000000</define-tag>
<define-tag submenubgcolor>ededff</define-tag>

<define-tag menu-bgcolor>80CCF8</define-tag>
<define-tag menu-bgcolorsel>68A4C8</define-tag>
<define-tag menu-fgcolor>008dfd</define-tag>
<define-tag box-bdcolor>008dfd</define-tag>
<define-tag box-bgcolor><bgcolor></define-tag>
<define-tag box-fgcolor>1014e8</define-tag>
<define-tag box-blue>4876ff</define-tag>

# Generelle Konstanten
#
<define-tag colh>#abdcfc</define-tag>
<define-tag cold>#d7d7d7</define-tag>
<define-tag coln>#ffffff</define-tag>

# Alternatives Farbschema
# <define-tag bgcolor>ffffff</define-tag>
# <define-tag textcolor>000000</define-tag>
# <define-tag submenubgcolor>eff0f1</define-tag>
# 
# <define-tag colh>#abdcfc</define-tag>
# <define-tag cold>#eff0f1</define-tag>
# <define-tag coln>#ffffff</define-tag>

# Font definition
#
<define-tag infodrom-font>Helvetica,Arial,Sans-Serif</define-tag>

<define-tag ifont endtag=required whitespace=delete>
<font face="<infodrom-font />">%body</font>
</define-tag>

<define-tag lightblue>#e2f6ff</define-tag>

#<define-tag mehr><img src="<root_prefix>gifs/lt2k-mehr.gif" width=45 height=14 alt="*mehr*"></define-tag>
#<define-tag phpmehr><img src=\"<root_prefix>gifs/lt2k-mehr.gif\" width=\"45\" height=\"14\" alt=\"*mehr*\" border=\"0\"></define-tag>
<define-tag mehr><img src="<root_prefix>gifs/mehr.gif" width=45 height=14 alt="*mehr*"></define-tag>
<define-tag phpmehr><img src=\"<root_prefix>gifs/mehr.gif\" width=\"45\" height=\"14\" alt=\"*mehr*\" border=\"0\"></define-tag>

# Page footer
#
<define-tag page-footer>
<:
  $giturl = "http://git.infodrom.org/?p=infodrom.org/www.infodrom.org;a=%s;f=%s%s";
  @months = ("Dummy", "January","February","March","April","May","June",
	     "July","August","September","October","November","December");

  "<get-var WML_SRC_ISOTIME>" =~ /^(\d+)-(\d+)-(\d+)\s/;
  $date = sprintf ("%s %d, %d", $months[$2], $3, $1);

  if (length ("<get-var source>")) {
    $url_history = '';
  } else {
    "<get-var WML_SRC_DIRNAME>/" =~ /.*\/(src\/.*)$/;
    $url_history = sprintf($giturl, "history", $1, "<get-var WML_SRC_FILENAME>");
    $url_source = sprintf($giturl, "blob", $1, "<get-var WML_SRC_FILENAME>");
  }
  if (length ($url_history)) {
    $url = sprintf(', page <a href="%s">source</a> <a href="%s">history</a>', $url_source, $url_history);
  }
:>

<div class=footer>
<div class=footerleft>&copy; <a href="<root_prefix>Infodrom/impressum.html">Infodrom Oldenburg</a>&nbsp;&nbsp;<a href="<root_prefix>/datenschutz.html">Datenschutz</a><:=$url:></div>
<div class=footerright>Last modified: <:=$date:></div>
</div>

</define-tag>

# ========== Abstand berechnen ==========
# in ePerl: $root_prefix
# in WML: <get-var root_prefix>
<:
  $root_prefix = "<get-var WML_SRC_DIRNAME>";
  $root_prefix =~ s/^.*src\/?(.*)$/$1/;
  @foo = split (/\//, $root_prefix);
  $root_prefix = "../"x($#foo+1);
:>
<if <not <get-var root_prefix>>
  <define-tag root_prefix><: print "$root_prefix"; :></define-tag>
  "<: $root_var = \"<get-var root_prefix>\"; :>"
>

# Path to the download area
#
<define-tag download whitespace=delete>
<root_prefix>download/
</define-tag>