www/search.egw

   1 <html>
   2 {
   3 # $Id: search.egw,v 1.29 1996/01/12 13:39:22 adam Exp $
   4
   5 proc start-scan {scanNo cache dir initSet} {
   6     global sessionId
   7     global sessionParms
   8     global sessionWait
   9     global setNo
  10     global hist
  11     global targets
  12     global nextSetNo
  13     global env
  14     global useIcons
  15     global debug
  16
  17     set host $hist($setNo,host)
  18
  19     html "<head><title> WWW/Z39.50 Gateway Scan " $host " </title>\n"
  20     html "</head><body>\n"
  21
  22     set databases [lindex $targets($host) 1]
  23
  24     if {$initSet == ""} {
  25         set databaseDefault [lindex $databases 0]
  26         set oSetNo 0
  27     } else {
  28         set oSetNo $initSet
  29         set databaseDefault $hist($oSetNo,database)
  30     }
  31
  32     html {<form action="http:} $env(SCRIPT_NAME)
  33     html / $sessionId {/search.egw/} $setNo {+1" method=get>} \n
  34     set nodb [llength $databases]
  35     if {$nodb > 1} {
  36         if {$nodb > 2} {
  37             html "Databases:<br>\n"
  38         }
  39         set i 0
  40         foreach d $databases {
  41             html {<input type="checkbox" name="base" value="} $d
  42             if {[lsearch $databaseDefault $d] == -1} {
  43                 html {"> } $d \n
  44             } else {
  45                 html {" checked> } $d \n
  46             }
  47         }
  48         html "<br>\n"
  49         if {$nodb > 2} {
  50             html {<input type="checkbox" name="baseall" value="}
  51             html [concat $databases] {"> All <br>} \n
  52         }
  53         html "Input your search criteria:<br>\n"
  54     }
  55     set fields [lindex $targets($host) 2]
  56     set no 1
  57     html {<select name="menu} $no {">} \n
  58     set template {}
  59     if {$oSetNo > 0} {
  60         set template [join $hist($oSetNo,form,menu$no)]
  61     }
  62     if {[string length $template] > 0} {
  63         html {<option> } $template \n
  64     }
  65     foreach f $fields {
  66         set name [lindex $f 0]
  67         if {$template == $name} continue
  68         html {<option> } $name \n
  69     }
  70     html "</select>\n"
  71     html {<input type="text" name="entry} $no {"}
  72     html { size=35> }
  73     html {<input type=submit name=submit value="Scan">}
  74     html "\n"
  75     html {</form><br>}
  76
  77     button-europagate
  78
  79     if {$hist($setNo,$scanNo,scanTerm) == ""} {
  80         button-new-query 0 $setNo
  81         wabort
  82         return
  83     }
  84     if {$dir == "b"} {
  85         set lines 20
  86         set pos 20
  87     } elseif {$dir == "f"} {
  88         set lines 20
  89         set pos 1
  90     } else {
  91         set lines 20
  92         set pos 10
  93     }
  94     if {[z39scan $setNo $scanNo 0 $lines $pos $cache] != "1"} {
  95         return
  96     }
  97
  98     html {<a href="http:} $env(SCRIPT_NAME)
  99     html / $sessionId {/search.egw/} $setNo + [expr $scanNo - 1] + b {">}
 100     if {$useIcons} {
 101         html {<img src="/egwgif/button-previous-terms.gif" }
 102         html {alt="Next Terms" border=0></a>}
 103     } else {
 104         html {Previous Terms</a> | }
 105     }
 106
 107     html {<a href="http:} $env(SCRIPT_NAME)
 108     html / $sessionId {/search.egw/} $setNo + [expr $scanNo + 1] + f {">}
 109     if {$useIcons} {
 110         html {<img src="/egwgif/button-next-terms.gif" }
 111         html {alt="Next Terms" border=0></a>}
 112     } else {
 113         html {Next Terms</a> | }
 114     }
 115     html {</a>}
 116     button-new-query 0 $setNo
 117
 118     html "<p>\n"
 119     display-scan $setNo $scanNo 0
 120     html "<p>\n"
 121
 122     button-europagate
 123
 124     html {<a href="http:} $env(SCRIPT_NAME)
 125     html / $sessionId {/search.egw/} $setNo + [expr $scanNo - 1] + b {">}
 126     if {$useIcons} {
 127         html {<img src="/egwgif/button-previous-terms.gif" }
 128         html {alt="Next Terms" border=0></a>}
 129     } else {
 130         html {Previous Terms</a> | }
 131     }
 132
 133     html {<a href="http:} $env(SCRIPT_NAME)
 134     html / $sessionId {/search.egw/} $setNo + [expr $scanNo + 1] + f {">}
 135     if {$useIcons} {
 136         html {<img src="/egwgif/button-next-terms.gif" }
 137         html {alt="Next Terms" border=0></a>}
 138     } else {
 139         html {Next Terms</a> | }
 140     }
 141     html {</a>}
 142     button-new-query 0 $setNo
 143
 144     if {!$debug} return
 145     html "<hr>\n"
 146     html "<h3>Debug information</h3>\n"
 147     html "sessionId: $sessionId <br>\n"
 148     html "sessionParms: $sessionParms <br>\n"
 149     foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
 150         html $e {: } $env($e) {<br>} \n
 151     }
 152     html "form: " [wform] " <br>\n"
 153     html "target: " $host " <br>\n"
 154     html "databases: " $hist($setNo,database) " <br>\n"
 155     html "selected: " [wform base] " <br>\n"
 156     html "setNo: " $setNo " <br>\n"
 157     html "nextSetNo: " $nextSetNo " <br>\n"
 158 }
 159
 160 proc buttons {setNo setMax startPos after} {
 161     global sessionId
 162     global useIcons
 163     global env
 164     global hist
 165
 166     html "<p>\n"
 167     button-europagate
 168     if {$setMax < [z39.$setNo resultCount]} {
 169         html {<a href="http:} $env(SCRIPT_NAME)
 170         html / $sessionId {/search.egw/} $setNo + [expr $setMax + 1]
 171         html + [expr $setMax + $hist($setNo,maxPresent)]
 172         if {$useIcons} {
 173             html {"><img src="/egwgif/button-next-records.gif" alt="Next Records"}
 174             html { border=0></a>}
 175         } else {
 176             html {">Next Records</a>} " | \n"
 177         }
 178     }
 179     if {$startPos != "" && $startPos != "1"} {
 180         html {<a href="http:} $env(SCRIPT_NAME)
 181         html / $sessionId {/search.egw/} $setNo
 182         html + [expr $startPos - $hist($setNo,maxPresent)]
 183         html + [expr $startPos - 1]
 184         if {$useIcons} {
 185             html {"><img src="/egwgif/button-previous-records.gif" }
 186             html {alt="Previous Records" border=0></a>}
 187         } else {
 188             html {">Previous Records</a>} " | \n"
 189         }
 190     }
 191     button-new-query 1 $setNo
 192     button-new-target 1
 193     button-view-history 0
 194
 195     html "<p>\n"
 196 }
 197
 198     if {[info commands saveState] == ""} {
 199         source z39util.tcl
 200     }
 201     global sessionWait
 202     global nextSetNo
 203     global setNo
 204     global hist
 205
 206     set setNo [lindex $sessionParms 0]
 207
 208     if {[wform] != ""} {
 209         set hist($nextSetNo,idAuthentication) $hist($setNo,idAuthentication)
 210         set hist($nextSetNo,host) $hist($setNo,host)
 211
 212         if {$nextSetNo == $setNo} {
 213             set setNo $nextSetNo
 214             incr nextSetNo
 215         } else {
 216             catch {unset hist($setNo,hits)}
 217         }
 218         set hist($setNo,scan) 0
 219
 220         set hist($setNo,form,menu1) [wform menu1]
 221         set hist($setNo,form,menu2) [wform menu2]
 222         set hist($setNo,form,menu3) [wform menu3]
 223
 224         set hist($setNo,form,entry1) [wform entry1]
 225         set hist($setNo,form,entry2) [wform entry2]
 226         set hist($setNo,form,entry3) [wform entry3]
 227
 228         set hist($setNo,form,logic1) [wform logic1]
 229         set hist($setNo,form,logic2) [wform logic2]
 230         set hist($setNo,form,logic3) {}
 231
 232         set host $hist($setNo,host)
 233         set databases [lindex $targets($host) 1]
 234
 235         set b [wform base]
 236         if {[wform baseall] != ""} {
 237             set hist($setNo,database) $databases
 238         } elseif {$b == ""} {
 239             set hist($setNo,database) $databases
 240         } else {
 241             set hist($setNo,database) $b
 242         }
 243         set hist($setNo,maxPresent) [wform hits]
 244         if {$hist($setNo,maxPresent) == ""} {
 245             set hist($setNo,maxPresent) 30
 246         }
 247         set i [lindex $sessionParms 1]
 248         if {$i == ""} {
 249             for {set j 1} {$j <= 3} {incr j} {
 250                 if {[wform scan$j] != ""} {
 251                     set i $j
 252                     break
 253                 }
 254             }
 255         }
 256         if {$i != ""} {
 257             set scanNo 1000
 258             set hist($setNo,scan) $i
 259             set termPlusAttr [build-scan $hist($setNo,host) $i]
 260             set hist($setNo,$scanNo,scanTerm) [lindex $termPlusAttr 0]
 261             set hist($setNo,scanAttr) [lindex $termPlusAttr 1]
 262             start-scan $scanNo 0 {} {}
 263             html "</body></html>\n"
 264             wabort
 265             return
 266         }
 267         set query [build-query $hist($setNo,host) 3]
 268         if {"x$query" == "x"} {
 269             html "<head><title> WWW/Z39.50 Gateway Search</title>\n<body>\n"
 270             displayError "Empty query" \
 271                 "You must specify at least one search word"
 272             html "</body></html>\n"
 273             wabort
 274         }
 275         set hist($setNo,query) $query
 276     } else {
 277         if {[lindex $sessionParms 1] == "scan"} {
 278             set scanNo 1000
 279             set hist($setNo,$scanNo,scanTerm) {}
 280             start-scan $scanNo 0 {} {}
 281             html "</body></html>\n"
 282             wabort
 283         }
 284         if {![info exists hist($setNo,scan)]} return
 285         if {$hist($setNo,scan) > 0} {
 286             set scanNo [lindex $sessionParms 1]
 287             set dir [lindex $sessionParms 2]
 288             if {$scanNo == ""} {
 289                 set scanNo 1000
 290             }
 291             start-scan $scanNo 1 $dir $setNo
 292             html "</body></html>\n"
 293             wabort
 294         }
 295     }
 296     set host $hist($setNo,host)
 297
 298     html "<head><title> WWW/Z39.50 Gateway Search " $host " </title>\n"
 299     html "</head><body>\n"
 300
 301     set startPos [lindex $sessionParms 1]
 302     set endPos [lindex $sessionParms 2]
 303     set setMax 0
 304     set setOffset 0
 305     if {$startPos == ""} {
 306         if {[z39search $setNo 1 0 B] != "1"} {
 307             return
 308         }
 309         set r [z39.$setNo resultCount]
 310         set setOffset [z39.$setNo numberOfRecordsReturned]
 311         if {$setOffset > 0} {
 312             html {<h3> Records 1-} $setOffset " out of $r</h3>\n"
 313         } else {
 314             html "<h3> No hits</h3>\n"
 315         }
 316         wflush
 317         html "<ul>\n"
 318         display-rec 1 $setOffset display-brief 0
 319         incr setOffset
 320         set setMax [z39.$setNo resultCount]
 321         if {$setMax > $hist($setNo,maxPresent)} {
 322             set setMax $hist($setNo,maxPresent)
 323         }
 324     } else {
 325         if {[z39search $setNo 0 0 B] != "1"} {
 326             return
 327         }
 328         set r [z39.$setNo resultCount]
 329         set setOffset $startPos
 330         set setMax [z39.$setNo resultCount]
 331         if {$setMax > $endPos} {
 332             set setMax $endPos
 333         }
 334         if {$setMax > 0} {
 335             buttons $setNo $setMax $startPos 0
 336         }
 337         if {$setMax > 0} {
 338             html {<h3> Records } $startPos {-} $setMax " out of $r</h3>\n"
 339         } else {
 340             html "<h3> No hits</h3>\n"
 341         }
 342         wflush
 343         html "<ul>\n"
 344     }
 345     if {$setMax > 0} {
 346         z39present $setNo 0 $setOffset $setMax display-brief B
 347     }
 348     html "</ul>\n"
 349     buttons $setNo $setMax $startPos 1
 350 }
 351
 352 {
 353     global debug
 354     if {!$debug} return
 355     html "<hr>\n"
 356     html "<h3>Debug information</h3>\n"
 357     html "sessionId: $sessionId <br>\n"
 358     html "sessionParms: $sessionParms <br>\n"
 359     foreach n [array names env] {
 360         html "env($n) = " $env($n) " <br>\n"
 361     }
 362     html "form: " [wform] " <br>\n"
 363     html "target: " $host " <br>\n"
 364     html "databases: " $hist($setNo,database) " <br>\n"
 365     html "selected: " [wform base] " <br>\n"
 366     html "query: --" $hist($setNo,query) "-- <br>"
 367     html "setNo: " $setNo " <br>\n"
 368     html "nextSetNo: " $nextSetNo " <br>\n"
 369 }
 370
 371 </body>
 372 </html>