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