Haskell Hierarchical Libraries (cgi package) Source code Contents Index

Network.CGI.Protocol Portability non-portable Stability experimental Maintainer bjorn@bringert.net

Contents CGI request CGI response Running CGI actions Inputs Environment variables Logging URL encoding Utilities

Description

An implementation of the program side of the CGI protocol.

Synopsis

data CGIRequest = CGIRequest { cgiVars :: (Map String String) cgiInputs :: [(String, Input)] cgiRequestBody :: ByteString } data Input = Input { inputValue :: ByteString inputFilename :: (Maybe String) inputContentType :: ContentType } data CGIResult = CGIOutput ByteString | CGINothing type Headers = [(HeaderName, String)] newtype HeaderName = HeaderName String hRunCGI :: MonadIO m => [(String, String)] -> Handle -> Handle -> (CGIRequest -> m (Headers, CGIResult)) -> m () runCGIEnvFPS :: Monad m => [(String, String)] -> ByteString -> (CGIRequest -> m (Headers, CGIResult)) -> m ByteString decodeInput :: [(String, String)] -> ByteString -> [(String, Input)] takeInput :: [(String, String)] -> ByteString -> ByteString getCGIVars :: MonadIO m => m [(String, String)] logCGI :: MonadIO m => String -> m () formEncode :: [(String, String)] -> String urlEncode :: String -> String formDecode :: String -> [(String, String)] urlDecode :: String -> String maybeRead :: Read a => String -> Maybe a replace :: Eq a => a -> a -> [a] -> [a]

CGI request

data CGIRequest

The input to a CGI action. Constructors CGIRequest cgiVars :: (Map String String) Environment variables. cgiInputs :: [(String, Input)] Input parameters. For better laziness in reading inputs, this is not a Map. cgiRequestBody :: ByteString Raw request body. Instances Show CGIRequest

data Input

The value of an input parameter, and some metadata. Constructors Input inputValue :: ByteString inputFilename :: (Maybe String) inputContentType :: ContentType Instances Show Input

CGI response

data CGIResult

The result of a CGI program. Constructors CGIOutput ByteString CGINothing Instances Eq CGIResult Ord CGIResult Read CGIResult Show CGIResult Typeable CGIResult

type Headers = [(HeaderName, String)]

newtype HeaderName

A string with case insensitive equality and comparisons. Constructors HeaderName String Instances Eq HeaderName Ord HeaderName Show HeaderName

Running CGI actions

hRunCGI

:: MonadIO m => [(String, String)] CGI environment variables, e.g. from getCGIVars. -> Handle Handle that input will be read from, e.g. stdin. -> Handle Handle that output will be written to, e.g. stdout. -> (CGIRequest -> m (Headers, CGIResult)) CGI action -> m () Runs a CGI action in a given environment. Uses Handles for input and output.

runCGIEnvFPS

:: Monad m => [(String, String)] CGI environment variables. -> ByteString Request body. -> (CGIRequest -> m (Headers, CGIResult)) CGI action. -> m ByteString Response (headers and content). Runs a CGI action in a given environment. Uses lazy ByteStrings for input and output.

Inputs

decodeInput

:: [(String, String)] CGI environment variables. -> ByteString Request body. -> [(String, Input)] Input variables and values. Gets and decodes the input according to the request method and the content-type.

takeInput

:: [(String, String)] CGI environment variables. -> ByteString Request body. -> ByteString CONTENT_LENGTH bytes from the request body, or the empty string if there is no CONTENT_LENGTH. Takes the right number of bytes from the input.

Environment variables

getCGIVars :: MonadIO m => m [(String, String)]

Gets the values of all CGI variables from the program environment.

Logging

logCGI :: MonadIO m => String -> m ()

Logs some message using the server's logging facility. FIXME: does this have to be more general to support FastCGI etc? Maybe we should store log messages in the CGIState?

URL encoding

formEncode :: [(String, String)] -> String

Formats name-value pairs as application/x-www-form-urlencoded.

urlEncode :: String -> String

Converts a single value to the application/x-www-form-urlencoded encoding.

formDecode :: String -> [(String, String)]

Gets the name-value pairs from application/x-www-form-urlencoded data.

urlDecode :: String -> String

Converts a single value from the application/x-www-form-urlencoded encoding.

Utilities

maybeRead :: Read a => String -> Maybe a

replace

:: Eq a => a Value to look for -> a Value to replace it with -> [a] Input list -> [a] Output list Replaces all instances of a value in a list by another value.

Produced by Haddock version 0.8