{ # $Id: mtargets.egw,v 1.9 1996/01/08 08:42:14 adam Exp $ set setNo 1 source /usr/local/etc/httpd/conf/ztargets.conf if {[info commands saveState] == ""} { source z39util.tcl } } Europagate, WWW/Z39.50 Gateway { if {![info exists debug]} { if {[lindex $sessionParms 0] == "1"} { set debug 1 } else { set debug 0 } } if {![info exists useIcons]} { if {[lindex $sessionParms 1] == "1"} { set useIcons 0 } else { set useIcons 1 } } }
EUROPAGATE

Choose one or more Z39.50 targets

{ html {

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