statsthread :: Lock -> IO ()
statsthread l =
    do c <- dbconnect
       statsthread' l c
       disconnect c
statsthread :: Lock -> IO ()
statsthread l =
    do c <- dbconnect
       statsthread' l c
       disconnect c
statsthread l =
    do c <- dbconnect
       statsthread' l c
       disconnect c