Work on target definitions.

[egate.git] / www / targets.egw
diff --git a/www/targets.egw b/www/targets.egw

index a9889fe..2708dc0 100644 (file)
--- a/www/targets.egw
+++ b/www/targets.egw
@@ -1,7 +1,7 @@
  <html>
  {
-# $Id: targets.egw,v 1.12 1996/01/04 13:30:32 adam Exp $
-    source /usr/local/etc/httpd/conf/ztargets.conf
+# $Id: targets.egw,v 1.17 1996/01/24 14:14:19 adam Exp $
+    source ztargets.conf
      if {[info commands saveState] == ""} {
          source z39util.tcl
      }
@@ -10,7 +10,7 @@
  <title> Europagate, WWW/Z39.50 Gateway </title>
  </head>
  <body>
-<h2>Choose Z39.50 target</h2><br>
+<h2>Choose a server</h2><br>
  <dl>
  {
      if {![info exists debug]} {
@@ -38,7 +38,7 @@
      foreach t $tn {
         if {[string index $t 0] == "."} continue
          html {<dt><a href="http:} $env(SCRIPT_NAME) /
-        html "$sessionId/query.egw/$t" {"> } [lindex $targets($t) 0] " </a>\n"
+        html "$sessionId/query.egw;/$t" {"> } [lindex $targets($t) 0] " </a>\n"
          set desc [lindex $targets($t) 4]
          if {$desc != ""} {
              html "<dd><em>$desc</em>\n"
@@ -49,6 +49,7 @@
  
  {
      button-europagate
+    button-define-target 1
      button-view-history 0
  }
  
@@ -60,8 +61,8 @@
      html "<h3>Debug information</h3>\n"
      html "sessionId: $sessionId <br>\n"
      html "sessionParms: $sessionParms <br>\n"
-    foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
-        html $e {: } $env($e) {<br>} \n
+    foreach n [array names env] {
+        html "env($n) = " $env($n) " <br>\n"
      }
  }
  </body>