X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fmtargets.egw;h=0d23dc976d0b010bc92fa51f926a348f5ffc26f6;hb=8bafbc608e1ffba9ee87f4856e586dffa57901b8;hp=5d0bacd6d5662018644003f0fcb541025a57c159;hpb=ba37ce207c47ac1fa27bb46df7dc54f72740bb96;p=egate.git diff --git a/www/mtargets.egw b/www/mtargets.egw index 5d0bacd..0d23dc9 100644 --- a/www/mtargets.egw +++ b/www/mtargets.egw @@ -1,60 +1,79 @@ { -# $Id: mtargets.egw,v 1.8 1996/01/03 15:19:38 adam Exp $ +# $Id: mtargets.egw,v 1.20 1996/03/14 11:50:46 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 - - -{ + source ztargets.conf if {![info exists debug]} { - if {[lindex $sessionParms 0] == "1"} { + if {[lindex $sessionParms 1] == "1"} { set debug 1 } else { set debug 0 } } - - if {![info exists useIcons]} { - if {[lindex $sessionParms 1] == "1"} { - set useIcons 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 useIcons 1 + set html3 0 + egw_log debug "New user Not using Netscape" } } } -
-EUROPAGATE -
-

Choose one or more Z39.50 targets

+ +Europagate, WWW/Z39.50 Gateway + + { + set scriptQuery mquery.egw + set scriptTarget mtargets.egw + + set useIcons 1 + button-main + button-define-target + + html "

Choose one or more targets

\n" html {

} \n + html / $sessionId / $scriptQuery {;/} -1 {" method=get>
} \n html "
\n" - foreach t [array names targets] { - html {
} [ lindex $targets($t) 0] - html {
} - set databases [lindex $targets($t) 1] + proc headlineC {h} { + html {

} $h \n {

} + } + proc targetC {t} { + global targets + html {
} [ lindex $targets($t) 0] + html {: } + set databases [splitDatabaseSpec $t] + set desc [lindex $targets($t) 4] - if {$desc != ""} { - html "$desc
\n" + if {[string length $desc] > 0} { + html "$desc
\n" } + html {
} foreach d $databases { html { } $d } - html "
\n" + html "

\n" } + serverList headlineC targetC + html "
\n" + html {
} \n + + html "

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