Fix regression in http.c for long-polling connections; add lazy initialization of database connections, to avoid the overhead in handlers that don't use SQL

fun main () =
  case #"A" of
      #"B" => return <xml/>
    | _ => return <xml>A!</xml>