X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;ds=sidebyside;f=www%2Fquery.egw;h=e188c71d361d56e2dd4449fbf84700da32e4d6b4;hb=a6f3beb071fe8c894ee6c846c86296c84f48e3d4;hp=c1f3b4c3fdaf39b2100495ac97191d498bb93feb;hpb=d66a4b9debb168d9a03368429bcc933c57553c74;p=egate.git diff --git a/www/query.egw b/www/query.egw index c1f3b4c..e188c71 100644 --- a/www/query.egw +++ b/www/query.egw @@ -1,25 +1,31 @@ { -# $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] +# $Id: query.egw,v 1.2 1995/10/27 15:12:04 adam Exp $ +proc init-response {} { + global sessionWait + htmlr {Init ok
} + htmlr {} + htmlr {} + set sessionWait 0 +} + + set t $sessionParms set databases [lindex $targets($t) 1] + ir z39 + set sessionWait 1 + z39 connect $t + z39 callback init-response + z39 init } 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

-
{ + html {} set nodb [llength $databases] if {$nodb > 1} { if {$nodb > 2} { @@ -86,5 +92,14 @@ 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. - - +
+sessionId: {html $sessionId}
+sessionParms: {html $sessionParms}
+{ + foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} { + htmlr $e {: } $env($e) {
} + } +} +form: {html [form]}
+target: {html $t}
+databases: {html $databases}