{ # $Id: mtargets.egw,v 1.17 1996/03/08 16:47:05 adam Exp $ set setNo 1 source ztargets.conf if {[info commands saveState] == ""} { source z39util.tcl } set mMode 1 if {![info exists debug]} { if {[lindex $sessionParms 1] == "1"} { set debug 1 } else { set debug 0 } } 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 { set useIcons 1 button-europagate button-define-target 0 html "

Choose one or more targets

\n" html {

} \n html "
\n" proc targetsCmp {l r} { 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 { html {
} [ lindex $targets($t) 0] html {
} set databases [splitDatabaseSpec $t] set desc [lindex $targets($t) 4] if {$desc != ""} { html "$desc
\n" } foreach d $databases { html { } $d } html "
\n" } html "
\n" html {
} \n html "

\n" set useIcons 0 button-europagate button-define-target 0 } { catch maintenance if {!$debug} return html "

\n" html "

Debug information

\n" html "sessionId: $sessionId
\n" html "sessionParms: $sessionParms
\n" foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} { html $e {: } $env($e) {
} \n } }