From 9ece2d5211301e59a0254bf2384480dd2cc9ffe0 Mon Sep 17 00:00:00 2001 From: Joey Schulze Date: Sun, 19 Nov 2000 21:03:04 +0000 Subject: [PATCH] Erste Version, die ersten Dateien --- Makefile | 33 +++++++++ Styles/infocon.style | 147 +++++++++++++++++++++++++++++++++++++++++ bin/fixsuffix | 24 +++++++ bin/wmldepend.sh | 54 +++++++++++++++ src/Makefile | 29 ++++++++ src/index.wml | 18 +++++ src/infos/credits.wml | 24 +++++++ src/infos/debian.wml | 113 +++++++++++++++++++++++++++++++ src/infos/freesw.wml | 63 ++++++++++++++++++ src/infos/index.wml | 18 +++++ src/infos/linux.wml | 34 ++++++++++ src/infos/submenu.inc | 26 ++++++++ src/infos/webpages.wml | 44 ++++++++++++ src/kontakt.wml | 24 +++++++ src/submenu.inc | 7 ++ 15 files changed, 658 insertions(+) create mode 100644 Makefile create mode 100644 Styles/infocon.style create mode 100755 bin/fixsuffix create mode 100755 bin/wmldepend.sh create mode 100644 src/Makefile create mode 100644 src/index.wml create mode 100644 src/infos/credits.wml create mode 100644 src/infos/debian.wml create mode 100644 src/infos/freesw.wml create mode 100644 src/infos/index.wml create mode 100644 src/infos/linux.wml create mode 100644 src/infos/submenu.inc create mode 100644 src/infos/webpages.wml create mode 100644 src/kontakt.wml create mode 100644 src/submenu.inc diff --git a/Makefile b/Makefile new file mode 100644 index 0000000..ad1260f --- /dev/null +++ b/Makefile @@ -0,0 +1,33 @@ +DEST = /var/lib/webspace/infocon.infodrom.org + +TEST = $(HOME)/public_html/ic/infocon + +FILES = --exclude "CVS/" --exclude "*imgdot-1x1-transp.gif" --include "*/" +FILES+= --include "*.jpg" --include "*.html" --include "*.shtml" --include "*.php3" --include "*.gif" +FILES+= --exclude "*" + +build: + cd src && make all + +test: + test -d $(TEST) || mkdir $(TEST) + rsync -lptr $(FILES) src/ $(TEST)/ +# cd src && for f in *.html; do cp $$f $(TEST)/$$f; done + +fix: +# for f in src/index.*.php3; do \ +# sed '1,/width="40"/ s/width="40"/width="250"/' < $$f > tmp; \ +# mv -f tmp $$f; \ +# sed '1,/width="40"/ s/width="40"/width="400"/' < $$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 + +clean: + -rm -f `find -name '*~'` `find -name '.?*.swp'` + -cd src && make clean + -cd Styles && make clean diff --git a/Styles/infocon.style b/Styles/infocon.style new file mode 100644 index 0000000..a146f3e --- /dev/null +++ b/Styles/infocon.style @@ -0,0 +1,147 @@ +# ========== Abstand berechnen ========== +# in ePerl: $root_prefix +# in WML: +<: + $root_prefix = ""; + $root_prefix =~ s/^.*src\/?(.*)$/$1/; + @foo = split (/\//, $root_prefix); + $root_prefix = "../"x($#foo+1); +:> +> + <: print "$root_prefix"; :> + "<: $root_var = \"\"; :>" +> + + +# ========== Page footer ========== +# +# Sollte eigentlich in
eingefaßt sein, kursiv sieht's aber nicht aus. +# + +# © = © +© InfoCon, <: +@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; + +"" =~ /^(\d+)-(\d+)-(\d+)\s/; + +printf "Last modified: %d. %s %d", $1, $months[$2], $3; +:> + + + +# ========== Page ========== +# +10 + + + +> + > + +> + + +> + + +<get-var title> + + + + + + + + + + + + + + + + + + + + + +
[InfoCon]> +

Information & Consulting

+ +# Anfang der Menü-Tabelle + + + + + + + +# Untere Zeile, nur die Ecken + + + + +
+ +<: + @menu = ('Infos','Dienstleistungen','Shop'); + %menu_dir = ('Infos' => 'infos', + 'Dienstleistungen' => 'service', + 'Shop' => 'shop', + ); + %menu_width = ('Infos' => 50, + 'Dienstleistungen' => 120, + 'Shop' => 50, + ); + $menu_default = 'hspace="4" vspace="7" height="18" align="middle" border="0"'; + + foreach $rubrik (@menu) { + $dir = $menu_dir{$rubrik}; + if ("" =~ /src\/$dir/) { + if ("" eq "index") { + # No link + printf '[%s]', + $root_prefix, $dir, $menu_width{$rubrik}, $rubrik, $menu_default; + } else { + # We're in but link required + printf '[%s]', + $root_prefix, $dir, $root_prefix, $dir, $menu_width{$rubrik}, $rubrik, $menu_default; + } + } else { + # Link required + printf '[%s]', + $root_prefix, $dir, $root_prefix, $dir, $menu_width{$rubrik}, $rubrik, $menu_default; + } + } +:> + +
+# Ende der Menü-Tabelle +
+ + + + +#include "submenu.inc" + + + +> + + %body + +
+ + + >
+ + + +
diff --git a/bin/fixsuffix b/bin/fixsuffix new file mode 100755 index 0000000..e639d8b --- /dev/null +++ b/bin/fixsuffix @@ -0,0 +1,24 @@ +#! /bin/bash + +# Fixes file suffix +# +# .html -> .shtml +# Require "