Adjustments for lists.infodrom.org

diff --git a/Styles/basic.style b/Styles/basic.style
index 64efd1c..398b33c 100644 (file)
--- a/Styles/basic.style
+++ b/Styles/basic.style
@@ -1,10 +1,10 @@
+# File imported from www.infodrom.org/Styles/

 
 # Global color definition
 #
 <define-tag black>000000</define-tag>
 <define-tag white>ffffff</define-tag>
 
 
 # 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 bgcolor>f7f7f7</define-tag>
 <define-tag textcolor>000000</define-tag>
 <define-tag submenubgcolor>ededff</define-tag>


@@ -32,33 +32,8 @@
 # <define-tag cold>#eff0f1</define-tag>
 # <define-tag coln>#ffffff</define-tag>
 
 # <define-tag cold>#eff0f1</define-tag>
 # <define-tag coln>#ffffff</define-tag>
 

-

 <define-tag lightblue>#e2f6ff</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>
-# &copy; = &#169;
-<hr><address>&copy; <a href="http://www.infodrom.ffis.de/">Infodrom Oldenburg</a>, <:
-@months =
-#    ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
-    ("Dummy", "Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember");
-
-#($date_sec,$date_min,$date_hour,$date_mday,$date_mon,$date_year,$date_wday,$date_isdst)
-#    = localtime(); $date_year += 1900;
-#printf "%d %s %d", $date_mday, $months[$date_mon], $date_year;
-
-"<get-var WML_SRC_ISOTIME>" =~ /^(\d+)-(\d+)-(\d+)\s/;
-
-printf "Page source last modified: %d. %s %d", $3, $months[$2], $1;
-:></address>
-</define-tag>
-

 # ========== Abstand berechnen ==========
 # in ePerl: $root_prefix
 # in WML: <get-var root_prefix>
 # ========== Abstand berechnen ==========
 # in ePerl: $root_prefix
 # in WML: <get-var root_prefix>


@@ -87,10 +62,3 @@ printf "Page source last modified: %d. %s %d", $3, $months[$2], $1;
 
 <restore base text href>
 </define-tag>
 
 <restore base text href>
 </define-tag>

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

diff --git a/Styles/infodrom.style b/Styles/infodrom.style
index 41925e4..f74dd60 100644 (file)
--- a/Styles/infodrom.style
+++ b/Styles/infodrom.style
@@ -50,8 +50,8 @@
 #<hr>
 
 # &copy; = &#169;
 #<hr>
 
 # &copy; = &#169;

-<address><small>&copy; <a href="<root_prefix>Infodrom/impressum.html">Infodrom Oldenburg</a>, <:
-$cvsurl = "http://cvs.infodrom.org/www.infodrom.org/%s%s?cvsroot=infodrom.org";
+<address><small>&copy; <a href="http://www.infodrom.org/Infodrom/impressum.html">Infodrom Oldenburg</a>, <:
+$cvsurl = "http://cvs.infodrom.org/lists.infodrom.org/%s%s?cvsroot=infodrom.org";

 @months =
     ("Dummy", "Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember");
 
 @months =
     ("Dummy", "Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember");
 

diff --git a/Styles/menu.style b/Styles/menu.style
index 4f15a25..9cc2cad 100644 (file)
--- a/Styles/menu.style
+++ b/Styles/menu.style
@@ -1,3 +1,5 @@
+# File imported from www.infodrom.org/Styles/
+

 <:
 
   # First the menu definition
 <:
 
   # First the menu definition


@@ -52,10 +54,9 @@ sub main_menu
             $menu_colors{$menu[$index]},
             $menu_name{$menu[$index]};
     } else {
             $menu_colors{$menu[$index]},
             $menu_name{$menu[$index]};
     } else {

-      printf "<td align=\"center\" valign=\"top\" bgcolor=\"#%s\"><a href=\"%s%s/\" target=\"_top\">"
+      printf "<td align=\"center\" valign=\"top\" bgcolor=\"#%s\"><a href=\"http://www.infodrom.org/%s/\" target=\"_top\">"

            ."<font color=\"#ffffff\" face=\"Helvetica,Arial\"><b>%s</b></font></a></td>",
             $menu_colors{$menu[$index]},
            ."<font color=\"#ffffff\" face=\"Helvetica,Arial\"><b>%s</b></font></a></td>",
             $menu_colors{$menu[$index]},

-            $root_prefix,

             $menu[$index],
             $menu_name{$menu[$index]};
     }
             $menu[$index],
             $menu_name{$menu[$index]};
     }

