<div>O em Perl funciona sim, com as ressalvas do email anterior adapte o dial com a string de discagem para as rotas q atendam sua necessidade para sua empresa !!</div>
<div> </div>
<div>[]&#39;s</div>
<div> </div>
<div> </div>
<div>Eng Eder de Souza</div>
<div><br><br> </div>
<div class="gmail_quote">Em 25 de maio de 2010 12:16, sergio <span dir="ltr">&lt;<a href="mailto:sergio@inbox.com">sergio@inbox.com</a>&gt;</span> escreveu:<br>
<blockquote style="BORDER-LEFT: #ccc 1px solid; MARGIN: 0px 0px 0px 0.8ex; PADDING-LEFT: 1ex" class="gmail_quote">
<div>
<div> O script em Perl funciona ?<br></div><br><br>
<blockquote style="BORDER-LEFT: rgb(0,0,255) 2px solid; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px">
<div>
<div class="im">-----Original Message-----<br><b>From:</b> <a href="mailto:eder.souza@bsd.com.br" target="_blank">eder.souza@bsd.com.br</a><br><b>Sent:</b> Tue, 25 May 2010 09:17:12 -0300<br><b>To:</b> <a href="mailto:asteriskbrasil@listas.asteriskbrasil.org" target="_blank">asteriskbrasil@listas.asteriskbrasil.org</a><br>
</div>
<div>
<div></div>
<div class="h5"><b>Subject:</b> Re: [AsteriskBrasil] RES: portabilidade<br><br></div></div></div>
<div>
<div></div>
<div class="h5">
<div>
<div>
<div>Esta errado de novo !! vc esta mandando discar para o vazio</div>
<div> </div>
<div>sua linha tem q ser parececida com esta<br></div>
<div>$AGI-&gt;exec(&quot;Dial&quot;,&quot;DGV/g1/$num_saida|10&quot;);</div>
<div> </div>
<div>Mais uma vez cada um tem um cenário diferente eu só postei a essencia do script nao adianta copiar e colar ele, cada um tem q adaptar para o cenário de sua empresa, lembrando quem cada um tem q fazer um if antes do DIAL para montar a string de discagem com a rota específica, cada empresa vai ter uma rota distinta :-)</div>

<div> </div>
<div>Sergio este script que vc postou foi de 2009 esste site do consultanumero mudou completamente o sistema deles foi atualizado portanto este script que fiz nao ira mais funcionar para os dias atuais, a saida é reescrever o código para trabalhar com o novo site, mas eu ando meio sem tempo ....</div>

<div> </div>
<div> </div>
<div>[]&#39;s</div>
<div> </div>
<div> </div>
<div>Eng Eder de Souza</div>
<div><br> </div>
<div>Em 25 de maio de 2010 08:36, jose <span dir="ltr">&lt;<a href="mailto:jasanchez@terra.com.br" target="_blank">jasanchez@terra.com.br</a>&gt;</span> escreveu:<br>
<blockquote>
<div bgcolor="#ffffff">
<div><font size="2" face="Arial"></font> </div>
<div>
<div><span><font color="#000080"><font color="#000000" size="2" face="Arial">Eder</font></font></span></div>
<div><span><font color="#000080"><font color="#000000" size="2" face="Arial">Bom dia</font></font></span></div>
<div><span><font color="#000080"><font color="#000000" size="2" face="Arial">Fiz a mudança abaixo, minha linha da discagem ficou</font></font></span></div>
<div><span><font color="#000080"><font color="#000000" size="2" face="Arial"><span lang="PT-BR">
<p>$AGI-&gt;exec(&quot;Dial&quot;,&quot;DGV/g1|10?);</p></span></font></font></span></div>
<div><span><font color="#000080"><font color="#000000" size="2" face="Arial"> mas mesmo assim na cli aparece</font></font></span></div>
<div><span><font color="#000000" size="2" face="Arial"></font></span> </div><span><font color="#000080"><font color="#000000" size="2" face="Arial"></font></font></span></div>
<div><span><font color="#000080"><font color="#000000" size="2" face="Arial">    -- Executing [99988203000@agi:1] AGI(&quot;SIP/3900-b7c12060&quot;, &quot;<a href="http://pega.pl/" target="_blank">pega.pl</a>&quot;) in new stack 
<div><br>    -- Launched AGI Script /var/lib/asterisk/agi-bin/<a href="http://pega.pl/" target="_blank">pega.pl</a><br>    -- AGI Script <a href="http://pega.pl/" target="_blank">pega.pl</a> completed, returning 0<br></div>
  == Auto fallthrough, channel &#39;SIP/3900-b7c12060&#39; status is &#39;UNKNOWN&#39;</font> 
