[asterisk-users] Perl-AGI process

[Trevor Peirce]

Abdul wrote:
> routes.pl
> $dgw = 'SIP/5556';   #A-Z carrier
> $opt = 'L(60000:10000)';
> $AGI->set_variable(routecall-destination, $dgw);
>  $AGI->set_variable(routecall-args, $opt);
>
> Extnenitons.conf
> [testwell]
> exten => _x.,1,Set(TIMEOUT(absolute)=3660)
> exten => _x.,2,AGI(routes.pl)
> exten => _x.,3,Dial(${routecall-destination},${routecall-args})
> exten => h,1,DeadAGI(stop.pl)
>
>
> Warnning :
>
> [Jan 12 14:34:22] WARNING[27323]: app_dial.c:863 dial_exec_full: Dial 
> requires an argument (technology/number)
>   == Spawn extension (testwell, 9745424620, 9) exited non-zero on 
> 'SIP/8098179675-b726f5e8'
Hmm.  You might be having problems with escaping.  That's one thing I 
recall bothered me about Asterisk::AGI

The best way to debug it is to add NoOp(routecall-destination = 
${routecall-destination}) to your dial plan and look at the verbose 
output to see what it's saying.  Then try adding some escapes to your 
Perl script and see if that helps.

That's first a single quote ' then a double quote " as below, and to 
close it obviously a double then a single:

$dgw = '"SIP/5556"';   #A-Z carrier
$opt = '"L(60000:10000)"';

-- 
Real CNAM data for incoming Caller ID @ www.cnam.info