diff --git a/Styles/quote.style b/Styles/quote.style
index 1d9a117..3bb478a 100644 (file)
--- a/Styles/quote.style
+++ b/Styles/quote.style
@@ -1,3 +1,5 @@
+# File imported from www.infodrom.org/Styles/
+

 #use wml::std::box
 
 # <quotebox [lang={deutsch|english}] [type={linux|infodrom|general}]>
 #use wml::std::box
 
 # <quotebox [lang={deutsch|english}] [type={linux|infodrom|general}]>


@@ -14,13 +16,13 @@
   <ifeq "<get-var lang>" "deutsch"  "<set-var error="Leider heute kein Zitat.">">
   <ifeq "<get-var lang>" "english"  "<set-var error="Sorry, no quote today.">">
 
   <ifeq "<get-var lang>" "deutsch"  "<set-var error="Leider heute kein Zitat.">">
   <ifeq "<get-var lang>" "english"  "<set-var error="Sorry, no quote today.">">
 

-  <ifeq "<get-var type>" "infodrom"  "<set-var fortune="<root_prefix>fortune-infodrom.html">">
-  <ifeq "<get-var type>" "linux"     "<set-var fortune="<root_prefix>fortune-linux.html">">
+  <ifeq "<get-var type>" "infodrom"  "<set-var fortune="<root_prefix>../www.infodrom.org/fortune-infodrom.html">">
+  <ifeq "<get-var type>" "linux"     "<set-var fortune="<root_prefix>../www.infodrom.org/fortune-linux.html">">

 
   <ifeq "<get-var type>" "general"
     <ifeq "<get-var lang>" "english"
 
   <ifeq "<get-var type>" "general"
     <ifeq "<get-var lang>" "english"

-      "<set-var fortune="<root_prefix>fortune-general-en.html">"
-      "<set-var fortune="<root_prefix>fortune-general.html">"
+      "<set-var fortune="<root_prefix>../www.infodrom.org/fortune-general-en.html">"
+      "<set-var fortune="<root_prefix>../www.infodrom.org/fortune-general.html">"

     >
   >
 
     >
   >
 


@@ -45,81 +47,3 @@
   <restore lang type btitle error fortune>
 </define-tag>
 
   <restore lang type btitle error fortune>
 </define-tag>
 

-
-
-
-
-
-# -- [ Old ] -----------------------------------------------------------
-#
-# Quote of the day boxes
-#
-# quotebox-de-shtml
-# quotebox-en-shtml
-# quotebox-de-php
-# quotebox-en-php
-#
-
-# FIXME: Schöner wäre es, wenn ich %0 == "" -> .fortune, sonst %0 abfragen könnte
-
-<define-tag quotebox-de-shtml whitespace=delete>
-  <box header="<font size=-1 face="Helvetica,Arial" color="#<box-bdcolor>"><b>Zitat des Tages</b></font>"
-       bdcolor="#<box-bdcolor>" bdwidth=2 bdspace=10
-       bgcolor="#<box-bgcolor>"
-       width=500>
-    <font face="helvetica,arial" size=-1 color="#<box-fgcolor>">
-    <!--#include file="%0"-->
-    </font>
-  </box>
-</define-tag>
-
-<define-tag quotebox-en-shtml whitespace=delete>
-  <box header="<font size=-1 face="Helvetica,Arial" color="#<box-fgcolor>"><b>Quote of the day</b></font>"
-       bdcolor="#<box-bdcolor>" bdwidth=2 bdspace=10
-       bgcolor="#<box-bgcolor>">
-    <font face="helvetica,arial" size=-1 color="#<box-fgcolor>">
-    <!--#include file="%0"-->
-    </font>
-  </box>
-</define-tag>
-
-<define-tag quotebox-en-php whitespace=delete>
-  <box header="<font size=-1 face="Helvetica,Arial" color="#<box-fgcolor>"><b>Zitat des Tages</b></font>"
-       bdcolor="#<box-bdcolor>" bdwidth=2 bdspace=10
-       bgcolor="#<box-bgcolor>">
-    <font face="helvetica,arial" size=-1 color="#<box-fgcolor>">
-<?
-  if ($fortune = fopen ("index-fortune.html", "r")) {
-    while (!feof ($fortune)) {
-      $line = fgets ($fortune, 255);
-      echo $line;
-    }
-    fclose ($fortune);
-  }
-?>
-    </font>
-  </box>
-</define-tag>
-
-<define-tag quotebox-en-php whitespace=delete>
-  <box header="<font size=-1 face="Helvetica,Arial" color="#<box-fgcolor>"><b>Quote of the day</b></font>"
-       bdcolor="#<box-bdcolor>" bdwidth=2 bdspace=10
-       bgcolor="#<box-bgcolor>">
-    <font face="helvetica,arial" size=-1 color="#<box-fgcolor>">
-<?
-  if ($fortune = fopen ("index-fortune.html", "r")) {
-    while (!feof ($fortune)) {
-      $line = fgets ($fortune, 255);
-      echo $line;
-    }
-    fclose ($fortune);
-  }
-?>
-    </font>
-  </box>
-</define-tag>
-
-# Local variables:
-# mode: text
-# mode: auto-fill
-# end:

