# 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
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
HTTPDDIR=/usr/local/etc/httpd
CGIBIN=$(HTTPDDIR)/cgi-bin
HTDOCS=$(HTTPDDIR)/htdocs
+CONFDIR=$(HTTPDDIR)/conf
+GIFDIR=$(HTDOCS)/gif
all: $(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) $<
<title>Europagate WWW index</title>
</head>
<body>
-<h2>Europagate WWW index, $Id: egwindex.html,v 1.2 1995/10/23 16:55:35 adam Exp $</h2>
+<h2>Europagate WWW index, $Id: egwindex.html,v 1.3 1995/10/23 17:04:16 adam Exp $</h2>
<p>
egwcgi ref:
<a href="http://localhost/cgi-bin/egwcgi/egwtcl/egwscript">egwcgi</a>
<p>
z39 targets:
- <a href="http://localhost/cgi-bin/egwcgi/egwtcl/targets">targets</a>
+ <a href="http://localhost/cgi-bin/egwcgi/egwtcl/targets.egw">targets.egw</a>
</body>
</html>
--- /dev/null
+<html>
+{
+# $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]
+}
+<head>
+<title> WWW/Z39.50 Gateway Query Form</title>
+</head>
+<body>
+sessionId: {html $sessionId} <br>
+sessionParms: {html $sessionParms} <br>
+form: {html [form]} <br>
+target: {html $t} <br>
+databases: {html $databases} <br>
+<h2> Search in databases </h2>
+<h1> <blink> Not Functional Yet </blink> </h1>
+<form action="http://localhost/cgi-bin/egwcgi/{html $sessionId}/search.egw"
+ method=post>
+{
+ set nodb [llength $databases]
+ if {$nodb > 1} {
+ if {$nodb > 2} {
+ htmlr {The chosen target supports searching in several databases. <br>}
+ htmlr {Choose the bases you want to search: <br>}
+ }
+ set i 0
+ foreach d $databases {
+ html {<input type="checkbox" name="base" value="} $d
+ if {[incr i] > 1} {
+ htmlr {"> } $d
+ } else {
+ htmlr {" checked> } $d
+ }
+ }
+ htmlr {<br>}
+ if {$nodb > 2} {
+ html {<input type="checkbox" name="base" value="}
+ htmlr [concat $databases] {"> All <br>}
+ }
+ }
+}
+<hr>
+<strong>Input your search criteria: </strong> <br>
+{
+ set fields [lindex $targets($t) 2]
+ for {set no 1} {$no < 4} {incr no} {
+ htmlr {<select name="menu} $no {">}
+ foreach f $fields {
+ htmlr {<option> } [lindex $f 0]
+ }
+ htmlr </select>
+ htmlr {<input type="text" name="entry} $no {" size=30>}
+ if {$no < 3} {
+ htmlr {<select name="logic} $no {">}
+ htmlr {<option> And}
+ htmlr {<option> Or}
+ htmlr {<option> And not}
+ htmlr {</select>}
+ }
+ htmlr <br>
+ }
+}
+<hr>
+<p>
+Alternatively you can enter your query in <a href="ccl.html"> CCL </a> here: <br>
+<input type=text name="cclentry" size=60> <br>
+<hr>
+<strong> Various technical parameters: </strong> <br>
+Max hits: <input type="text" name="hits" value="50" size=3>
+Records are shown in:
+<select name="format">
+<option> Long format
+<option> Medium format
+<option> Short format
+<option> Raw MARC
+</select>
+<br>
+<p>
+<input type="submit" value="Send Query">
+</form>
+<hr>
+This page is maintained by <a href="mailto:pwh@dtv.dk"> Peter Wad Hansen </a>.
+Last modified 29. september 1995. <br>
+<em> This and the following pages are under construction and will continue to be so
+until the end of December 1995.</em>
+</body>
+</html>
--- /dev/null
+<html>
+{
+# $Id: search.egw,v 1.1 1995/10/23 17:04:17 adam Exp $
+}
+<head>
+<title> WWW/Z39.50 Gateway Search Result</title>
+</head>
+<body>
+sessionId: {html $sessionId} <br>
+sessionParms: {html $sessionParms} <br>
+form: {html [form]} <br>
+target: {html $t} <br>
+databases: {html $databases} <br>
+<h2> Search in databases </h2>
+<h1> <blink> Not Functional Yet </blink> </h1>
+</body>
+</html>
--- /dev/null
+<html>
+{
+# $Id: targets.egw,v 1.1 1995/10/23 17:04:17 adam Exp $
+}
+<head>
+<title> Europagate, WWW/Z39.50 Gateway </title>
+</head>
+<body>
+<center>
+<img src="/gif/webgate.gif" Alt="Welcome to EUROPAGATE">
+</center>
+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. <p>
+<a href="http://www.dtu.dk/dtv/egate/egate.html"> Europagate </a> is a
+project in the <a href="http://www.echo.lu/programmes/en/LIBRARIES.html">
+EU libraries Programme </a> carried out by: <br>
+<a href="http://www.ucd.ie/"> University College Dublin </a> <br>
+<a href="http://www.dtv.dk/dtv/">Technical University & Library of Denmark </a> <br>
+Library Council <br>
+Consejo Superior de Investigaciones Científicas <br>
+<hr>
+<strong> Choose a Z39.50 target: </strong> <br>
+<dl>
+{
+ source /usr/local/etc/httpd/conf/ztargets.conf
+ foreach t [array names targets] {
+ htmlr "<dt> <a href=\"http://localhost/cgi-bin/egwcgi/egwtcl/query.egw/$t\"> $t </a>"
+ htmlr "<dd> " [lindex $targets($t) 0]
+ }
+}
+</dl>
+<hr>
+This page is maintained by <a href="mailto:pwh@dtv.dk"> Peter Wad Hansen </a>.
+Last modified 25. september 1995. <br>
+<em> This and the following pages are under construction and will continue to be so
+until the end of December 1995.</em>
+</body>
+</html>
--- /dev/null
+# $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 \
+]
+
projects / egate.git / commitdiff
