From: Joey Schulze <joey@infodrom.org>
Date: Sat, 3 Jun 2000 08:58:41 +0000 (+0000)
Subject:  . HTML-Tabellen korrigieren (wml::std::box) mit fix-Target
X-Git-Tag: www-infodrom-ffis-de_2001-01-04~10
X-Git-Url: https://git.infodrom.org/?p=infodrom.org%2Fwww.infodrom.org;a=commitdiff_plain;h=784e5946beedb7fbd3cafb3cd5af5c27dbccf3c4

 . HTML-Tabellen korrigieren (wml::std::box) mit fix-Target
 . <phpmehr> eingeführt
 . fixhtml korrigiert, hat kein PHP erkannt...
 . News hinzugefügt, als Verzeichnis und als Menü
 . Schriftgröße im Hauptmenü heruntergeschraubt
 . root_prefix eingebaut (dat fehlte...)
---

diff --git a/Makefile b/Makefile
index 64bf2b1c..c96ae7a6 100644
--- a/Makefile
+++ b/Makefile
@@ -14,7 +14,13 @@ test:
 	rsync -lptr $(FILES) src/ $(TEST)/
 #	cd src && for f in *.html; do cp $$f $(TEST)/$$f; done
 
-install:
+fix:
+	for f in src/index.*.shtml; do \
+	  sed 's/width="40"/width="190"/' < $$f > tmp; \
+	  mv -f tmp $$f; \
+	done
+
+install: fix
 	test -d $(DEST) || mkdir $(DEST)
 	rsync -lptr $(FILES) src/ $(DEST)/
 #	cd src && for f in *.html; do cp $$f $(DEST)/$$f; done
@@ -23,4 +29,3 @@ clean:
 	-rm -f `find -name '*~'` `find -name '.?*.swp'`
 	-cd src && make clean
 	-cd Styles && make clean
-
diff --git a/Styles/basic.style b/Styles/basic.style
index 23f474d5..330339ee 100644
--- a/Styles/basic.style
+++ b/Styles/basic.style
@@ -14,6 +14,9 @@
 <define-tag box-bgcolor><bgcolor></define-tag>
 <define-tag box-fgcolor>1014e8</define-tag>
 
+<define-tag mehr><img src="http://oldenburger.linuxtage.de/gifs/lt2k-mehr.gif" width=45 height=14 alt="*mehr*"></define-tag>
+<define-tag phpmehr><img src=\"http://oldenburger.linuxtage.de/gifs/lt2k-mehr.gif\" width=\"45\" height=\"14\" alt=\"*mehr*\" border=\"0\"></define-tag>
+
 # Page footer
 #
 <define-tag page-footer>
@@ -32,4 +35,16 @@ printf "Last modified: %d. %s %d", $1, $months[$2], $3;
 :></address>
 </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>" :>>
 
diff --git a/bin/fixsuffix b/bin/fixsuffix
index 8f6f338f..e639d8be 100755
--- a/bin/fixsuffix
+++ b/bin/fixsuffix
@@ -15,7 +15,7 @@ do
 	base=${f%.html}
 	mv -f $f $base.shtml
     else
-        if grep -q '<!--[ ]*#include' $f
+        if grep -q '<?' $f
 	then
 	    base=${f%.html}
 	    mv -f $f $base.php3
