#
-# $Id: z39util.tcl,v 1.47 1996/09/03 14:06:43 adam Exp $
+# $Id: z39util.tcl,v 1.48 1997/02/24 10:05:20 adam Exp $
#
proc saveState {} {
uplevel #0 {
}
egw_log debug "old=$oldHost this=$thisHost"
z39$i idAuthentication $hist($setNo,$i,idAuthentication)
- html "Connecting to target " $thisHost " <br>\n"
set zstatus($i) -1
if {![catch {z39$i connect $thisHost}]} {
incr zleft
-# $Id: ztargets.conf,v 1.37 1996/09/03 14:06:44 adam Exp $
+# $Id: ztargets.conf,v 1.38 1997/02/24 10:05:23 adam Exp $
#
# This file contains the predefined targets in the WWW-Z39.50 gateway
# Each target is an entry in the associative array "targets". The
assorted
}
-set targets(localhost:210/Default) {
+set targets(localhost:9999/Default) {
Ztest
USMARC
{
{ Free-text {@attr 1=1016 @attr 4=105} }
}
{}
- {Z39.50 Test server on port 210}
+ {Z39.50 Test server on port 9999}
1
test
}