Port to OSF/1. Gif references moved from /gif/ to /egwgif/.
[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.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