<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.15 1996/01/12 10:03:20 adam Exp $
+ source ztargets.conf
if {[info commands saveState] == ""} {
source z39util.tcl
}
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"
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>