X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Ftargets.egw;h=4ca8c0a9773c6fdc7b5f10748d02fe21df10bfae;hb=9f5629c93687790acce8ef189cfac986f3c2d2e6;hp=39e12052e0841856fc561138573f3f8bf8a3c3e5;hpb=ce3ef5c24347417e973e9e6739466dfc701fe19d;p=egate.git diff --git a/www/targets.egw b/www/targets.egw index 39e1205..4ca8c0a 100644 --- a/www/targets.egw +++ b/www/targets.egw @@ -1,57 +1,89 @@ { -# $Id: targets.egw,v 1.13 1996/01/08 19:16:32 adam Exp $ - source /usr/local/etc/httpd/conf/ztargets.conf +# $Id: targets.egw,v 1.25 1996/04/25 10:22:21 adam Exp $ + source ztargets.conf + if {![info exists debug]} { + if {[lindex $sessionParms 1] == "1"} { + set debug 1 + } else { + set debug 0 + } + } if {[info commands saveState] == ""} { source z39util.tcl } + set html3 [lindex $sessionParms 0] + if {[string length $html3] == 0} { + if {![info exists env(HTTP_USER_AGENT)]} { + set html3 1 + } elseif {[string first Mozilla $env(HTTP_USER_AGENT)] == 0} { + set html3 1 + egw_log debug "New user using Netscape" + } else { + set html3 0 + egw_log debug "New user Not using Netscape" + } + } } Europagate, WWW/Z39.50 Gateway -

Choose Z39.50 target


-
{ - if {![info exists debug]} { - if {[lindex $sessionParms 0] == "1"} { - set debug 1 - } else { - set debug 0 - } + set scriptQuery query.egw + set scriptTarget targets.egw + + set useIcons 1 + + button-main + if {[info exists nextSetNo]} { + button-view-history } + button-define-target + html "

Select a target


\n" + html "
\n" - if {![info exists useIcons]} { - if {[lindex $sessionParms 1] == "1"} { - set useIcons 0 - } else { - set useIcons 1 - } + proc headlineC {h} { + html {

} $h \n {

} } - proc targetsCmp {l r} { + proc targetC {t} { global targets - return [string compare [string tolower [lindex $targets($l) 0]] \ - [string tolower [lindex $targets($r) 0]]] - } - set tt [array names targets] - set tn [lsort -command targetsCmp $tt] - foreach t $tn { - if {[string index $t 0] == "."} continue - html {
} [lindex $targets($t) 0] " \n" + global env + global sessionId + global waisFlag + + if {!$waisFlag && ![string compare [lindex $targets($t) 1] WAIS]} { + return + } + html {
} [lindex $targets($t) 0] + html {} + + html {
} set desc [lindex $targets($t) 4] - if {$desc != ""} { - html "
$desc\n" + if {[string length $desc] > 0} { + html "$desc
\n" } + html "
\n" } -} -
+ if {![info exists waisFlag]} { + set waisFlag 1 + if {[catch {wais waisdummy}]} { + set waisFlag 0 + } else { + rename waisdummy {} + } + } + serverList headlineC targetC -{ - button-europagate - button-view-history 0 + html "

\n" + set useIcons 0 + button-main + if {[info exists nextSetNo]} { + button-view-history + } + button-define-target } - { catch maintenance global debug