Hi All,<br><br> 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.<br>
<br>Please Help me on this<br>****************************************************************************************************************************<br>#!/usr/bin/perl<br>$call="5050";<br>$mobno1 = 5312;<br>
$mobno = $mobno1."\@Hrad-rock";<br>print "\n Mobno = $mobno\n";<br>print "\n Dialing $mobno\n";<br><br> if($mobno>0)<br> {<br> open F, ">/tmp/bulk_call.$mobno" or die "Could not open \n";<br>
print F "Channel: SIP/$mobno\n";<br> print F "Context:jagan\n";<br> print F "Callerid:$mobno\n";<br>
print F "Extension:$mobno\n";<br> print F "Set:CALLERID=$mobno1\n";<br> print F "Set:MSISDN=$mobno1\n";<br>
print F "Set:WAV=$mess\n";<br> print F "priority:1\n";<br> print F "WaitTime:205\n";<br>
<br><br> system( "/bin/mv /tmp/bulk_call.$mobno /var/spool/asterisk/outgoing" );<br><br> }<br>*********************************************************************************************************************************<br>
exten = _X.,1,Answer<br>exten = _X.,n,Set(CallerID=${CALLERID})<br>exten = _X.,n,AGI(jagan.agi)<br>exten = _X.,n,Hangup<br>**********************************************************************************************************************************<br>
#!/usr/bin/perl<br>use Asterisk::AGI;<br><br>$AGI = new Asterisk::AGI;<br><br>$AGI->exec(WAIT,5);<br><br>$AGI->exec(SENDDTMF,'2');<br><br>*************************************************************************************************************************************<br>
<br><br><br><br>Thanks <br>Jagan <br>