git.infodrom.org Git - infodrom.org/lists.infodrom.org/blob - Styles/infodrom.style

   1 #include <basic.style>
   2 #include <tools.inc>
   3 #include <menu.style>
   4 #use wml::std::box
   5 #use wml::std::info
   6
   7 <define-tag page endtag=required>
   8 <preserve title menugbcolor keywords source>
   9 <set-var %attributes>
  10
  11 <if <not <get-var title>>
  12     <set-var title="Infodrom Oldenburg">>
  13 <if <not <get-var menubgcolor>>
  14     <set-var menubgcolor="<submenubgcolor>">>
  15
  16 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
  17 <html>
  18 <head>
  19 <title><get-var title></title>
  20 <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  21 <meta name="Author"    content="joey@infodrom.org (Martin Schulze)">
  22 <if <get-var keywords>
  23 <meta name="Keywords"  content="<get-var keywords>">
  24 >
  25 <info style=meta domainname="infodrom.org" copyright="(c) Martin Schulze, Infodrom Oldenburg, reuse has to be negotiated">
  26 </head>
  27 <body bgcolor="#<bgcolor>" text="#<textcolor>" vlink="#000090" alink="#e709f7" link="#1717ef">
  28
  29
  30 <: main_menu (); :>
  31 <table border=0 cellpadding=0 cellspacing=0 width=100%>
  32 <tr>
  33 #  <td align=left valign=top width=10% bgcolor=#eff0f1><font face="Helvetica,Arial" size=-1 color="#<menu-fgcolor>">
  34 <td align=left valign=top width=10% bgcolor=#<get-var menubgcolor>><font face="Helvetica,Arial" size=-1 color="#<menucolor>">
  35
  36 #include "submenu.inc"
  37
  38   <p>
  39   </font></td>
  40   <td valign=top><img src=<root_prefix>gifs/imgdot-1x1-transp.gif width=3 height=0 alt=""></td>
  41   <td valign=top align=left width=90%><font face="Helvetica,Arial">
  42
  43 %body
  44
  45   </font></td>
  46 </tr>
  47 </table>
  48
  49 <line color=<menu-fgcolor> height=1 align=center>
  50 #<hr>
  51
  52 # &copy; = &#169;
  53 <address><small>&copy; <a href="http://www.infodrom.org/Infodrom/impressum.html">Infodrom Oldenburg</a>, <:
  54 $cvsurl = "http://cvs.infodrom.org/lists.infodrom.org/%s%s?cvsroot=infodrom.org";
  55 @months =
  56     ("Dummy", "Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember");
  57
  58 "<get-var WML_SRC_ISOTIME>" =~ /^(\d+)-(\d+)-(\d+)\s/;
  59 printf "last modified: %s %d, %d", $months[$2], $3, $1;
  60
  61 if (length ("<get-var source>")) {
  62     if ("<get-var source>" ne ".") {
  63         $url = "<get-var source>";
  64     } else {
  65         $url = '';
  66     }
  67 } else {
  68     "<get-var WML_SRC_DIRNAME>/" =~ /.*\/(src\/.*)$/;
  69     $url = sprintf ($cvsurl, $1, "<get-var WML_SRC_FILENAME>");
  70 }
  71
  72 printf ", <a href=\"%s\">page source</a>", $url if (length ($url));
  73
  74 print ".";
  75 :></small></address>
  76
  77 </body>
  78 </html>
  79 <restore title menubgcolor keywords source>
  80 </define-tag>
  81
  82 <define-tag flaglink whitespace=delete>
  83 <preserve url lang>
  84 <set-var %attributes>
  85 <div align=right>
  86 <a href="<get-var url>"><img src="<root_prefix>gifs/flag-<get-var lang>.gif" width=20 height=13 border=0 alt="<get-var lang>"></a>
  87 </div>
  88 # The events pages need an extra space between flag and red line
  89 <:
  90   if ("<get-var WML_SRC_DIRNAME>" =~ /src\/Debian\/events\/.*/) {
  91     print "<p>";
  92   }
  93 :>
  94 <restore url lang>
  95 </define-tag>
  96
  97 <define-tag frontad>
  98 <table width=100% border=0>
  99 <tr>
 100   <td align=left valign=top>
 101      <a href="http://www.linuxtag.org/"><img src="<root_prefix>gifs/lt2kblue.gif" width=100 height=66 alt="LinuxTag 2003 - July 10-13 2003" border=0></a>
 102 #     <font face="Helvetica,Arial"><a href="http://oldenburger.linuxtage.de/"><b>Oldenburger LinuxTag</b></a></font>
 103   </td>
 104   <td align=right valign=top>
 105      <a href="<root_prefix>Linux/"><img src="<root_prefix>gifs/powered_by_linux.gif" alt="Powered by Linux" width=180 height=70 border=0></a>
 106   </td>
 107 </tr>
 108 </table>
 109 </define-tag>
 110
 111 # <db>
 112 #   Name der Haupt-Datenbank fuer diesen Bereich
 113 #
 114 #   OBSOLETE!!!!!!!!!!
 115 <define-tag db>web</define-tag>