Log.hs

import Network.CGI
import System.IO
import Data.List

main :: IO ()
main = runCGI (handleErrors cgiMain)

cgiMain = do
  uri <- getInputs
  let urjson = map (\(x, y) -> "\"" ++ x ++ "\": \"" ++ y ++ "\"") uri
  let js = concat $ intersperse "," urjson
  liftIO $ appendFile "submits.txt" $ "{" ++ js ++ "},\n"
  output "Thanks!"