oratcl on the web?
From: Lee Suk-Chan <acetcom_at_postech.ac.kr>
Date: Wed, 19 May 1999 01:24:42 +0900
Message-ID: <3741944A.FF7DBD41_at_postech.ac.kr>
*The following source is my test program. *I want to execute the test program on the web.
#!/usr/local/bin/tclsh
Date: Wed, 19 May 1999 01:24:42 +0900
Message-ID: <3741944A.FF7DBD41_at_postech.ac.kr>
*The following source is my test program. *I want to execute the test program on the web.
#!/usr/local/bin/tclsh
puts "Content-type: text/html\n\n"
set handle [oralogon xxxxxx/xxxxx8223]
set cursor [oraopen $handle]
orasql $cursor "select * from journal"
set row [orafetch $cursor]
puts "<html><head><title>asdfsdaf</title></head><body>" puts "<p>number of columns: [llength $row]" puts "<p>0 columns: [lindex $row 0]" puts "<p>1 columns: [lindex $row 1]" puts "<p>2 columns: [lindex $row 2]" puts "<p>3 columns: [lindex $row 3]" puts "<p>4 columns: [lindex $row 4]" puts "<p>5 columns: [lindex $row 5]" puts "<p>6 columns: [lindex $row 6]" puts "</body></html>"
oraclose $cursor
oralogoff $handle
*The followings are execution results of the test program in shell.. *cyber [ webmaster{} ~/cgi-bin/k/db/test] test.cgi
------------Now Result----------------------------------Content-type: text/html
<html><head><title>asdfsdaf</title></head><body>
<p>number of columns: 13
<p>0 columns: 2
<p>1 columns: ACM Transactions on Computer Systems
<p>2 columns:
<p>3 columns: 16
<p>4 columns: 1
<p>5 columns: 1998
<p>6 columns:
</body></html>
*But, the test program can not show anything on the web. *Why? Received on Tue May 18 1999 - 18:24:42 CEST