From 5495ff55c27d5df117280bf7b7a32bf458d56ffc Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Tue, 7 Nov 1995 10:44:29 +0000 Subject: [PATCH] Work on search in multiple targets. --- www/Makefile | 8 ++++++-- www/egwindex.html | 5 ++++- www/mtargets.egw | 43 +++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 53 insertions(+), 3 deletions(-) create mode 100644 www/mtargets.egw diff --git a/www/Makefile b/www/Makefile index a9fe474..781e430 100644 --- a/www/Makefile +++ b/www/Makefile @@ -2,7 +2,10 @@ # Europagate, 1995 # # $Log: Makefile,v $ -# Revision 1.9 1995/11/06 17:44:20 adam +# Revision 1.10 1995/11/07 10:44:29 adam +# Work on search in multiple targets. +# +# Revision 1.9 1995/11/06 17:44:20 adam # State reestablised when shell restarts. History of previous # result sets. # @@ -44,7 +47,8 @@ LIBIRTCL=/usr/local/lib/libirtcl.a $(ZLIB) $(MOSILIB) OLIB=../lib/util.a ../lib/libres+log.a TCLLIB=/usr/local/lib/libtcl7.4.a # -WSCRIPTS=egwscript targets.egw query.egw search.egw showfull.egw z39util.tcl +WSCRIPTS=egwscript targets.egw query.egw search.egw showfull.egw z39util.tcl \ + mtargets.egw HSCRIPTS=egwindex.html CONFFILES=ztargets.conf GIFFILES=webgate.gif diff --git a/www/egwindex.html b/www/egwindex.html index 7aa486f..f27315d 100644 --- a/www/egwindex.html +++ b/www/egwindex.html @@ -3,13 +3,16 @@ Europagate WWW index -

Europagate WWW index, $Id: egwindex.html,v 1.4 1995/10/27 15:12:04 adam Exp $

+

Europagate WWW index, $Id: egwindex.html,v 1.5 1995/11/07 10:44:30 adam Exp $

egwcgi ref: egwcgi

z39 targets: targets.egw +
+Multiple z39 targets: + mtargets.egw diff --git a/www/mtargets.egw b/www/mtargets.egw new file mode 100644 index 0000000..f23edd2 --- /dev/null +++ b/www/mtargets.egw @@ -0,0 +1,43 @@ + +{ +# $Id: mtargets.egw,v 1.1 1995/11/07 10:44:31 adam Exp $ + set setNo 1 + source /usr/local/etc/httpd/conf/ztargets.conf + if {[info commands saveState] == ""} { + source z39util.tcl + } +} + +Europagate, WWW/Z39.50 Gateway + + +

Search in multiple targets

+
+

Choose one or more Z39.50 targets:

+{ + html {

} \n + foreach t [array names targets] { + html { } $t \n + html "
\n" + } +} + +
+
+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. +{ + html "
\n" + html "

Debug information

\n" + html "sessionId: $sessionId
\n" + html "sessionParms: $sessionParms
\n" + foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} { + html $e {: } $env($e) {
} \n + } +} + + -- 1.7.10.4