diff --git a/Styles/tools.inc b/Styles/tools.inc
index 9fbb717..980a9f4 100644 (file)
--- a/Styles/tools.inc
+++ b/Styles/tools.inc
@@ -1,70 +1,4 @@
-# <border color=foo>  zeichnet einen Rahmen
-#
-<define-tag border endtag=required>
-<preserve color width>
-<set-var %attributes>
-<if <not <get-var color>>
-  <set-var color="000000">
->
-<if <not <get-var width>>
-  <set-var width="100%">
->
-
-<table width=<get-var width> border=0 cellpadding=0 cellspacing=0><tr bgcolor=#<get-var color>><td>
-<table width=100% border=0 cellpadding=0 cellspacing=1><tr bgcolor=#<bgcolor>><td>
-<font face="Helvetica,Arial">
-
-%body
-
-</font>
-</td></tr></table>
-</td></tr></table>
-
-<restore color width>
-</define-tag>
-
-# <line> Zeichnet eine Linie
-#
-<define-tag line whitespace=delete>
-<preserve color align width height>
-<set-var %attributes>
-
-<if <not <get-var align>>
-  <set-var align=center>>
-<if <not <get-var color>>
-  <set-var color=000000>>
-<if <not <get-var width>>
-  <set-var width=100%>>
-<if <not <get-var height>>
-  <set-var height=1>>
-
-<div align=<get-var align>>
-<table width=<get-var width> border=0 cellpadding=0 cellspacing=0 bgcolor=<get-var color>>
-<tr><td align=<get-var align>>
-<img src=<root_prefix>gifs/imgdot-1x1-transp.gif width=1 height=<get-var height> alt="------------------------------">
-</td></tr>
-</table>
-</div>
-
-<restore color align width height>
-</define-tag>
-
-# Draws a 80% line in the menu color for submenu.inc
-<define-tag submenuhr>
-<p><line width=80% color="<menucolor>" height=1 align=center><p>
-</define-tag>
-
-# Draws a 100% line in the menu color for normal pages
-<define-tag colorhr whitespace=delete>
-<preserve width>
-<set-var %attributes>
-
-<if <not <get-var width>>
-  <set-var width=100%>>
-
-<line width=<get-var width> color="<menucolor>" height=1 align=center>
-<restore width>
-</define-tag>
+# File imported from www.infodrom.org/Styles/

 
 # Draw a colored box
 #
 
 # Draw a colored box
 #


@@ -83,11 +17,9 @@
   <set-var width=100%>>
 
 <center>
   <set-var width=100%>>
 
 <center>

