projects / egate.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 94e0e8f)
Work on search in multiple targets.
authorAdam Dickmeiss <adam@indexdata.dk>
Tue, 7 Nov 1995 10:44:29 +0000 (10:44 +0000)
committerAdam Dickmeiss <adam@indexdata.dk>
Tue, 7 Nov 1995 10:44:29 +0000 (10:44 +0000)
www/Makefile patch | blob | history
www/egwindex.html patch | blob | history
www/mtargets.egw [new file with mode: 0644] patch | blob

diff --git a/www/Makefile b/www/Makefile
index a9fe474..781e430 100644 (file)
--- 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 (file)
--- a/www/egwindex.html
+++ b/www/egwindex.html
@@ -3,13 +3,16 @@
 <title>Europagate WWW index</title>
 </head>
 <body>
-<h2>Europagate WWW index, $Id: egwindex.html,v 1.4 1995/10/27 15:12:04 adam Exp $</h2>
+<h2>Europagate WWW index, $Id: egwindex.html,v 1.5 1995/11/07 10:44:30 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/egwirtcl/targets.egw">targets.egw</a>
+<br>
+Multiple z39 targets:
+ <a href="http://localhost/cgi-bin/egwcgi/egwirtcl/mtargets.egw">mtargets.egw</a>
 </body>
 </html>
 
diff --git a/www/mtargets.egw b/www/mtargets.egw
new file mode 100644 (file)
index 0000000..f23edd2
--- /dev/null
+++ b/www/mtargets.egw
@@ -0,0 +1,43 @@
+<html>
+{
+# $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
+    }
+}
+<head>
+<title>Europagate, WWW/Z39.50 Gateway</title>
+</head>
+<body>
+<h1>Search in multiple targets</h1>
+<hr>
+<h3>Choose one or more Z39.50 targets:</h3>
+{
+    html {<form action="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
+    html / $sessionId {/msearch.egw/} $setNo {" method=post><br>} \n
+    foreach t [array names targets] {
+        html {<input type="checkbox" name="target" value="} $t
+        html {"> } $t \n
+        html "<br>\n"
+    }
+}
+<input type="submit" value="Select">
+</form>
+<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>
+{
+    html "<hr>\n"
+    html "<h3>Debug information</h3>\n"
+    html "sessionId: $sessionId <br>\n"
+    html "sessionParms: $sessionParms <br>\n"
+    foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
+        html $e {: } $env($e) {<br>} \n
+    }
+}
+</body>
+</html>
Europgate