<div><br></div></font></span></div>
<blockquote>
<div>
<div>----- Original Message ----- </div>
<div><b>From:</b> <a title="eder.souza@bsd.com.br" href="mailto:eder.souza@bsd.com.br" target="_blank">Eder Souza</a> </div>
<div><b>To:</b> <a title="asteriskbrasil@listas.asteriskbrasil.org" href="mailto:asteriskbrasil@listas.asteriskbrasil.org" target="_blank">asteriskbrasil@listas.asteriskbrasil.org</a> </div></div>
<div>
<div><b>Sent:</b> Monday, May 24, 2010 8:21 PM</div>
<div><b>Subject:</b> Re: [AsteriskBrasil] RES: portabilidade</div>
<div><br></div></div>
<div>
<div></div>
<div>Outra coisa vc deixou a linha de discagem comentada 
<div><br></div>
<div><span>####$AGI-&gt;exec(“Dial”,”SIP/MUDE AQUI PARA SUA SAIDA SIP ou GSM ou ZAP ou DAHDI ou UNICALL ou DVG etc etc|10″);</span></div>
<div><font color="#000080" size="3" face="Verdana"><span><br></span></font></div>
<div><font color="#000080" size="3" face="Verdana"><span>Suas ligações saem para fora como ? SIP, ZAP ?</span></font></div>
<div><font color="#000080" size="3" face="Verdana"><span><br></span></font></div>
<div><font color="#000080" size="3" face="Verdana"><span>Eng Eder de Souza</span></font></div>
<div><font color="#000080" size="3" face="Verdana"><span><br></span></font><br>
<div>Em 24 de maio de 2010 20:12, Eder Souza <span dir="ltr">&lt;<a href="mailto:eder.souza@bsd.com.br" target="_blank">eder.souza@bsd.com.br</a>&gt;</span> escreveu:<br>
<blockquote>Oi pessoal to meio sumido da lista ando sem tempo, 
<div><br></div>
<div><br></div>
<div>mas testei o Script agora e para mim ta funcionando, eu fiquei de reescrever o codigo para o consulta numero da BRT mas eu ando sem tempo total..</div>
<div><br></div>
<div>Mas este erro é o seguinte esta vendo essa linha <span>$num_saida = substr($num_saida,3,10); mude para:</span></div>
<div><font color="#000080" size="3" face="Verdana"><span><br></span></font></div>
<div><font color="#000080" size="3" face="Verdana"><span>$num_saida = substr($num_saida,3,8);</span></font></div>
<div><font color="#000080" size="3" face="Verdana"><span><br></span></font></div>
<div><font color="#000080" size="3" face="Verdana"><span>testa e me fala</span></font></div>
<div><font color="#000080" size="3" face="Verdana"><span><br></span></font></div>
<div><font color="#000080" size="3" face="Verdana"><span><br></span></font></div>
<div><font color="#000080" size="3" face="Verdana"><span>[]&#39;s</span></font></div>
<div><font color="#000080" size="3" face="Verdana"><span><br></span></font></div>
<div><font color="#000080" size="3" face="Verdana"><span><br></span></font></div>
<div><font color="#000080" size="3" face="Verdana"><span>Eng Eder de Souza<br></span></font><br>
<div>Em 13 de maio de 2010 07:00, sergio <span dir="ltr">&lt;<a href="mailto:sergio@inbox.com" target="_blank">sergio@inbox.com</a>&gt;</span> escreveu:<br>
<blockquote>
<div>
<div></div>
<div>
<div>
<div> Eu também preciso colocar pra funcionar algo para portabilidade para fazer o controle de saída das chamadas GSM.<br></div><br><br>
<blockquote>
<div>
<div>-----Original Message-----<br><b>From:</b> <a href="mailto:luis@dinamicca.com.br" target="_blank">luis@dinamicca.com.br</a><br><b>Sent:</b> Wed, 12 May 2010 15:58:53 -0300<br><b>To:</b> <a href="mailto:asteriskbrasil@listas.asteriskbrasil.org" target="_blank">asteriskbrasil@listas.asteriskbrasil.org</a><br>
</div><b>Subject:</b> [AsteriskBrasil] RES: portabilidade<br><br></div>
<div>
<div></div>
<div>
<div>
<div>
<div>
<p><span>Estou com este mesmo resultado...</span></p>
<p><span></span> </p>
<p><span lang="EN-US">    -- Executing [66691824890@interno:1] AGI(&quot;SIP/25-087590f8&quot;, &quot;<a href="http://pega.pl/" target="_blank">pega.pl</a>&quot;) in new stack</span></p>
<p><span lang="EN-US">    -- Launched AGI Script /var/lib/asterisk/agi-bin/<a href="http://pega.pl/" target="_blank">pega.pl</a></span></p>
<p><span lang="EN-US">    -- AGI Script <a href="http://pega.pl/" target="_blank">pega.pl</a> completed, returning 0</span></p>
<p> </p>
<div>
<p> </p></div>
<div>
<div>
<p><span>Tentei usar o script em perl, mas nao faz a consulta o que será que estou fazendo de errado , no console aparece</span></p></div></div>
<div>
<p><span></span> </p></div>
<div>
<p><span>-- Executing [99991164742@agi:1] AGI(&quot;SIP/3974-08ccba38&quot;, &quot;<a href="http://pega.pl/" target="_blank">pega.pl</a>&quot;) in new stack<br>    -- Launched AGI Script /var/lib/asterisk/agi-bin/<a href="http://pega.pl/" target="_blank">pega.pl</a><br>
    -- AGI Script <a href="http://pega.pl/" target="_blank">pega.pl</a> completed, returning 0<br>  == Auto fallthrough, channel &#39;SIP/3974-08ccba38&#39; status is &#39;UNKNOWN&#39;</span></p></div>
