#!/usr/local/bin/tclsh
set scriptdir [file dirname [info script]]
set scriptURL {http://129.6.120.28/cgi-bin/icdd-search}
set PSdir {/home/toby/ps}
# create the top of the html form
puts "Content-type: text/HTML\n"
puts "<HTML>"
set errmsg {}
puts "<HEAD>"
puts "<TITLE>ICDD database search result</TITLE></HEAD>"
puts "<BODY><H1>ICDD database search result</H1>"

if [catch {
    puts "<FORM METHOD=POST ACTION=\"$scriptURL\">"
    exec $PSdir/tcl_logic $PSdir/icdd-search_script} errmsg
] { puts "Tcl Error occurred, message:}
    
puts $errmsg
# finish the form
puts "</BODY>"
puts "</HTML>"
