www/targets.egw

   1 <html>
   2 {
   3 # $Id: targets.egw,v 1.26 1996/05/24 11:16:02 adam Exp $
   4     source ztargets.conf
   5     if {![info exists debug]} {
   6         if {[lindex $sessionParms 1] == "1"} {
   7             set debug 1
   8         } else {
   9             set debug 0
  10         }
  11     }
  12     if {[info commands saveState] == ""} {
  13         source z39util.tcl
  14     }
  15     set html3 [lindex $sessionParms 0]
  16     if {[string length $html3] == 0} {
  17         if {![info exists env(HTTP_USER_AGENT)]} {
  18             set html3 1
  19         } elseif {[string first Mozilla $env(HTTP_USER_AGENT)] == 0} {
  20             set html3 1
  21             egw_log debug "New user using Netscape"
  22         } else {
  23             set html3 0
  24             egw_log debug "New user Not using Netscape"
  25         }
  26     }
  27 }
  28 <head>
  29 <title> Europagate, WWW/Z39.50 Gateway </title>
  30 </head>
  31 <body>
  32 {
  33     set scriptQuery query.egw
  34     set scriptTarget targets.egw
  35
  36     set useIcons 1
  37
  38     button-main
  39     button-feedback
  40     if {[info exists nextSetNo]} {
  41         button-view-history
  42     }
  43     button-define-target
  44     html "<h2>Select a target</h2><br>\n"
  45     html "<dl>\n"
  46
  47     proc headlineC {h} {
  48         html {<dt><h2>} $h \n {</h2>}
  49     }
  50     proc targetC {t} {
  51         global targets
  52         global env
  53         global sessionId
  54         global waisFlag
  55
  56         if {!$waisFlag && ![string compare [lindex $targets($t) 1] WAIS]} {
  57             return
  58         }
  59         html {<dt><b><a href="http:} $env(SCRIPT_NAME) /
  60         html "$sessionId/query.egw;/-1+$t" {"> } [lindex $targets($t) 0]
  61         html {</a></b>}
  62
  63         html {<dd>}
  64         set desc [lindex $targets($t) 4]
  65         if {[string length $desc] > 0} {
  66             html "$desc<br>\n"
  67         }
  68         html "<br>\n"
  69     }
  70     if {![info exists waisFlag]} {
  71         set waisFlag 1
  72         if {[catch {wais waisdummy}]} {
  73             set waisFlag 0
  74         } else {
  75             rename waisdummy {}
  76         }
  77     }
  78     serverList headlineC targetC
  79
  80     html "</dl><br>\n"
  81     set useIcons 0
  82     button-main
  83     button-feedback
  84     if {[info exists nextSetNo]} {
  85         button-view-history
  86     }
  87     button-define-target
  88 }
  89 {
  90     catch maintenance
  91     global debug
  92     if {!$debug} return
  93     html "<hr>\n"
  94     html "<h3>Debug information</h3>\n"
  95     html "sessionId: $sessionId <br>\n"
  96     html "sessionParms: $sessionParms <br>\n"
  97     foreach n [array names env] {
  98         html "env($n) = " $env($n) " <br>\n"
  99     }
 100 }
 101 </body>
 102 </html>