diff --git a/src/Infodrom/goal.wml b/src/Infodrom/goal.wml
new file mode 100644
index 00000000..cbdced98
--- /dev/null
+++ b/src/Infodrom/goal.wml
@@ -0,0 +1,51 @@
+#include <infodrom.style>
+
+<page title="Infodrom Oldenburg - Zielsetzung">
+
+<h1 align=center>Infodrom Oldenburg - Zielsetzung</h1>
+
+Infodrom Oldenburg ist ein öffentliches Informationssystem im Verbund
+des <a href="http://www.ffis.de/">ffis e.V.</a>.  Informationen und
+Dienste werden der Allgemeinheit uneigennützig zur Verfügung
+gestellt.<p>
+
+Ursprünglich lag der Schwerpunkt des Systems in der Bereitstellung von
+günstigen Zugängen zum Internet für Privatpersonen.  Im Zuge dessen
+wurde ein UUCP-Server aufgebaut sowie diese Dienstleistung im <a
+href="artis.html">Artis</a>-Netz angeboten.  Der Schwerpunkt hat sich
+zwar verlagert, dennoch ist die Bereitstellung von UUCP-Zugängen für
+Privatpersonen immer noch ein wichtiges Anliegen von Infodrom
+Oldenburg.<p>
+
+Der zweite Schwerpunkt des Systems liegt im Anbieten und Aufbereiten
+von Informationen und Software für die Allgemeinheit.  Freie Software
+hat sich als wichtiges Standbein herauskristalisiert und wird
+entsprechend von Infodrom Oldenburg unterstützt.  Verschiedenen
+Projekten aus dem eigenen Hause werden Plattformen zur Verfügung
+gestellt.<p>
+
+Die Pflege eines FTP-Servers, der sich vor allem den kleinen Projekten
+widmet und ihnen Platz einräumt, gehört dazu.  Ebenfalls wichtig ist
+die Wartung des Webservers, der viele Informationen zu verschiedenen
+Bereichen, vor allem im Netzwerkbereich, anbietet.  Zu
+unterschiedlichen Themen werden Texte gesammelt oder slebst verfaßt
+und im Netz veröffentlicht.<p>
+
+So laufen z.B. die Webserver <a
+href="http://www.linuxger.de/">www.linuxger.de</a>, <a
+href="http://oldenburg.linux.de/">oldenburg.linux.de</a>, <a
+href="http://oldenburger.linuxtage.de/">oldenburger.linuxtage.de</a>
+und <a href="http://www.ffis.de/">www.ffis.de</a> auf den Servern von
+Infodrom Oldenburg bzw. haben ihren inoffiziellen Master-Server
+dort.<p>
+
+Zu diesem Zweck existieren seit mehreren Jahren eine permanente
+Anbindung an das Internet sowie mehrere Modem- und ISDN-Zugänge.
+
+</page>
+
+# Local variables:
+# mode: html
+# mode: auto-fill
+# mode: iso-accents
+# end:
diff --git a/src/Infodrom/index.wml b/src/Infodrom/index.wml
index e6fddd7e..e01d4985 100644
--- a/src/Infodrom/index.wml
+++ b/src/Infodrom/index.wml
@@ -4,14 +4,12 @@
 
 <h1 align=center>Infodrom Oldenburg</h1>
 
+<h3>Allgemeines</h3>
+
 Infodrom Oldenburg ist ein Informationssystem im Verbund des <a
 href="http://www.ffis.de/">ffis e.V.</a>.  Das System stellt seine
 Dienstleistungen komplett auf nicht-kommerzieller Basis zur Verfügung.
