Asterisk::FastAGI 0.01

Asterisk::FastAGI is a Perl module for FastAGI handling.

SYNOPSIS

use base Asterisk::FastAGI;

sub fastagi_handler {
my $self = shift;

my $param = $self->param(foo);
my $callerid = $self->input(calleridname);

$self->agi->say_number(1000);
}

Asterisk::FastAGI provides a preforking daemon for handling FastAGI requests from Asterisk.

Read the Net::Server for more information about the logging facilities, configuration, etc.

USAGE EXAMPLE

First you need a module containing all of your AGI handlers.

package MyAGI;

use base Asterisk::FastAGI;

sub agi_handler {
my $self = shift;
$self->agi->say_number(8675309);
}

Then you simply need to have a script that runs the daemon.

#!/usr/bin/perl
use MyAGI;

MyAGI->run();

When it is run it creates a preforking daemon on port 4573. That is the default port for FastAGI. Read the Net::Server documentation on how to change this and many other options.