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.3 1996/01/12 10:03:16 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 }
  41 </body></html>
  42
  43