From 82eb3636954f41a598430ddafcc21d168006d4a3 Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Thu, 2 Apr 1998 14:32:00 +0000 Subject: [PATCH] Minor changes to EXPLAIN driver. --- explain.tcl | 13 ++++--- irtdb.tcl | 121 +++++++++++++++++++++++++++++++++++++++++++---------------- setup.tcl | 6 ++- 3 files changed, 101 insertions(+), 39 deletions(-) diff --git a/explain.tcl b/explain.tcl index 5853c40..fce1604 100644 --- a/explain.tcl +++ b/explain.tcl @@ -6,7 +6,10 @@ # Explain Driver # # $Log: explain.tcl,v $ -# Revision 1.3 1998-02-12 13:32:42 adam +# Revision 1.4 1998-04-02 14:32:00 adam +# Minor changes to EXPLAIN driver. +# +# Revision 1.3 1998/02/12 13:32:42 adam # Updated configuration system. # @@ -19,7 +22,7 @@ proc explain-search-request {target zz category finish response fresponse} { ir-set $zz z39 $zz databaseNames IR-Explain-1 $zz preferredRecordSyntax explain - $zz search "@attrset exp1 @attr 1=1 $category" + $zz search "@attrset exp1 @attr 1=1 @attr 2=3 @attr 3=3 @attr 4=3 $category" } # Procedure explain-search-response @@ -83,10 +86,10 @@ proc explain-present-response {target zz category finish response fresponse} { # Procedure explain-check-0 # Phase 0: CategoryList -proc explain-check-0 {target finish} { +proc explain-check-0 {target zz category finish} { show-status Explaining 1 0 show-message CategoryList - explain-search-request $target z39.categoryList TargetInfo $finish \ + explain-search-request $target z39.categoryList CategoryList $finish \ explain-check-5 explain-check-fail } @@ -172,7 +175,7 @@ proc explain-check-ok {target zz category finish} { # Procedure explain-refresh proc explain-refresh {target finish} { - explain-check-0 $target $finish + explain-check-0 $target {} {} $finish } # Procedure explain-check diff --git a/irtdb.tcl b/irtdb.tcl index dc72345..9784ed8 100644 --- a/irtdb.tcl +++ b/irtdb.tcl @@ -49,10 +49,10 @@ set {profile(Bell Laboratories Library Network,recentNews)} {} set {profile(Bell Laboratories Library Network,smallSetUpperBound)} 0 set {profile(Bell Laboratories Library Network,targetInfoName)} {Lucent Technologies Research Server} set {profile(Bell Laboratories Library Network,timeDefine)} 878567355 -set {profile(Bell Laboratories Library Network,timeLastExplain)} 887288368 -set {profile(Bell Laboratories Library Network,timeLastInit)} 887288368 +set {profile(Bell Laboratories Library Network,timeLastExplain)} 891519770 +set {profile(Bell Laboratories Library Network,timeLastInit)} 891519770 set {profile(Bell Laboratories Library Network,welcomeMessage)} {Salutations - this is Lucent Technologies experimental Z39.50 server. No guarentees, but free and unlimited access!} -set {profile(Bell Laboratories Library Network,windowNumber)} 11 +set {profile(Bell Laboratories Library Network,windowNumber)} 13 set {profile(Bibliothèque Nationale du Québec,authentication)} {} set {profile(Bibliothèque Nationale du Québec,comstack)} tcpip set {profile(Bibliothèque Nationale du Québec,databases)} IRIS @@ -82,19 +82,20 @@ set {profile(Biblioth set {profile(Bibliothèque Nationale du Québec,windowNumber)} 5 set profile(DanBib,authentication) {} set profile(DanBib,comstack) tcpip -set profile(DanBib,databases) DANBIBV2 +set profile(DanBib,databases) {danbibv2 SAMBOK LIBR BIBSYS IR-Explain-1} set profile(DanBib,description) {Danish Union Catalogue} +set profile(DanBib,descripton) {This server allows access to various scandinavian OPAC's} set profile(DanBib,host) ir.dbc.bib.dk set profile(DanBib,idAuthentication) {} set profile(DanBib,largeSetLowerBound) 2 -set profile(DanBib,maxResultSets) {} -set profile(DanBib,maxResultSize) {} -set profile(DanBib,maxTerms) {} +set profile(DanBib,maxResultSets) 90 +set profile(DanBib,maxResultSize) 100000 +set profile(DanBib,maxTerms) 15 set profile(DanBib,maximumRecordSize) 50000 set profile(DanBib,mediumSetPresentNumber) 0 -set profile(DanBib,multipleDatabases) 0 +set profile(DanBib,multipleDatabases) 1 set profile(DanBib,namedResultSets) 1 -set profile(DanBib,port) 210 +set profile(DanBib,port) 1701 set profile(DanBib,preferredMessageSize) 30000 set profile(DanBib,presentChunk) 4 set profile(DanBib,protocol) Z39 @@ -102,11 +103,11 @@ set profile(DanBib,queryCCL) 0 set profile(DanBib,queryRPN) 1 set profile(DanBib,recentNews) {} set profile(DanBib,smallSetUpperBound) 0 -set profile(DanBib,targetInfoName) {} +set profile(DanBib,targetInfoName) Kalmar set profile(DanBib,timeDefine) 878567355 -set profile(DanBib,timeLastExplain) {} -set profile(DanBib,timeLastInit) 888495120 -set profile(DanBib,welcomeMessage) {} +set profile(DanBib,timeLastExplain) 891503248 +set profile(DanBib,timeLastInit) 891503248 +set profile(DanBib,welcomeMessage) {Welcome to DBC virtual target service} set profile(DanBib,windowNumber) 2 set profile(Default,authentication) {} set profile(Default,comstack) tcpip @@ -133,7 +134,7 @@ set profile(Default,timeDefine) {} set profile(Default,timeLastExplain) {} set profile(Default,timeLastInit) {} set profile(Default,welcomeMessage) {} -set profile(Default,windowNumber) 15 +set profile(Default,windowNumber) 17 set profile(LOC,authentication) {} set profile(LOC,comstack) tcpip set profile(LOC,databases) {BOOKS NAMES AUTH MAPS MUSIC BIB SERIALS SUBJECTS} @@ -162,9 +163,9 @@ set profile(LOC,targetMaxResultSize) {} set profile(LOC,targetMaxTerms) {} set profile(LOC,timeDefine) 878567355 set profile(LOC,timeLastExplain) {} -set profile(LOC,timeLastInit) 887289405 +set profile(LOC,timeLastInit) 891519824 set profile(LOC,welcomeMessage) {} -set profile(LOC,windowNumber) 8 +set profile(LOC,windowNumber) 9 set {profile(OCLC FirstSearch,authentication)} {} set {profile(OCLC FirstSearch,comstack)} tcpip set {profile(OCLC FirstSearch,databases)} {AGRICOLA MEDLINE} @@ -195,7 +196,7 @@ set {profile(OCLC FirstSearch,timeDefine)} {} set {profile(OCLC FirstSearch,timeLastExplain)} {} set {profile(OCLC FirstSearch,timeLastInit)} 886167890 set {profile(OCLC FirstSearch,welcomeMessage)} {} -set {profile(OCLC FirstSearch,windowNumber)} 10 +set {profile(OCLC FirstSearch,windowNumber)} 12 set profile(Penn,authentication) {} set profile(Penn,comstack) tcpip set profile(Penn,databases) CATALOG @@ -226,7 +227,7 @@ set profile(Penn,timeDefine) 878567355 set profile(Penn,timeLastExplain) {} set profile(Penn,timeLastInit) 887289434 set profile(Penn,welcomeMessage) {} -set profile(Penn,windowNumber) 14 +set profile(Penn,windowNumber) 16 set profile(arcatarget,authentication) {} set profile(arcatarget,comstack) tcpip set profile(arcatarget,databases) {IEI-books IR-Explain-1} @@ -283,9 +284,37 @@ set profile(author,smallSetUpperBound) 0 set profile(author,targetInfoName) {} set profile(author,timeDefine) 878567355 set profile(author,timeLastExplain) {} -set profile(author,timeLastInit) 887288138 +set profile(author,timeLastInit) 891519833 set profile(author,welcomeMessage) {} -set profile(author,windowNumber) 13 +set profile(author,windowNumber) 15 +set profile(bagel9999,authentication) {} +set profile(bagel9999,comstack) tcpip +set profile(bagel9999,databases) Default +set profile(bagel9999,description) {} +set profile(bagel9999,host) bagel +set profile(bagel9999,idAuthentication) {} +set profile(bagel9999,largeSetLowerBound) 2 +set profile(bagel9999,maxResultSets) {} +set profile(bagel9999,maxResultSize) {} +set profile(bagel9999,maxTerms) {} +set profile(bagel9999,maximumRecordSize) 50000 +set profile(bagel9999,mediumSetPresentNumber) 0 +set profile(bagel9999,multipleDatabases) 0 +set profile(bagel9999,namedResultSets) 1 +set profile(bagel9999,port) 9999 +set profile(bagel9999,preferredMessageSize) 30000 +set profile(bagel9999,presentChunk) 4 +set profile(bagel9999,protocol) Z39 +set profile(bagel9999,queryCCL) 0 +set profile(bagel9999,queryRPN) 1 +set profile(bagel9999,recentNews) {} +set profile(bagel9999,smallSetUpperBound) 0 +set profile(bagel9999,targetInfoName) {} +set profile(bagel9999,timeDefine) {} +set profile(bagel9999,timeLastExplain) {} +set profile(bagel9999,timeLastInit) 891524781 +set profile(bagel9999,welcomeMessage) {} +set profile(bagel9999,windowNumber) 7 set profile(dranet,authentication) {} set profile(dranet,comstack) tcpip set profile(dranet,databases) drewdb @@ -370,7 +399,35 @@ set profile(madison,timeDefine) 878567355 set profile(madison,timeLastExplain) {} set profile(madison,timeLastInit) 887289602 set profile(madison,welcomeMessage) {} -set profile(madison,windowNumber) 7 +set profile(madison,windowNumber) 8 +set profile(zno,authentication) {} +set profile(zno,comstack) tcpip +set profile(zno,databases) Default +set profile(zno,description) {} +set profile(zno,host) sino.dtv.dk +set profile(zno,idAuthentication) {} +set profile(zno,largeSetLowerBound) 2 +set profile(zno,maxResultSets) {} +set profile(zno,maxResultSize) {} +set profile(zno,maxTerms) {} +set profile(zno,maximumRecordSize) 50000 +set profile(zno,mediumSetPresentNumber) 0 +set profile(zno,multipleDatabases) 0 +set profile(zno,namedResultSets) 1 +set profile(zno,port) 9999 +set profile(zno,preferredMessageSize) 30000 +set profile(zno,presentChunk) 4 +set profile(zno,protocol) Z39 +set profile(zno,queryCCL) 0 +set profile(zno,queryRPN) 1 +set profile(zno,recentNews) {} +set profile(zno,smallSetUpperBound) 0 +set profile(zno,targetInfoName) {} +set profile(zno,timeDefine) {} +set profile(zno,timeLastExplain) {} +set profile(zno,timeLastInit) 891526929 +set profile(zno,welcomeMessage) {} +set profile(zno,windowNumber) 10 set profile(ztest9999,authentication) {} set profile(ztest9999,comstack) tcpip set profile(ztest9999,databases) Z_TDBS.ztdb_z_tdb_name @@ -378,27 +435,27 @@ set profile(ztest9999,description) {YAZ server on localhost} set profile(ztest9999,descripton) Z_TDBS.ztdb_description set profile(ztest9999,host) localhost set profile(ztest9999,largeSetLowerBound) 2 -set profile(ztest9999,maxResultSets) 0 -set profile(ztest9999,maxResultSize) 0 -set profile(ztest9999,maxTerms) 0 +set profile(ztest9999,maxResultSets) {} +set profile(ztest9999,maxResultSize) {} +set profile(ztest9999,maxTerms) {} set profile(ztest9999,maximumRecordSize) 50000 set profile(ztest9999,mediumSetPresentNumber) 0 -set profile(ztest9999,multipleDatabases) 0 -set profile(ztest9999,namedResultSets) 0 +set profile(ztest9999,multipleDatabases) {} +set profile(ztest9999,namedResultSets) {} set profile(ztest9999,port) 9999 set profile(ztest9999,preferredMessageSize) 30000 set profile(ztest9999,presentChunk) 4 set profile(ztest9999,protocol) Z39 set profile(ztest9999,queryCCL) 0 set profile(ztest9999,queryRPN) 1 -set profile(ztest9999,recentNews) {strings { language {text Z_TDBS.ztdb_news} } } +set profile(ztest9999,recentNews) {} set profile(ztest9999,smallSetUpperBound) 0 -set profile(ztest9999,targetInfoName) Z_TDBS.ztdb_z_tdb_name +set profile(ztest9999,targetInfoName) {} set profile(ztest9999,timeDefine) 878567355 -set profile(ztest9999,timeLastExplain) 886683092 -set profile(ztest9999,timeLastInit) 886683092 -set profile(ztest9999,welcomeMessage) Z_TDBS.ztdb_welcome_message -set profile(ztest9999,windowNumber) 9 +set profile(ztest9999,timeLastExplain) 891523679 +set profile(ztest9999,timeLastInit) 891523679 +set profile(ztest9999,welcomeMessage) {} +set profile(ztest9999,windowNumber) 11 set queryTypes {Simple phrase} set queryButtons {{{I 3} {I 0} {I 0}} {{I 0} {I 1} {I 0}}} set queryInfo {{{Title {1=4}} {Author {1=1}} {Subject {1=21}} {Any {1=1016}} {Query 1=1016 2=102} {Title-rank 1=4 2=102} {Date/time 1=1012} {Title-regular 1=4 2=3 4=2 5=102} {Ranked 1=1016 2=102 3=3 4=1 6=1}} {{Title 1=4 4=1 6=2} {Author 1=1003 4=1 6=2} {ISBN 1=7} {ISSN 1=8} {Year 1=30 4=4 6=2} {Any {}}}} diff --git a/setup.tcl b/setup.tcl index 3d6e060..227a7c5 100644 --- a/setup.tcl +++ b/setup.tcl @@ -6,7 +6,10 @@ # Configuration Driver # # $Log: setup.tcl,v $ -# Revision 1.4 1998-02-12 13:32:42 adam +# Revision 1.5 1998-04-02 14:32:01 adam +# Minor changes to EXPLAIN driver. +# +# Revision 1.4 1998/02/12 13:32:42 adam # Updated configuration system. # # Revision 1.3 1998/01/30 13:30:50 adam @@ -411,7 +414,6 @@ proc target-setup-db-remove {target wp} { target-setup-dblist-update $target $wp if {![llength $profileS($target,databases)]} { unset profileS($target,databases) - puts removed } } } -- 1.7.10.4