. 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 64bf2b1..c96ae7a 100644 (file)
--- 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
 
        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
        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
        -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 23f474d..330339e 100644 (file)
--- 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 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>
 # Page footer
 #
 <define-tag page-footer>


@@ -32,4 +35,16 @@ printf "Last modified: %d. %s %d", $1, $months[$2], $3;
 :></address>
 </define-tag>
 
 :></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 8f6f338..e639d8b 100755 (executable)
--- a/bin/fixsuffix
+++ b/bin/fixsuffix
@@ -15,7 +15,7 @@ do
        base=${f%.html}
        mv -f $f $base.shtml
     else
        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
        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 (file)
index 0000000..cbdced9
--- /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 e6fddd7..e01d498 100644 (file)
--- a/src/Infodrom/index.wml
+++ b/src/Infodrom/index.wml
@@ -4,14 +4,12 @@
 
 <h1 align=center>Infodrom Oldenburg</h1>
 
 
 <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.
 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
 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 065c579..4dfb772 100644 (file)
--- a/src/Infodrom/submenu.inc
+++ b/src/Infodrom/submenu.inc
@@ -5,6 +5,11 @@
   Historie
 ><br>
 
   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
 <ifneq <get-var WML_SRC_BASENAME> "network"
   <a href="network.html">Netzwerk</a>
   Netzwerk

diff --git a/src/Makefile b/src/Makefile
index 35d4d24..71b10c6 100644 (file)
--- a/src/Makefile
+++ b/src/Makefile
@@ -12,7 +12,7 @@ IFLAGS = -I. -I$(ROOT_PREFIX)../Styles
 .SUFFIXES: .wml .html
 
 .wml.html:
 .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)
        $(ROOT_PREFIX)../bin/fixsuffix $*.html
 
 all: $(FILES)

diff --git a/src/News/index.wml b/src/News/index.wml
new file mode 100644 (file)
index 0000000..21e613f
--- /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 345935d..bfb4642 100644 (file)
--- a/src/index-tools.pl
+++ b/src/index-tools.pl
@@ -1,5 +1,7 @@
 <:
 
 <:
 

+$fsize = " size=-1";
+

 # Hauptmenü generieren
 
 sub main_menu {
 # 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 "<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]);
            } 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 {
                        $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 "<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;
        }
     }
                $root_prefix, $rubrik, $rubrik;
        }
     }


@@ -77,7 +79,7 @@ sub specials_menu
        while ($i <= $#keys) {
            print "<tr>" if (! ($i % $tabwidth));
 
        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;
                            , $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 2d11a47..c8da8e8 100644 (file)
--- a/src/index.html.de.wml
+++ b/src/index.html.de.wml
@@ -23,7 +23,7 @@
 </table><p>
 # End warning
 
 </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>
 
 
 <p><center><quotebox-de-shtml index-fortune.html></center>
 

diff --git a/src/index.html.en.wml b/src/index.html.en.wml
index 70b855e..61e0c7a 100644 (file)
--- a/src/index.html.en.wml
+++ b/src/index.html.en.wml
@@ -23,7 +23,7 @@
 </table><p>
 # End warning
 
 </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>
 
 
 <p><center><quotebox-en-shtml index-fortune.html></center>