-# <border>

 <table width=<get-var width> border=0 cellpadding=0 cellspacing=0><tr bgcolor=#<get-var bcolor>><td>
 <table width=100% border=0 cellpadding=0 cellspacing=1><tr bgcolor=#ffffff><td>
 <font face="Helvetica,Arial">
 <table width=<get-var width> border=0 cellpadding=0 cellspacing=0><tr bgcolor=#<get-var bcolor>><td>
 <table width=100% border=0 cellpadding=0 cellspacing=1><tr bgcolor=#ffffff><td>
 <font face="Helvetica,Arial">

-# <border>

 
 <table width=100% border=0 bgcolor="#<get-var bgcolor>" cellpadding=5 cellspacing=0>
 <tr><th align=center><font face="Helvetica,Arial">
 
 <table width=100% border=0 bgcolor="#<get-var bgcolor>" cellpadding=5 cellspacing=0>
 <tr><th align=center><font face="Helvetica,Arial">


@@ -97,82 +29,10 @@
 </font></th></tr>
 </table>
 
 </font></th></tr>
 </table>
 

-# </border>

 </font>
 </td></tr></table>
 </td></tr></table>
 </font>
 </td></tr></table>
 </td></tr></table>

-# </border>

 
 </center>
 <restore bgcolor bcolor width>
 </define-tag>
 
 </center>
 <restore bgcolor bcolor width>
 </define-tag>

-
-# Draws a coloured box with a title, see <root_prefix>Infodrom/web.html
-#
-<define-tag titlebox endtag=required>
-<preserve width title titlebgcolor titlecolor titlebar titlealign titlepadding bordercolor bgcolor>
-<set-var %attributes>
-
-<if <not <get-var width>>
-  <set-var width="100%">
->
-<if <not <get-var titlebgcolor>>
-  <set-var titlebgcolor="<menucolor>">
->
-<if <not <get-var titlecolor>>
-  <set-var titlecolor="<white>">
->
-<if <not <get-var bordercolor>>
-  <set-var bordercolor="<black>">
->
-<if <not <get-var bgcolor>>
-  <set-var bgcolor="<bgcolor>">
->
-<if <not <get-var titlealign>>
-  <set-var titlealign="center">
->
-<if <not <get-var titlepadding>>
-  <set-var titlepadding="5">
->
-
-<ifeq <get-var titlebar> "small" "<div align="<get-var titlealign>">
-<table border=0 cellpadding=0 cellspacing=0><tr bgcolor=#<get-var titlebgcolor>><td align=center>
-<img src=<root_prefix>gifs/imgdot-1x1-transp.gif height=0 width=<get-var titlepadding> alt="">
-<font face="Helvetica,Arial" color="#<get-var titlecolor>"><b><get-var title></b></font>
-<img src=<root_prefix>gifs/imgdot-1x1-transp.gif height=0 width=<get-var titlepadding> alt="">
-</td></tr></table></div>">
-
-#<table width=100% border=0 cellpadding=0 cellspacing=0><tr bgcolor=#<get-var bordercolor>><td>
-<table width=<get-var width> border=0 cellpadding=0 cellspacing=0><tr bgcolor=#<get-var bordercolor>><td>
-<table width=100% border=0 cellpadding=0 cellspacing=1>
-<ifneq <get-var titlebar> "small" "<tr bgcolor=#<get-var titlebgcolor>><td align=center>
-<font face="Helvetica,Arial" color="#<get-var titlecolor>"><b><get-var title></b></font>
-</td></tr>">
-
-<tr bgcolor=#<get-var bgcolor>><td>
-<font face="Helvetica,Arial">
-
-%body
-
-</font>
-</td></tr></table>
-</td></tr></table>
-
-<restore width title titlebgcolor titlecolor titlebar titlealign titlepadding bordercolor bgcolor>
-</define-tag>
-
-<define-tag author endtag=required whitespace=delete>
-<div align=right><font size=-1><em>
-%body
-</em></font></div>
-</define-tag>
-
-<define-tag colorbg endtag=required>
-<preserve bgcolor>
-<set-var %attributes>
-<table width=100% cellpadding=2 cellspacing=0 border=0 bgcolor=<get-var bgcolor>>
-<tr><td><font face="Helvetica,Arial">
-%body
-</font></td></tr></table>
-<restore bgcolor>
-</define-tag>