- z39 connect $t
- z39 callback init-response
- z39 init
-}
-<head>
-<title> WWW/Z39.50 Gateway Query Form</title>
-</head>
-<body>
-<h2> Search in databases </h2>
-<h1> <blink> Not Functional Yet </blink> </h1>
-{
+ if {$host != $oldHost} {
+ catch {z39 disconnect}
+
+ html "Connecting to target " $host " <br>\n"
+ set sessionWait 0
+ if {[catch {z39 connect $host}]} {
+ html "Cannot connect to target ${host} <br>\n"
+ html "</body></html>\n"
+ wabort
+ } elseif {$sessionWait == 0} {
+ zwait sessionWait
+ if {$sessionWait != 1} {
+ html "Cannot connect to target ${host} <br>\n"
+ html "</body></html>\n"
+ wabort
+ }
+ }
+ set sessionWait 0
+ if {[catch {z39 init}]} {
+ htmlr "Cannot initialize with target ${host} <br>"
+ htmlr "</body></html>"
+ wabort
+ }
+ zwait sessionWait
+ if {$sessionWait != "1"} {
+ htmlr "Cannot initialize with target ${host} <br>"
+ htmlr "</body></html>"
+ wabort
+ }
+ }
+ set databases [lindex $targets($host) 1]
+
+ html "<h2> Search in databases </h2>\n"