#!/home/janweb/www/hugs/bin/runhugs +l

module Main (main) where

import CGI

envtabln (x,[]) = [[element "B" [prose x]], [RawHTML " "]]
envtabln (x,y)  = [[element "B" [prose x]], [prose y]]

myBody env = table "Environment" ["Variable","Value"] (map envtabln env)

prEnv :: [(Name,Value)] -> IO (CgiOut HTML)
prEnv env = do return Content{mime = page "Environment Test" [] [myBody env],
                              cookies = [] }

main :: IO ()
main = wrapper prEnv