<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.6000.16788" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><SPAN style="FONT-SIZE: 9pt; COLOR: #355e00; FONT-FAMILY: Verdana"><FONT
color=#000080><FONT face=Arial color=#000000 size=2></FONT></FONT></SPAN></DIV>
<DIV><SPAN style="FONT-SIZE: 9pt; COLOR: #355e00; FONT-FAMILY: Verdana"><FONT
color=#000080><FONT face=Arial color=#000000 size=2>Pessoal, algum tempo atras ,
um amigo aqui do forum postou essa soluçao abaixo, quando disco para algum
celular o mesmo procura no site ve de qual operadora é e escolhe a rota. Mas nao
está funcionando mais, algumem tem outra saida para
isso?</FONT></FONT></SPAN></DIV>
<DIV><SPAN
style="FONT-SIZE: 9pt; COLOR: #355e00; FONT-FAMILY: Verdana"></SPAN> </DIV>
<DIV><SPAN style="FONT-SIZE: 9pt; COLOR: #355e00; FONT-FAMILY: Verdana"><FONT
color=#000080>
<P>#!/usr/bin/perl -w</P>
<P>use Asterisk::AGI;<BR>use WWW::Mechanize;<BR>use MIME::Base64;<BR>my $AGI =
new Asterisk::AGI;<BR>my %input = $AGI->ReadParse();<BR>my @operadoras =
(“Eder”, “Claro”, “Tim”, “Vivo”, “Telemig”, “Oi”, “Nextel”, “Brasil telecom”,
“Sercomtel”, “CTBC”);<BR>my $num_saida =
$AGI->get_variable(‘EXTEN’);<BR>$num_saida = substr($num_saida,3,10);<BR>$m =
WWW::Mechanize->new();<BR>my $data =
decode_base64(‘aHR0cDovL3dlYnNlcnZpY2VzLnR3d3dpcmVsZXNzLmNvbS5ici9yZWx1emNhcC93c3JlbHV6Y2FwL’
. ‘mFzbXg=’);<BR>$m->add_header(Referer => $data);<BR>my $s = $data
. “/VerOperadora?celular=55″ . $num_saida;<BR>$m->get($s);<BR>$c =
$m->content;<BR>$c =~
m/>(\d+)</;<BR>$AGI->exec(“NoOp”,”$num_saida”);<BR>$AGI->exec(“NoOp”,”$operadoras[$1]“);</P>
<P># O codigo se adapta conforme o cenario de cada um, mudar o DIAL para rotear
a saida da operadora em questao<BR>####$AGI->exec(“Dial”,”SIP/MUDE AQUI PARA
SUA SAIDA SIP ou GSM ou ZAP ou DAHDI ou UNICALL ou DVG etc etc|10″);</P>
<P># FIM</P>
<P>Extensions.conf</P>
<P>minha linha para a chamada do AGI de testes</P>
<P>exten => _999.,1,agi,pega.pl</P></DIV>
<DIV><BR></DIV></FONT></SPAN></BODY></HTML>