From: Adam Dickmeiss Date: Mon, 23 Oct 1995 17:04:16 +0000 (+0000) Subject: Added some initial z39 gateway scripts. X-Git-Url: http://sru.miketaylor.org.uk/cgi-bin?a=commitdiff_plain;h=d66a4b9debb168d9a03368429bcc933c57553c74;p=egate.git Added some initial z39 gateway scripts. --- diff --git a/www/Makefile b/www/Makefile index 5f12e0f..8d73a0e 100644 --- a/www/Makefile +++ b/www/Makefile @@ -2,7 +2,10 @@ # Europagate, 1995 # # $Log: Makefile,v $ -# Revision 1.3 1995/10/23 16:55:33 adam +# Revision 1.4 1995/10/23 17:04:16 adam +# Added some initial z39 gateway scripts. +# +# Revision 1.3 1995/10/23 16:55:33 adam # A lot of changes - really. # # Revision 1.2 1995/10/20 14:02:40 adam @@ -15,9 +18,11 @@ SHELL=/bin/sh INCLUDE=-I../include #CFLAGS=-g -Wall -pedantic -ansi OLIB=../lib/libres+log.a -TCLLIB=/usr/local/lib/libtcl7.4.a -WSCRIPTS=egwscript +TCLLIB=/usr/local/lib/libtcl7.5.a +WSCRIPTS=egwscript targets.egw query.egw search.egw HSCRIPTS=egwindex.html +CONFFILES=ztargets.conf +GIFFILES=webgate.gif TPROG1=egwcgi TPROG2=egwsh TPROG3=wtest @@ -30,6 +35,8 @@ DEFS=$(INCLUDE) HTTPDDIR=/usr/local/etc/httpd CGIBIN=$(HTTPDDIR)/cgi-bin HTDOCS=$(HTTPDDIR)/htdocs +CONFDIR=$(HTTPDDIR)/conf +GIFDIR=$(HTDOCS)/gif all: $(TPROG1) $(TPROG2) @@ -58,6 +65,14 @@ install: $(TPROG1) $(TPROG2) echo Installing $$x; \ cp $$x $(HTDOCS); \ done + @for x in $(CONFFILES); do \ + echo Installing $$x; \ + cp $$x $(CONFDIR); \ + done + @for x in $(GIFFILES); do \ + echo Installing $$x; \ + cp $$x $(GIFDIR); \ + done .c.o: $(CC) -c $(DEFS) $(CFLAGS) $< diff --git a/www/egwindex.html b/www/egwindex.html index a0752d9..9f8535f 100644 --- a/www/egwindex.html +++ b/www/egwindex.html @@ -3,13 +3,13 @@ Europagate WWW index -

Europagate WWW index, $Id: egwindex.html,v 1.2 1995/10/23 16:55:35 adam Exp $

Europagate WWW index, $Id: egwindex.html,v 1.3 1995/10/23 17:04:16 adam Exp $

egwcgi ref: egwcgi

