[asterisk-users] Sending DTMF from one asterisk server to another asterisk server
Jagadish Thoutam
jaganthoutam at gmail.com
Fri Oct 5 00:29:56 CDT 2012
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>
More information about the asterisk-users
mailing list