<div>
<p><span></span> </p></div>
<blockquote>
<div>
<p><span>----- Original Message ----- </span></p></div>
<div>
<p><b><span>From:</span></b><span> <a title="sergio@inbox.com" href="mailto:sergio@inbox.com" target="_blank">sergio</a> </span></p></div>
<div>
<p><b><span>To:</span></b><span> <a title="asteriskbrasil@listas.asteriskbrasil.org" href="mailto:asteriskbrasil@listas.asteriskbrasil.org" target="_blank">asteriskbrasil@listas.asteriskbrasil.org</a> </span></p></div>
<div>
<p><b><span>Sent:</span></b><span> Monday, May 10, 2010 4:24 PM</span></p></div>
<div>
<p><b><span>Subject:</span></b><span> Re: [AsteriskBrasil] portabilidade</span></p></div>
<div>
<p> </p></div>
<div>
<p>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</p></div>
<p><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></p>
<div>
<p>-----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</p></div>
<div>
<div>
<p>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: </p>
<div>
<p><span>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?</span></p>
</div>
<div>
<p> </p></div>
<div>
<p><span>#!/usr/bin/perl -w</span></p>
<p><span>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]“);</span></p>

<p><span># 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″);</span></p>

<p><span># FIM</span></p>
<p><span>Extensions.conf</span></p>
<p><span>minha linha para a chamada do AGI de testes</span></p>
<p><span>exten =&gt; _999.,1,agi,<a href="http://pega.pl/" target="_blank">pega.pl</a></span></p></div>
<div>
<p> </p></div><pre><hr align="center" size="4" width="90%">