z39 targets: - targets + targets.egw diff --git a/www/query.egw b/www/query.egw new file mode 100644 index 0000000..c1f3b4c --- /dev/null +++ b/www/query.egw @@ -0,0 +1,90 @@ + +{ +# $Id: query.egw,v 1.1 1995/10/23 17:04:16 adam Exp $ + source /usr/local/etc/httpd/conf/ztargets.conf + set tmp [expr 1 + [string first / $sessionParms]] + set t [string range $sessionParms $tmp end] + set databases [lindex $targets($t) 1] +} + + WWW/Z39.50 Gateway Query Form + + +sessionId: {html $sessionId}
+sessionParms: {html $sessionParms}
+form: {html [form]}
+target: {html $t}
+databases: {html $databases}
+

Search in databases

Not Functional Yet

+{ + set nodb [llength $databases] + if {$nodb > 1} { + if {$nodb > 2} { + htmlr {The chosen target supports searching in several databases.
} + htmlr {Choose the bases you want to search:
} + } + set i 0 + foreach d $databases { + html { } $d + } else { + htmlr {" checked> } $d + } + } + htmlr {
} + if {$nodb > 2} { + html { All
} + } + } +} +

+Input your search criteria:
+{ + set fields [lindex $targets($t) 2] + for {set no 1} {$no < 4} {incr no} { + htmlr { + htmlr {} + if {$no < 3} { + htmlr {} + } + htmlr
+ } +} +

+Alternatively you can enter your query in CCL here:
+
+

+ Various technical parameters:
+Max hits: +Records are shown in: + +
+

+ +

+This page is maintained by Peter Wad Hansen . +Last modified 29. september 1995.
+ This and the following pages are under construction and will continue to be so +until the end of December 1995. + + diff --git a/www/search.egw b/www/search.egw new file mode 100644 index 0000000..d521220 --- /dev/null +++ b/www/search.egw @@ -0,0 +1,17 @@ + +{ +# $Id: search.egw,v 1.1 1995/10/23 17:04:17 adam Exp $ +} + + WWW/Z39.50 Gateway Search Result + + +sessionId: {html $sessionId}
+sessionParms: {html $sessionParms}
+form: {html [form]}
+target: {html $t}
+databases: {html $databases}
+

Search in databases

Not Functional Yet

+ + diff --git a/www/targets.egw b/www/targets.egw new file mode 100644 index 0000000..2a64c20 --- /dev/null +++ b/www/targets.egw @@ -0,0 +1,38 @@ + +{ +# $Id: targets.egw,v 1.1 1995/10/23 17:04:17 adam Exp $ +} + + Europagate, WWW/Z39.50 Gateway + + + + Welcome to EUROPAGATE

+ +Part of Europagate is a World Wide Web to Z39.50 gateway. The gateway provides search and +retrieve facilities in the databases of various libraries.

+ Europagate is a +project in the +EU libraries Programme carried out by:
+ University College Dublin
+Technical University & Library of Denmark
+Library Council
+Consejo Superior de Investigaciones Científicas
+

+ Choose a Z39.50 target:
+

$t " + htmlr ": " [lindex $targets($t) 0] + } +} +

+This page is maintained by Peter Wad Hansen . +Last modified 25. september 1995.
+ This and the following pages are under construction and will continue to be so +until the end of December 1995. + + diff --git a/www/webgate.gif b/www/webgate.gif new file mode 100644 index 0000000..4de7a01 Binary files /dev/null and b/www/webgate.gif differ diff --git a/www/ztargets.conf b/www/ztargets.conf new file mode 100644 index 0000000..a2428e5 --- /dev/null +++ b/www/ztargets.conf @@ -0,0 +1,45 @@ +# $Id: ztargets.conf,v 1.1 1995/10/23 17:04:17 adam Exp $ +set commonFields { + { Title {@attr 1=4} } + { Author {@attr 1=1003} } + { Abstract {@attr 1=62} } + { Date {@attr 1=30} } + { {Doc ID} {@attr 1=1032} } + { All {@attr 1=1016} } +} + +set targets(myriad.middlebury.edu) { + {University somewhere, bla bla} + {Default} + { { Title {@attr 1=4} } + { Author {@attr 1=1003} } + { Abstract {@attr 1=62} } + { Date {@attr 1=30} } + { All {@attr 1=1016} } + } +} + +set targets(rlg.stanford.edu) [list \ + {The famous Stanford University} \ + {BKS AMC MAP MDF REC SCO SER VIM BIB} \ + $commonFields \ +] + +set targets(bibsys) [list \ + {BIBSYS - Norway} \ + BIBSYS \ + $commonFields \ +] + +set targets(dtbsun.dtv.dk:4500) [list \ + {Aleph, Z39.50 Server} \ + {DEM MAR} \ + $commonFields \ +] + +set targets(ir.dbc.bib.dk) [list \ + {SR-DANBIB} \ + DANBIB \ + $commonFields \ +] +