git.infodrom.org Git - infodrom.org/www.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 <: main_menu (); :>
  30 <table border=0 cellpadding=0 cellspacing=0 width=100%>
  31 <tr>
  32 #  <td align=left valign=top width=10% bgcolor=#eff0f1><ifont><font size=-1 color="#<menu-fgcolor>">
  33 <td align=left valign=top width=10% bgcolor=#<get-var menubgcolor>><ifont><font size=-1 color="#<menucolor>">
  34
  35 #include "submenu.inc"
  36
  37   <p>
  38   </font></ifont></td>
  39   <td valign=top><img src=<root_prefix>gifs/imgdot-1x1-transp.gif width=3 height=0 alt=""></td>
  40   <td valign=top align=left width=90%><ifont>
  41
  42 %body
  43
  44   </ifont></td>
  45 </tr>
  46 </table>
  47
  48 <line color=<menu-fgcolor> height=1 align=center>
  49 #<hr>
  50
  51 # &copy; = &#169;
  52 <address><small>&copy; <a href="<root_prefix>Infodrom/impressum.html">Infodrom Oldenburg</a>, <:
  53 $cvsurl = "http://cvs.infodrom.org/www.infodrom.org/%s%s?cvsroot=infodrom.org";
  54 @months =
  55     ("Dummy", "January","February","March","April","May","June","July","August","September","October","November","December");
  56
  57 if (length ("<get-var source>")) {
  58     if ("<get-var source>" ne ".") {
  59         $url = "<get-var source>";
  60     } else {
  61         $url = '';
  62     }
  63 } else {
  64     "<get-var WML_SRC_DIRNAME>/" =~ /.*\/(src\/.*)$/;
  65     $url = sprintf ($cvsurl, $1, "<get-var WML_SRC_FILENAME>");
  66 }
  67
  68 "<get-var WML_SRC_ISOTIME>" =~ /^(\d+)-(\d+)-(\d+)\s/;
  69 if (length ($url)) {
  70     printf "<a href=\"%s\">page source</a> last modified: %s %d, %d.", $url, $months[$2], $3, $1;
  71 } else {
  72     printf "page source last modified: %s %d, %d.", $months[$2], $3, $1;
  73 }
  74 :></small></address>
  75
  76 </body>
  77 </html>
  78 <restore title menubgcolor keywords source>
  79 </define-tag>
  80
  81 <define-tag flaglink whitespace=delete>
  82 <preserve url lang>
  83 <set-var %attributes>
  84 <div align=right>
  85 <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>
  86 </div>
  87 # The events pages need an extra space between flag and red line
  88 <:
  89   if ("<get-var WML_SRC_DIRNAME>" =~ /src\/Debian\/events\/.*/) {
  90     print "<p>";
  91   }
  92 :>
  93 <restore url lang>
  94 </define-tag>
  95
  96 <define-tag frontad>
  97 <table width=100% border=0>
  98 <tr>
  99   <td align=left valign=top>
 100      <a href="http://www.linuxtag.org/"><img src="<root_prefix>gifs/lt2kblue.gif" width=100 height=66 alt="LinuxTag 2004 - Summer 2004" border=0></a>
 101 #     <ifont><a href="http://oldenburger.linuxtage.de/"><b>Oldenburger LinuxTag</b></a></ifont>
 102   </td>
 103   <td align=right valign=top>
 104      <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>
 105   </td>
 106 </tr>
 107 </table>
 108 </define-tag>
 109
 110 # <db>
 111 #   Name der Haupt-Datenbank fuer diesen Bereich
 112 #
 113 #   OBSOLETE!!!!!!!!!!
 114 <define-tag db>web</define-tag>