Foi colocada uma imagem para confirmação no site de conulta da ABR. <br><br><div class="gmail_quote">2010/5/10 sergio <span dir="ltr">&lt;<a href="mailto:sergio@inbox.com">sergio@inbox.com</a>&gt;</span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">



<div>

<div>AGI em Perl que executa o Script em Python<br><a href="http://ederwander.wordpress.com/2010/01/15/agi-portabilidade-para-numeros-moveis-em-asterisk/" target="_blank">http://ederwander.wordpress.com/2010/01/15/agi-portabilidade-para-numeros-moveis-em-asterisk/</a><br>
<br>Script Python que Faz a Consulta<br></div><a href="http://ederwander.wordpress.com/2009/11/26/portabilidade-dbo-descobrir-operadoras/" target="_blank">http://ederwander.wordpress.com/2009/11/26/portabilidade-dbo-descobrir-operadoras/</a><br>
<br><blockquote style="border-left: 2px solid rgb(0, 0, 255); padding-left: 5px; margin-left: 5px; margin-right: 0px;"><div class="im"><div>-----Original Message-----<br><b>From:</b> <a href="mailto:engricardofranco@gmail.com" target="_blank">engricardofranco@gmail.com</a><br>
<b>Sent:</b> Mon, 10 May 2010 15:14:53 -0300<br><b>To:</b> <a href="mailto:asteriskbrasil@listas.asteriskbrasil.org" target="_blank">asteriskbrasil@listas.asteriskbrasil.org</a><br><b>Subject:</b> Re: [AsteriskBrasil] portabilidade<br>
<br></div></div><div><div></div><div class="h5"><div><div>
Ola Senhores.<br>
Que site é este? Como é feita a consulta? Alguém tem mais explicações
sobre o assunto?<br>
<br>
Att.<br>
<br>
Ricardo Franco<br>
<br>
jose wrote:
<blockquote type="cite">
  
  
  
  <div><span></span></div>
  <div><span><font color="#000080"><font face="Arial" size="2" color="#000000">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></span> </div>
  <div><span><font color="#000080">
  </font>
  <p><font color="#000080">#!/usr/bin/perl -w</font></p>
  <p><font color="#000080">use Asterisk::AGI;<br>
use WWW::Mechanize;<br>
use MIME::Base64;<br>
my $AGI = new Asterisk::AGI;<br>
my %input = $AGI-&gt;ReadParse();<br>
my @operadoras = (“Eder”, “Claro”, “Tim”, “Vivo”, “Telemig”, “Oi”,
“Nextel”, “Brasil telecom”, “Sercomtel”, “CTBC”);<br>
my $num_saida = $AGI-&gt;get_variable(‘EXTEN’);<br>
$num_saida = substr($num_saida,3,10);<br>
$m = WWW::Mechanize-&gt;new();<br>
my $data =
decode_base64(‘aHR0cDovL3dlYnNlcnZpY2VzLnR3d3dpcmVsZXNzLmNvbS5ici9yZWx1emNhcC93c3JlbHV6Y2FwL’      
 . ‘mFzbXg=’);<br>
$m-&gt;add_header(Referer =&gt; $data);<br>
my $s = $data . “/VerOperadora?celular=55″ . $num_saida;<br>
$m-&gt;get($s);<br>
$c = $m-&gt;content;<br>
$c =~ m/&gt;(\d+)&lt;/;<br>
$AGI-&gt;exec(“NoOp”,”$num_saida”);<br>
$AGI-&gt;exec(“NoOp”,”$operadoras[$1]“);</font></p>
  <p><font color="#000080"># O codigo se adapta conforme o cenario de
cada um, mudar o DIAL para rotear a saida da operadora em questao<br>
####$AGI-&gt;exec(“Dial”,”SIP/MUDE AQUI PARA SUA SAIDA SIP ou GSM ou
ZAP ou DAHDI ou UNICALL ou DVG etc etc|10″);</font></p>
  <p><font color="#000080"># FIM</font></p>
  <p><font color="#000080">Extensions.conf</font></p>
  <p><font color="#000080">minha linha para a chamada do AGI de testes</font></p>
  <p><font color="#000080">exten =&gt; _999.,1,agi,<a href="http://pega.pl" target="_blank">pega.pl</a></font></p>
  </span></div>
  <div><font color="#000080"><br>
  </font></div>
  <pre><hr size="4" width="90%">
_______________________________________________
KHOMP: qualidade em placas de E1, GSM, FXS e FXO para Asterisk. 
- Hardware com alta disponibilidade de recursos e qualidade KHOMP
- Suporte técnico local qualificado e gratuito 
Conheça a linha completa de produtos KHOMP em <a href="http://www.khomp.com.br" target="_blank">www.khomp.com.br</a>
_______________________________________________
A Redfone é líder no fornecimento de bridges TDMoE -&gt; E1
- Valor similar ao de placas E1 PCI;
- Não há problemas de compatibilidade com barramento PCI;
- Possibilitam a construção de soluções de alta disponibilidade(dois servidores compartilham o mesmo E1)
Conheça mais sobre este produto em <a href="http://www.red-fone.com" target="_blank">www.red-fone.com</a>
_______________________________________________


Lista de discussões AsteriskBrasil.org
<a href="mailto:AsteriskBrasil@listas.asteriskbrasil.org" target="_blank">AsteriskBrasil@listas.asteriskbrasil.org</a>
<a href="http://listas.asteriskbrasil.org/mailman/listinfo/asteriskbrasil" target="_blank">http://listas.asteriskbrasil.org/mailman/listinfo/asteriskbrasil</a></pre>
</blockquote>
</div></div></div></div></blockquote>
</div>

<br>_______________________________________________<br>
KHOMP: qualidade em placas de E1, GSM, FXS e FXO para Asterisk.<br>
- Hardware com alta disponibilidade de recursos e qualidade KHOMP<br>
- Suporte técnico local qualificado e gratuito<br>
Conheça a linha completa de produtos KHOMP em <a href="http://www.khomp.com.br" target="_blank">www.khomp.com.br</a><br>
_______________________________________________<br>
A Redfone é líder no fornecimento de bridges TDMoE -&gt; E1<br>
- Valor similar ao de placas E1 PCI;<br>
- Não há problemas de compatibilidade com barramento PCI;<br>
- Possibilitam a construção de soluções de alta disponibilidade(dois servidores compartilham o mesmo E1)<br>
Conheça mais sobre este produto em <a href="http://www.red-fone.com" target="_blank">www.red-fone.com</a><br>
_______________________________________________<br>
<br>
<br>
Lista de discussões AsteriskBrasil.org<br>
<a href="mailto:AsteriskBrasil@listas.asteriskbrasil.org">AsteriskBrasil@listas.asteriskbrasil.org</a><br>
<a href="http://listas.asteriskbrasil.org/mailman/listinfo/asteriskbrasil" target="_blank">http://listas.asteriskbrasil.org/mailman/listinfo/asteriskbrasil</a><br></blockquote></div><br>