Main.hs

   1 module Main where
   2
   3 import CGI hiding (div, head, map, span)
   4 import RawCGIInternal
   5 import CGIOutput
   6
   7 main = start [] cgi
   8
   9 cgi CGIInfo {cgiUrl = url, cgiPathInfo = pi, cgiContentType = ct, cgiContents = c, cgiCookies = co, cgiArgs = as, cgiHandle = h} parms = do
  10         putStr "content-type: text/html\n\n"
  11         print parms
  12         print url
  13         print pi
  14         print ct
  15         print co
  16         print co
  17         print as
  18         print h
  19         case assocParm "test" parms of
  20                 Nothing -> putStr "Parameter 'test' not provided"
  21                 Just x -> putStr $ "Value of test = "++x