Posted to tcl by mjanssen at Sun Jul 01 15:54:46 GMT 2007view raw
- sqlite3 db c:/temp/ts.sqlite
- socket -server OnConnect 9999
- proc OnConnect {sock ip port} {
- # puts "connection $sock"
- fconfigure $sock -blocking 0 -buffering none -translation binary
- fileevent $sock readable [list GetData $sock]
- }
- proc GetData {sock} {
- # puts -nonewline [read $sock]
- read $sock
- flush stdout
- puts $sock "Status: 200 OK"
- puts $sock "Content-Type: text/html"
- puts $sock ""
- puts $sock "<HTML><hr>[db eval {SELECT * from sqlite_master WHERE type='table'}]</html>"
- close $sock
- }
- vwait forever