-
-<h3>Allgemeines</h3>
-
-Infodrom Oldenburg ist eine Informationssystem (daher auch der
-Name).  Es soll Privatpersonen (und in gewissem Maße auch
+Es soll Privatpersonen (und in gewissem Maße auch
 gemeinnützigen Organisationen) die Möglichkeit geben, am
 Usenet und Internet teilzunehmen, vom Netz zu profitieren, Daten der
 breiten Netzgemeinde zur Verfügung zu stellen und mit dieser zu
diff --git a/src/Infodrom/submenu.inc b/src/Infodrom/submenu.inc
index 065c579d..4dfb772c 100644
--- a/src/Infodrom/submenu.inc
+++ b/src/Infodrom/submenu.inc
@@ -5,6 +5,11 @@
   Historie
 ><br>
 
+<ifneq <get-var WML_SRC_BASENAME> "goal"
+  <a href="goal.html">Ziel</a>
+  Ziel
+><br>
+
 <ifneq <get-var WML_SRC_BASENAME> "network"
   <a href="network.html">Netzwerk</a>
   Netzwerk
diff --git a/src/Makefile b/src/Makefile
index 35d4d24a..71b10c6f 100644
--- a/src/Makefile
+++ b/src/Makefile
@@ -12,7 +12,7 @@ IFLAGS = -I. -I$(ROOT_PREFIX)../Styles
 .SUFFIXES: .wml .html
 
 .wml.html:
-	/usr/bin/wml -n $(IFLAGS) $*.wml| sed 's:"[a-zA-Z0-9_\.]*\.imgdot-1x1-transp\.gif":"$(ROOT_PREFIX)gifs/imgdot-1x1-transp.gif":' > $*.html
+	/usr/bin/wml -n $(IFLAGS) $*.wml| sed 's:"[a-zA-Z0-9_\.-]*\.imgdot-1x1-transp\.gif":"$(ROOT_PREFIX)gifs/imgdot-1x1-transp.gif":' > $*.html
 	$(ROOT_PREFIX)../bin/fixsuffix $*.html
 
 all: $(FILES)
diff --git a/src/News/index.wml b/src/News/index.wml
new file mode 100644
index 00000000..21e613f6
--- /dev/null
+++ b/src/News/index.wml
@@ -0,0 +1,72 @@
+#include <basic.style>
+#include "../index-tools.pl"
+
+<html>
+<head><title>Infodrom Oldenburg - News</title></head>
+
+<body-tag>
+
+<h1 align=center><font face="Helvetica,Arial">Infodrom Oldenburg</font><hr width=90% align=center></h1>
+
+<: main_menu (('Infodrom','Linux','Debian','Linx','Projects','News')); :>
+
+<font face="Helvetica,Arial">
+<?
+  $dbh = pg_pconnect ("kuolema", "5432", "web")
+               or die("Unable to connect to SQL server");
+
+  pg_exec ($dbh, "SET DateStyle = 'ISO'") or die("Datenbank-Abfrage!");
+
+  if ($id > 0) {
+    $query = "SELECT * FROM news WHERE id = '$id'";
+    $sth = pg_exec ($dbh, $query);
+
+    if (pg_NumRows ($sth) > 0) {
+      $row = pg_fetch_array ($sth, 0);
+      if ($row['deleted'] == 0) {
+        $date = explode (" ", $row['releasedate']);
+        $date = explode ("-", $date[0]);
+        $date = sprintf ("%d.%d.%d", $date[2], $date[1], $date[0]);
+
+        printf ("<h3>%s</h3>", $row['subject']);
+        printf ("<h5>Von <a href=\"mailto:%s\">%s</a>, %s</h5>", $row['email'], $row['author'], $date);
+        printf ("<b>%s</b><p>", $row['teaser']);
+        echo ereg_replace ("<newline>", "
+", ereg_replace ("<newline><newline>","<p>", ereg_replace ("
+", "<newline>", $row['body'])));
+
+
+      }
+    }
+    echo "<p><a href=\"shownews.php3\">Ältere Nachrichten</a><p>";
+  } else {
+    $query = "SELECT id,subject,author,releasedate,teaser,body FROM news "
+           . "WHERE deleted = 0 AND releasedate < now() AND teaser <> '' "
+           . "ORDER BY releasedate DESC,insertd DESC";
+    $sth = pg_exec ($dbh, $query) or die("Datenbank-Abfrage!");
+
+    for ($nr=0; $nr < pg_NumRows ($sth); $nr++) {
+      $row = pg_fetch_array ($sth, $nr);
+      $date = explode (" ", $row['releasedate']);
+      $date = explode ("-", $date[0]);
+      $date = sprintf ("%d.%d.%d", $date[2], $date[1], $date[0]);
+      printf ("<b>%s</b><br>%s", $row['subject'], $row['teaser']);
+      if (strlen ($row['body']) > 0) {
+        printf (" <a href=\"shownews.php3?id=%d\"><phpmehr></a>", $row['id']);
+      }
+      printf ("<br>(<font size=\"-1\">%s, %s</font>)<p>", $row['author'], $date);
+
+    }
+  }
+?>
+</font>
+
+<page-footer>
+</body>
+</html>
+
+# Local variables:
+# mode: indented-text
+# mode: auto-fill
+# mode: iso-accents
+# end:
diff --git a/src/index-tools.pl b/src/index-tools.pl
index 345935dc..bfb46420 100644
--- a/src/index-tools.pl
+++ b/src/index-tools.pl
@@ -1,5 +1,7 @@
 <:
 
+$fsize = " size=-1";
+
 # Hauptmenü generieren
 
 sub main_menu {
@@ -14,12 +16,12 @@ sub main_menu {
 		printf "<th align=center width=%d%% bgcolor=#%s>", $width, $color;
 		print "<font size-=5 color=\"#<menu-bgcolor>\"> · </font>"
 		    if ($rubrik ne $dirs[0]);
-		printf "<font face=\"Helvetica,Arial\" color=\"#<menu-fgcolor>\">%s</font></th>\n", $rubrik;
+		printf "<font$fsize face=\"Helvetica,Arial\" color=\"#<menu-fgcolor>\">%s</font></th>\n", $rubrik;
 	    } else {
 		printf "<th align=center width=%d%% bgcolor=#%s>", $width, $color;
 		print "<font size-=5 color=\"#<menu-bgcolor>\"> · </font>"
 		    if ($rubrik ne $dirs[0]);
-		printf "<font face=\"Helvetica,Arial\" color=\"#<menu-fgcolor>\"><a href=%s%s/>%s</a></font></th>\n",
+		printf "<font$fsize face=\"Helvetica,Arial\" color=\"#<menu-fgcolor>\"><a href=%s%s/>%s</a></font></th>\n",
 			$root_prefix, $rubrik, $rubrik;
 	    }
 	} else {
@@ -27,7 +29,7 @@ sub main_menu {
 	    printf "<th align=center width=%d%% bgcolor=#%s>", $width, $color;
 	    print "<font size-=5 color=\"#<menu-bgcolor>\"> · </font>"
 		if ($rubrik ne $dirs[0]);
-	    printf "<font face=\"Helvetica,Arial\" color=\"#<menu-fgcolor>\"><a href=%s%s/>%s</a></font></th>\n",
+	    printf "<font$fsize face=\"Helvetica,Arial\" color=\"#<menu-fgcolor>\"><a href=%s%s/>%s</a></font></th>\n",
 		$root_prefix, $rubrik, $rubrik;
 	}
     }
@@ -77,7 +79,7 @@ sub specials_menu
 	while ($i <= $#keys) {
 	    print "<tr>" if (! ($i % $tabwidth));
 
-	    $foo = sprintf ("<font face=\"Helvetica,Arial\" color=\"#<menu-fgcolor>\"><a href=\"%s\">%s</a></font>"
+	    $foo = sprintf ("<font$fsize face=\"Helvetica,Arial\" color=\"#<menu-fgcolor>\"><a href=\"%s\">%s</a></font>"
 			    , $keys[$i], $elems{$keys[$i]});
 	    printf "<td align=center width=%d%% bgcolor=#<menu-bgcolor>>%s\n",
 	        $width, $foo;
diff --git a/src/index.html.de.wml b/src/index.html.de.wml
index 2d11a479..c8da8e88 100644
--- a/src/index.html.de.wml
+++ b/src/index.html.de.wml
@@ -23,7 +23,7 @@
 </table><p>
 # End warning
 
-<: main_menu (('Infodrom','Linux','Debian','Linx','Projects')); :>
+<: main_menu (('Infodrom','Linux','Debian','Linx','Projects','News')); :>
 
 <p><center><quotebox-de-shtml index-fortune.html></center>
 
diff --git a/src/index.html.en.wml b/src/index.html.en.wml
index 70b855e8..61e0c7a1 100644
--- a/src/index.html.en.wml
+++ b/src/index.html.en.wml
@@ -23,7 +23,7 @@
 </table><p>
 # End warning
 
-<: main_menu (('Infodrom','Linux','Debian','Linx','Projects')); :>
+<: main_menu (('Infodrom','Linux','Debian','Linx','Projects','News')); :>
 
 <p><center><quotebox-en-shtml index-fortune.html></center>