1 # $Id: att.tcl,v 1.1 1996-11-14 17:11:39 adam Exp $
2 # Very simple Explain test script.
3 proc fail-response {} {
9 proc present-response {} {
12 puts "Got Present Response"
17 proc search-response {} {
18 puts "Got Search Response"
19 set r [z.1 resultCount]
21 z callback {present-response}
25 proc init-response {} {
27 if {![z initResult]} {
28 puts "Connect rejected: [z userInformationField]"
36 proc connect-response {} {
37 z callback {init-response}
43 z callback {connect-response}
44 z failback {fail-response}
46 puts "Connecting to AT&T's research server"
47 z connect z3950.research.att.com
49 puts "Connecting to Silverplatter's internal server"
50 z connect scono.silverplatter.com:7019
51 z idAuthentication indexd indexd indexd
55 proc explainSearch {q} {
57 z callback {search-response}
59 z.1 preferredRecordSyntax explain
60 z.1 databaseNames IR-Explain-1
61 z.1 search "@attrset exp1 @attr 1=1 $q"
66 proc DatabaseInfo {} {
67 explainSearch DatabaseInfo
71 explainSearch TargetInfo
78 puts " explainSearch <category>"
79 puts "where <category> is TargetInfo, DatabaseInfo, SchemaInfo, etc."