</pre><pre> </pre><pre>_______________________________________________</pre><pre>KHOMP: qualidade em placas de E1, GSM, FXS e FXO para Asterisk. </pre><pre>- Hardware com alta disponibilidade de recursos e qualidade KHOMP</pre>
<pre>- Suporte técnico local qualificado e gratuito </pre><pre>Conheça a linha completa de produtos KHOMP em <a href="http://www.khomp.com.br/" target="_blank">www.khomp.com.br</a></pre><pre>_______________________________________________</pre>
<pre>A Redfone é líder no fornecimento de bridges TDMoE -&gt; E1</pre><pre>- Valor similar ao de placas E1 PCI;</pre><pre>- Não há problemas de compatibilidade com barramento PCI;</pre><pre>- Possibilitam a construção de soluções de alta disponibilidade(dois servidores compartilham o mesmo E1)</pre>
<pre>Conheça mais sobre este produto em <a href="http://www.red-fone.com/" target="_blank">www.red-fone.com</a></pre><pre>_______________________________________________</pre><pre> </pre><pre> </pre><pre>Lista de discussões AsteriskBrasil.org</pre>
<pre><a href="mailto:AsteriskBrasil@listas.asteriskbrasil.org" target="_blank">AsteriskBrasil@listas.asteriskbrasil.org</a></pre><pre><a href="http://listas.asteriskbrasil.org/mailman/listinfo/asteriskbrasil" target="_blank">http://listas.asteriskbrasil.org/mailman/listinfo/asteriskbrasil</a></pre>
</div></div>
<div align="center">
<hr align="center" size="2" width="100%">
</div>
<p>_______________________________________________<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" target="_blank">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></p></blockquote>
<p><span>No virus found in this incoming message.<br>Checked by AVG - <a href="http://www.avg.com/" target="_blank">www.avg.com</a><br>Version: 9.0.819 / Virus Database: 271.1.1/2867 - Release Date: 05/11/10 03:26:00</span></p>
</div></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>
</div></div>
<div>Participe do I Encontro VoIPCenter, 08 a 10 de junho – Rio de Janeiro.<br>Área de exposição, palestras e cursos de VoIP, Asterisk e Convergência de Redes.<br><a href="http://www.encontrovoipcenter.com.br/" target="_blank">http://www.encontrovoipcenter.com.br</a><br>
______________________________________________<br></div>
<div>Lista de discussões AsteriskBrasil.org<br><a href="mailto:AsteriskBrasil@listas.asteriskbrasil.org" target="_blank">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>
</div></blockquote></div><br></div></blockquote></div><br></div></div></div>
<p></p>
<hr>

<div>
<p></p>_______________________________________________<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>Participe do I Encontro VoIPCenter, 08 a 10 de junho – Rio de Janeiro.<br>
Área de exposição, palestras e cursos de VoIP, Asterisk e Convergência de Redes.<br><a href="http://www.encontrovoipcenter.com.br/" target="_blank">http://www.encontrovoipcenter.com.br</a><br>______________________________________________<br>
Lista de discussões AsteriskBrasil.org<br><a href="mailto:AsteriskBrasil@listas.asteriskbrasil.org" target="_blank">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></div>

<p></p></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>Participe do I Encontro VoIPCenter, 08 a 10 de junho – Rio de Janeiro.<br>
Área de exposição, palestras e cursos de VoIP, Asterisk e Convergência de Redes.<br><a href="http://www.encontrovoipcenter.com.br/" target="_blank">http://www.encontrovoipcenter.com.br</a><br>______________________________________________<br>
Lista de discussões AsteriskBrasil.org<br><a href="mailto:AsteriskBrasil@listas.asteriskbrasil.org" target="_blank">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></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>
Participe do I Encontro VoIPCenter, 08 a 10 de junho – Rio de Janeiro.<br>Área de exposição, palestras e cursos de VoIP, Asterisk e Convergência de Redes.<br><a href="http://www.encontrovoipcenter.com.br/" target="_blank">http://www.encontrovoipcenter.com.br</a><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>