Posted to tcl by mjanssen at Sun Jul 01 15:54:46 GMT 2007view pretty
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