How do I forward the current Asterisk call in AGI using Perl?

asterisk, perl, telephony

Solution

print "EXEC DIAL \"Zap/1/5551234567\"\n";

or, if you are using `Asterisk::AGI`,

$AGI->exec("DIAL", "Zap/1/5551234567");

Problem

I have an asterisk-based PBX, and I have been able to successfully run an AGI script from the web control panel of the PBX. Because I am calling AGI from Perl (neither of which I know, yet)... asterisk commands look like this: ``` print "SET CALLERID $newcid \"\"\n"; ``` So far, I don't expect to need to do any database lookups, etc. I simply want to set the caller ID (which I can do already) - then forward the call to a particular number. Can anyone show me how to forward the current call using the AGI/perl style of executing asterisk commands shown above? FYI: I've seen some examples using a format like: ``` Exten => blah blah.... ``` But, I am not sure how to convert that to the AGI/perl format.

Original source