www/history.egw

   1 <html>
   2 {
   3 # $Id: history.egw,v 1.8 1996/03/14 11:50:44 adam Exp $
   4
   5     if {[info commands saveState] == ""} {
   6         source z39util.tcl
   7         if {![info exists debug]} {
   8             session-lost
   9             egw_abort
  10         }
  11     }
  12
  13     html {<head><title> WWW/Z39.50 Gateway History</title></head><body>}
  14
  15     set useIcons 1
  16     button-main
  17     button-new-target
  18
  19     z39history
  20
  21     set useIcons 0
  22     button-main
  23     button-new-target
  24
  25     catch maintenance
  26     if {!$debug} return
  27     html "<hr>\n"
  28     html "<h3>Debug information</h3>\n"
  29     html "sessionId: $sessionId <br>\n"
  30     html "sessionParms: $sessionParms <br>\n"
  31     foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
  32         html $e {: } $env($e) {<br>} \n
  33     }
  34     html "form: " [egw_form] " <br>\n"
  35 }
  36 </body></html>
  37
  38