Hi,

I am using Perl AGI to dial the carrier (Gateway), i
am little experiencing how to do TRUN in Perl AGI.

this is my script how i am dialing the number to
Gateways, So before dialing the number i want to
select the codecs according to our Gateway.


my $discr = $AGI->get_variable("DIALSTATUS");
if ($discr == "CONGESTION" || $discr == "NOANSWER" ||
$discr == "CHANUNAVAIL")
{
        my $dialstr = "$gwtype/$gwip/" . $dialednum .
"|30|tTL(" . ($crdeit*1000) .":7000:5000)";
        $AGI->exec('Dial', $dialstr);
        $discr = "";
}

Any idea?



--------
Yours,
Abdul Lateef
Computer Programmer
HATIF COM
Mob: +974 - 5405022
ICQ: 276994704
MSN: [EMAIL PROTECTED]
GoogleTalk: [EMAIL PROTECTED]
YM!: abdul_zu
Doha Qatar
http://www.hatif.com

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
_______________________________________________
--Bandwidth and Colocation provided by Easynews.com --

Asterisk-Users mailing list
To UNSUBSCRIBE or update options visit:
   http://lists.digium.com/mailman/listinfo/asterisk-users

Reply via email to