[asterisk-users] Getting DIALSTATUS via agi

[Mike Diehl]

Hi all,

Hopefully, I just need a second set of eyes on this one, but I just can't
figure out what I'm doing wrong.  I'm using an agi script to dial a number,
check the dial result, and act accordingly.

The problem is that I'm not getting anything back from DIALSTATUS, or
HANGUPCAUSE.

Here is the relevant perl code:

===============================================================

$main::agi->verbose("====================================================================================
", 1);
                $main::agi->exec("dial",
"sip/$t->{trunk}/$t->{prefix}$o->{number},240,KrTWX");
                $result = $main::agi->get_variable("DIALSTATUS");
                $cause = $main::agi->get_variable("HANGUPCAUSE");

                $o->{DIALSTATUS} = $result;
                $o->{HANGUPCAUSE} = $cause;
                $main::agi->verbose("============================= The
result of the last call was ($o->{DIALSTATUS}) ($o->{HANGUPCAUSE})", 1);
$main::agi->verbose("====================================================================================
", 1);

===============================================================

Here is the relevant output with agi debug turned on:

===============================================================

[Apr  1 15:01:55] <SIP/CCEF485BC606-2-00007787>AGI Tx >> 200 result=0
[Apr  1 15:01:55] <SIP/CCEF485BC606-2-00007787>AGI Rx << VERBOSE
"====================================================================================
" 1
[Apr  1 15:01:55]  magic_switch.pl:
====================================================================================

[Apr  1 15:01:55] <SIP/CCEF485BC606-2-00007787>AGI Tx >> 200 result=1
[Apr  1 15:01:55] <SIP/CCEF485BC606-2-00007787>AGI Rx << EXEC dial
"sip/didlogic/15058457900,240,KrTWX"
[Apr  1 15:01:55]     -- AGI Script Executing Application: (dial) Options:
(sip/didlogic/15058457900,240,KrTWX)
[Apr  1 15:01:55]   == Using SIP RTP TOS bits 24
[Apr  1 15:01:55]   == Using SIP RTP CoS mark 5
[Apr  1 15:01:55]     -- Called sip/didlogic/15058457900
[Apr  1 15:01:55]     -- Got SIP response 603 "Declined" back from
178.63.143.236:5060
[Apr  1 15:01:55]     -- SIP/didlogic-00007788 is busy
[Apr  1 15:01:55]   == Everyone is busy/congested at this time (1:1/0/0)
[Apr  1 15:01:55] <SIP/CCEF485BC606-2-00007787>AGI Tx >> 200 result=0
[Apr  1 15:01:55] <SIP/CCEF485BC606-2-00007787>AGI Rx << GET VARIABLE
DIALSTATUS
[Apr  1 15:01:55] <SIP/CCEF485BC606-2-00007787>AGI Tx >> 200 result=1 (BUSY)
[Apr  1 15:01:55] <SIP/CCEF485BC606-2-00007787>AGI Rx << GET VARIABLE
HANGUPCAUSE
[Apr  1 15:01:55] <SIP/CCEF485BC606-2-00007787>AGI Tx >> 200 result=1 (21)
[Apr  1 15:01:55] <SIP/CCEF485BC606-2-00007787>AGI Rx << VERBOSE
"============================= The result of the last call was () ()" 1
[Apr  1 15:01:55]  magic_switch.pl: ============================= The
result of the last call was () ()
[Apr  1 15:01:55] <SIP/CCEF485BC606-2-00007787>AGI Tx >> 200 result=1
[Apr  1 15:01:55] <SIP/CCEF485BC606-2-00007787>AGI Rx << VERBOSE
"====================================================================================
" 1
[Apr  1 15:01:55]  magic_switch.pl:
====================================================================================


===============================================================



So, the result of my previous AGI command was 200.  Then I can clearly see
that the result of this dial is BUSY/21, which I understand.  But, my perl
script isn't getting this value.  I do the assignment to/from $result and
$cause because I use those values later in the script, but have to pass
them back to a global routine, as well.

Can anyone see what I'm doing wrong?

Mike Diehl.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.digium.com/pipermail/asterisk-users/attachments/20130401/b86afe55/attachment.htm>