www/mtargets.egw

   1 <html>
   2 {
   3 # $Id: mtargets.egw,v 1.22 1996/05/24 11:16:00 adam Exp $
   4     set setNo 1
   5     source ztargets.conf
   6     if {![info exists debug]} {
   7         if {[lindex $sessionParms 1] == "1"} {
   8             set debug 1
   9         } else {
  10             set debug 0
  11         }
  12     }
  13     if {[info commands saveState] == ""} {
  14         source z39util.tcl
  15     }
  16     set html3 [lindex $sessionParms 0]
  17     if {[string length $html3] == 0} {
  18         if {![info exists env(HTTP_USER_AGENT)]} {
  19             set html3 1
  20         } elseif {[string first Mozilla $env(HTTP_USER_AGENT)] == 0} {
  21             set html3 1
  22             egw_log debug "New user using Netscape"
  23         } else {
  24             set html3 0
  25             egw_log debug "New user Not using Netscape"
  26         }
  27     }
  28 }
  29 <head>
  30 <title>Europagate, WWW/Z39.50 Gateway</title>
  31 </head>
  32 <body>
  33 {
  34     set scriptQuery mquery.egw
  35     set scriptTarget mtargets.egw
  36
  37     set useIcons 1
  38     button-main
  39     button-feedback
  40     button-define-target
  41
  42     html "<h2>Choose one or more targets</h2>\n"
  43     html {<form action="http:} $env(SCRIPT_NAME)
  44     html / $sessionId / $scriptQuery {;/} -1 {" method=get><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 waisFlag
  53         if {!$waisFlag && ![string compare [lindex $targets($t) 1] WAIS]} {
  54             return
  55         }
  56         html {<dt><b>} [lindex $targets($t) 0]
  57         html {</b>: }
  58         set databases [splitDatabaseSpec $t]
  59
  60         set desc [lindex $targets($t) 4]
  61         if {[string length $desc] > 0} {
  62             html "$desc<br>\n"
  63         }
  64         html {<dd>}
  65         foreach d $databases {
  66             html {<input type="checkbox" name="target"}
  67             html { value="} $t + $d {"> } $d
  68         }
  69         html "<br><br>\n"
  70     }
  71     if {![info exists waisFlag]} {
  72         set waisFlag 1
  73         if {[catch {wais waisdummy}]} {
  74             set waisFlag 0
  75         } else {
  76             rename waisdummy {}
  77         }
  78     }
  79     serverList headlineC targetC
  80
  81     html "</dl>\n"
  82     html {<input type="submit" value="Select"></form>} \n
  83
  84     html "<p>\n"
  85     set useIcons 0
  86     button-main
  87     button-feedback
  88     button-define-target
  89 }
  90
  91 {
  92     catch maintenance
  93     if {!$debug} return
  94     html "<hr>\n"
  95     html "<h3>Debug information</h3>\n"
  96     html "sessionId: $sessionId <br>\n"
  97     html "sessionParms: $sessionParms <br>\n"
  98     foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
  99         html $e {: } $env($e) {<br>} \n
 100     }
 101 }
 102 </body>
 103 </html>