All tcl commands prefixed with egw_ (except the html command).
[egate.git] / 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