Posted to tcl by mjanssen at Sun Jul 01 15:54:46 GMT 2007view raw

  1. sqlite3 db c:/temp/ts.sqlite
  2.  
  3. socket -server OnConnect 9999
  4.  
  5. proc OnConnect {sock ip port} {
  6. # puts "connection $sock"
  7. fconfigure $sock -blocking 0 -buffering none -translation binary
  8. fileevent $sock readable [list GetData $sock]
  9. }
  10.  
  11.  
  12. proc GetData {sock} {
  13. # puts -nonewline [read $sock]
  14. read $sock
  15. flush stdout
  16. puts $sock "Status: 200 OK"
  17. puts $sock "Content-Type: text/html"
  18. puts $sock ""
  19. puts $sock "<HTML><hr>[db eval {SELECT * from sqlite_master WHERE type='table'}]</html>"
  20. close $sock
  21. }
  22.  
  23. vwait forever