Jagadish Thoutam
2012-Oct-05 05:29 UTC
[asterisk-users] Sending DTMF from one asterisk server to another asterisk server
Hi All, I have two asterisk(A1,A2) servers in Different sub-net, Here i am sending call to A1 to A2 with using of .call file and sending to some extension. on that extension i am using my Perl AGI for my custom Program here i am sending DTMF from A1 to A2, A2 is not taking DTMF wicth i am sending from A2. Please Help me on this **************************************************************************************************************************** #!/usr/bin/perl $call="5050"; $mobno1 = 5312; $mobno = $mobno1."\@Hrad-rock"; print "\n Mobno = $mobno\n"; print "\n Dialing $mobno\n"; if($mobno>0) { open F, ">/tmp/bulk_call.$mobno" or die "Could not open \n"; print F "Channel: SIP/$mobno\n"; print F "Context:jagan\n"; print F "Callerid:$mobno\n"; print F "Extension:$mobno\n"; print F "Set:CALLERID=$mobno1\n"; print F "Set:MSISDN=$mobno1\n"; print F "Set:WAV=$mess\n"; print F "priority:1\n"; print F "WaitTime:205\n"; system( "/bin/mv /tmp/bulk_call.$mobno /var/spool/asterisk/outgoing" ); } ********************************************************************************************************************************* exten = _X.,1,Answer exten = _X.,n,Set(CallerID=${CALLERID}) exten = _X.,n,AGI(jagan.agi) exten = _X.,n,Hangup ********************************************************************************************************************************** #!/usr/bin/perl use Asterisk::AGI; $AGI = new Asterisk::AGI; $AGI->exec(WAIT,5); $AGI->exec(SENDDTMF,'2'); ************************************************************************************************************************************* Thanks Jagan -------------- next part -------------- An HTML attachment was scrubbed... URL: <http://lists.digium.com/pipermail/asterisk-users/attachments/20121005/413704f6/attachment.htm>