www/history.egw

   1 <html>
   2 <head>
   3 <title> WWW/Z39.50 Gateway History</title>
   4 </head>
   5 <body>
   6 {
   7 # $Id: history.egw,v 1.2 1996/01/09 16:16:47 adam Exp $
   8
   9     if {[info commands saveState] == ""} {
  10         source z39util.tcl
  11     }
  12
  13     z39history
  14
  15     if {$useIcons} {
  16         html {<img src="/egwgif/button-egw.gif" alt="Europagate" border=0></a>}
  17     } else {
  18         html {Europagate | }
  19     }
  20     html {<a href="http:} $env(SCRIPT_NAME)
  21     html / $sessionId {/targets.egw}
  22     if {$useIcons} {
  23         html {"><img src="/egwgif/button-new-target.gif" }
  24         html {alt="New Target" border=0></a>}
  25     } else {
  26         html {">New Target</a>} "\n"
  27     }
  28 }
  29 {
  30     catch maintenance
  31     if {!$debug} return
  32     html "<hr>\n"
  33     html "<h3>Debug information</h3>\n"
  34     html "sessionId: $sessionId <br>\n"
  35     html "sessionParms: $sessionParms <br>\n"
  36     foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
  37         html $e {: } $env($e) {<br>} \n
  38     }
  39     html "form: " [wform] " <br>\n"
  40     html "target: " $host " <br>\n"
  41     html "databases: " $databases " <br>\n"
  42     html "setNo: " $setNo " <br>\n"
  43     html "nextSetNo: " $nextSetNo " <br>\n"
  44     html "initSet: " $initSet " <br>\n"
  45     html "scanLine: " $scanLine " <br>\n"
  46     html "scanTerm: " $scanTerm " <br>\n"
  47 }
  48 </body></html>
  49
  50