Asterisk AGI

From Osnow

Jump to: navigation, search

1 PDF Companion piece
2 Getting to it
3 Inbound route in FreePBX
4 The App
5 Resources

[edit]

PDF Companion piece

media:How_to_Write_a_Perl_AGI_Application.pdf

[edit]

Getting to it

In extensions_custom.conf, add this text:

[custom-kiosk]
exten => s,1,AGI(kiosk.agi|${CALLERIDNUM})
exten => s,2,Playback(lots-o-monkeys) 
exten => s,3,Hangup

To dial it from inside, as *66 add this above it:

exten => *66,1,Answer
exten => *66,2,Goto(custom-kiosk,s,1)
exten => *66,3,Hangup

To dial as extension 1097 add this somewhere above the custom tag:

exten => 1097,1,Goto(custom-kiosk,s,1)

[edit]

Inbound route in FreePBX

Get into FreePBX->Setup->Inbound Routes->DID page
Under Set Destination choose: Custom App and enter:

custom-kiosk,s,1

[edit]

The App

#!/usr/bin/perl -w  
 
use Asterisk::AGI;
use DBI;

# Config options
#%MYSQL = (
#	hostname	=>	"localhost:3306",
#	username	=>	"asdf",
#	password	=>	"asdf",
#	database	=>	"asteriskdb"
#);

#$dbh = DBI->connect("dbi:mysql:$MYSQL{database}:$MYSQL{hostname}","$MYSQL{username}","$MYSQL{password}")
#	|| die("Couldn't connect to database!\n"); 

#
# We should throw an error down the channel and take care of it gracefully
#

my $AGI = new Asterisk::AGI;
#my %input = $AGI->ReadParse();

my $target	= 0;
my $try		= 0;

$AGI->exec('AGI',"festival-weather-script.pl|\"Thanks for calling the Real Estate EXPO Property Line. Enter your four digit property code, at any time.\"");

$AGI->exec('background', 'now');

exit;

[edit]