www/targets.egw

   1 <html>
   2 {
   3 # $Id: targets.egw,v 1.23 1996/03/13 14:07:31 adam Exp $
   4     source ztargets.conf
   5     if {[info commands saveState] == ""} {
   6         source z39util.tcl
   7     }
   8     if {![info exists debug]} {
   9         if {[lindex $sessionParms 1] == "1"} {
  10             set debug 1
  11         } else {
  12             set debug 0
  13         }
  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     if {[info exists nextSetNo]} {
  40         button-view-history
  41     }
  42     button-define-target
  43     html "<h2>Choose a target</h2><br>\n"
  44     html "<dl>\n"
  45
  46     proc targetsCmp {l r} {
  47         global targets
  48         return [string compare [string tolower [lindex $targets($l) 0]] \
  49                                [string tolower [lindex $targets($r) 0]]]
  50     }
  51     set tt [array names targets]
  52     set tn [lsort -command targetsCmp $tt]
  53     foreach t $tn {
  54         html {<dt><a href="http:} $env(SCRIPT_NAME) /
  55         html "$sessionId/query.egw;/-1+$t" {"> } [lindex $targets($t) 0]
  56         html " </a>\n"
  57         set desc [lindex $targets($t) 4]
  58         if {$desc != ""} {
  59             html "<dd>$desc\n"
  60         }
  61     }
  62     html "</dl><br>\n"
  63     set useIcons 0
  64     button-main
  65     if {[info exists nextSetNo]} {
  66         button-view-history
  67     }
  68     button-define-target
  69 }
  70 {
  71     catch maintenance
  72     global debug
  73     if {!$debug} return
  74     html "<hr>\n"
  75     html "<h3>Debug information</h3>\n"
  76     html "sessionId: $sessionId <br>\n"
  77     html "sessionParms: $sessionParms <br>\n"
  78     foreach n [array names env] {
  79         html "env($n) = " $env($n) " <br>\n"
  80     }
  81 }
  82 </body>
  83 </html>