Safe Haskell	None

Network.AGI

Synopsis

Documentation

data Digit

DTMF digits

Constructors

Pound
Star
Zero
One
Two
Three
Four
Five
Six
Seven
Eight
Nine

Instances

Enum Digit
Eq Digit
Data Digit
Ord Digit
Read Digit
Show Digit
Typeable Digit

ppDigit :: Digit -> Char

convert a Digit to its ASCII representation

ppEscapeDigits :: [Digit] -> String

convert a list of Digits into a quoted string. The quoted string format is used by many AGI commands

digitsToInteger :: [Digit] -> Maybe Integer

convert a list of Digits to an Integer. Will fail if the list is empty or contains * or #

type AGI = AGIT IO

run :: MonadIO m => AGIT m a -> Handler -> m a

Top-level wrapper for single-shot AGI scripts.

Example:

 main = run yourAGI Ignore

fastAGI :: Maybe PortID -> (HostName -> PortNumber -> AGI a) -> IO ()

Top-level for long running AGI scripts.

Example:

 main = fastAGI Nothing yourAGI

You should be sure to compile with -threaded. Note that yourAGI may be running simultaneously in multiple threads, so you will need some concurrency control for shared data.

TODO: support a hang-up handler TODO: ability to listen on a specific IP address

runInternal :: MonadIO m => AGIT m a -> Handle -> Handle -> m a

runInternal - run an AGI script using the supplied Handles for input and output

You probably want run or fastAGI. This function is exposed so that 3rd party libraries such as HAppS can easily add support for FastAGI support.

TODO: support general method of handling extra arguments (query_string vs command-line arguments)

data SoundType

Constructors

WAV
GSM

Instances

Enum SoundType
Eq SoundType
Data SoundType
Show SoundType
Typeable SoundType

sendRecv :: MonadIO m => Command -> AGIT m String

send an AGI Command, and return the Response

this function provides the low-level send/receive functionality.

answer

Arguments

:: MonadIO m
=> AGIT m Bool	True on success, False on failure

answer channel if not already in answer state

hangUp

Arguments

:: MonadIO m
=> Maybe String	channel to hangup, or current channel if not specified
-> AGIT m Bool

hangUp the specified channel

getData

Arguments

:: MonadIO m
=> FilePath	file to stream
-> Maybe Integer	timout in ms after keypress (default: 2000 ms)
-> Maybe Integer	max
-> AGIT m (Maybe ([Digit], Bool))	Nothing on failure, Just (digits, timeout) on success

play a file and return and digits pressed

See also: streamFile

data RecordResult

Constructors

FailureToWrite
FailureOnWaitFor
HangUp
Interrupted Digit
Timeout
RandomError String

Instances

Eq RecordResult
Data RecordResult
Show RecordResult
Typeable RecordResult

sayDigits

Arguments

:: MonadIO m
=> [Digit]	digits to say
-> [Digit]	digits which can stop playback
-> AGIT m (Maybe (Maybe Digit))	Nothing on error, Just Nothing on success. Just (Just digit) if interrupted.

say the given digit string

sayNumber

Arguments

:: MonadIO m
=> Integer	number to say
-> [Digit]	return early if any of these digits are received
-> AGIT m (Maybe (Maybe Digit))	Nothing on failure, Just Nothing on success, Just (Just digit) if key is pressed

sayNumber says the specified number

streamFile

Arguments

:: MonadIO m
=> FilePath	file to stream
-> [Digit]	escape digits
-> Maybe Integer	sample offset
-> AGIT m (Either Integer (Maybe Digit, Integer))	On failure: Left endpos. On success: Right (Maybe Digit, endpos)

playback the specified file, can be interupted by the given digits.

:: MonadIO m
=> FilePath	record to this file
-> SoundType	\|GSM \| WAV\|
-> [Digit]	stop recording if one of these digits is entered
-> Maybe Integer	maximum record time in milliseconds, -1 for no timeout
-> Maybe Integer	offset samples
-> Bool	beep to indicate recording has begun
-> Maybe Integer	stop recording if this many seconds of silence passes
-> AGIT m (RecordResult, Integer)	exit condition, endpos=offset

:: MonadIO m
=> Integer	timeout in milliseconds, -1 to block indefinitely
-> AGIT m (Maybe (Maybe Digit))	\|Nothing\| on error, \|Just Nothing\| on timeout, \|Just (Just digit)\| on success