www/targets.egw

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