<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD><META http-equiv=Content-Type content="text/html; charset=utf-8"><META content="INBOX.COM" name=GENERATOR></HEAD>
<BODY>

<div>&nbsp;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 style="padding-left: 5px; margin-left: 5px; border-left: 2px solid rgb(0, 0, 255); margin-right: 0px;"><div class="msgHeaders">-----Original Message-----<br><b>From:</b> luis@dinamicca.com.br<br><b>Sent:</b> Wed, 12 May 2010 15:58:53 -0300<br><b>To:</b> asteriskbrasil@listas.asteriskbrasil.org<br><b>Subject:</b> [AsteriskBrasil] RES: portabilidade<br><br></div><div class="oldBody"><div>

<div _class="Section1">

<p _class="MsoNormal"><span _style="font-size:11.0pt;font-family:&quot;Calibri&quot;,&quot;sans-serif&quot;;
color:#1F497D">Estou com este mesmo resultado...<o:p></o:p></span></p>

<p _class="MsoNormal"><span _style="font-size:11.0pt;font-family:&quot;Calibri&quot;,&quot;sans-serif&quot;;
color:#1F497D"><o:p>&nbsp;</o:p></span></p>

<p _class="MsoNormal"><span _style="font-size:11.0pt;font-family:&quot;Calibri&quot;,&quot;sans-serif&quot;;
color:#1F497D" lang="EN-US">&nbsp;&nbsp;&nbsp; -- Executing [66691824890@interno:1]
AGI("SIP/25-087590f8", "pega.pl") in new stack<o:p></o:p></span></p>

<p _class="MsoNormal"><span _style="font-size:11.0pt;font-family:&quot;Calibri&quot;,&quot;sans-serif&quot;;
color:#1F497D" lang="EN-US">&nbsp;&nbsp;&nbsp; -- Launched AGI Script /var/lib/asterisk/agi-bin/pega.pl<o:p></o:p></span></p>

<p _class="MsoNormal"><span _style="font-size:11.0pt;font-family:&quot;Calibri&quot;,&quot;sans-serif&quot;;
color:#1F497D" lang="EN-US">&nbsp;&nbsp;&nbsp; -- AGI Script pega.pl completed, returning 0<o:p></o:p></span></p>

<p _class="MsoNormal"><o:p>&nbsp;</o:p></p>

<div>

<p _class="MsoNormal">&nbsp;<o:p></o:p></p>

</div>

<div>

<div>

<p _class="MsoNormal"><span _style="font-size:10.0pt;font-family:&quot;Arial&quot;,&quot;sans-serif&quot;;
color:black">Tentei usar o script em perl, mas nao faz a consulta o que será
que estou fazendo de errado , no console aparece</span><o:p></o:p></p>

</div>

</div>

<div>

<p _class="MsoNormal"><span _style="font-size:10.0pt;font-family:&quot;Arial&quot;,&quot;sans-serif&quot;;
color:black">&nbsp;</span><o:p></o:p></p>

</div>

<div>

<p _class="MsoNormal"><span _style="font-size:10.0pt;font-family:&quot;Arial&quot;,&quot;sans-serif&quot;;
color:black">-- Executing [99991164742@agi:1]
AGI("SIP/3974-08ccba38", "pega.pl") in new stack<br>
&nbsp;&nbsp;&nbsp; -- Launched AGI Script /var/lib/asterisk/agi-bin/pega.pl<br>
&nbsp;&nbsp;&nbsp; -- AGI Script pega.pl completed, returning 0<br>
&nbsp; == Auto fallthrough, channel 'SIP/3974-08ccba38' status is 'UNKNOWN'<o:p></o:p></span></p>

</div>

<div>

<p _class="MsoNormal"><span _style="font-size:9.0pt;font-family:&quot;Verdana&quot;,&quot;sans-serif&quot;;
color:navy"><o:p>&nbsp;</o:p></span></p>

</div>

<blockquote _style="border:none;border-left:solid black 1.5pt;padding:0cm 0cm 0cm 4.0pt;
margin-left:3.75pt;margin-top:5.0pt;margin-right:0cm;margin-bottom:5.0pt">

<div>

<p _class="MsoNormal"><span _style="font-size:10.0pt;font-family:&quot;Arial&quot;,&quot;sans-serif&quot;">-----
Original Message ----- <o:p></o:p></span></p>

</div>

<div>

<p _class="MsoNormal" _style="background:#E4E4E4"><b><span _style="font-size:10.0pt;
font-family:&quot;Arial&quot;,&quot;sans-serif&quot;">From:</span></b><span _style="font-size:10.0pt;
font-family:&quot;Arial&quot;,&quot;sans-serif&quot;"> <a href="mailto:sergio@inbox.com" title="sergio@inbox.com">sergio</a> <o:p></o:p></span></p>

</div>

<div>

<p _class="MsoNormal"><b><span _style="font-size:10.0pt;font-family:&quot;Arial&quot;,&quot;sans-serif&quot;">To:</span></b><span _style="font-size:10.0pt;font-family:&quot;Arial&quot;,&quot;sans-serif&quot;"> <a href="mailto:asteriskbrasil@listas.asteriskbrasil.org" title="asteriskbrasil@listas.asteriskbrasil.org">asteriskbrasil@listas.asteriskbrasil.org</a>
<o:p></o:p></span></p>

</div>

<div>

<p _class="MsoNormal"><b><span _style="font-size:10.0pt;font-family:&quot;Arial&quot;,&quot;sans-serif&quot;">Sent:</span></b><span _style="font-size:10.0pt;font-family:&quot;Arial&quot;,&quot;sans-serif&quot;"> Monday, May 10, 2010
4:24 PM<o:p></o:p></span></p>

</div>

<div>

<p _class="MsoNormal"><b><span _style="font-size:10.0pt;font-family:&quot;Arial&quot;,&quot;sans-serif&quot;">Subject:</span></b><span _style="font-size:10.0pt;font-family:&quot;Arial&quot;,&quot;sans-serif&quot;"> Re: [AsteriskBrasil]
portabilidade<o:p></o:p></span></p>

</div>

<div>

<p _class="MsoNormal"><o:p>&nbsp;</o:p></p>

</div>

<div>

<p _class="MsoNormal">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/">http://ederwander.wordpress.com/2010/01/15/agi-portabilidade-para-numeros-moveis-em-asterisk/</a><br>
<br>
Script Python que Faz a Consulta<o:p></o:p></p>

</div>

<p _class="MsoNormal" _style="margin-bottom:12.0pt"><a href="http://ederwander.wordpress.com/2009/11/26/portabilidade-dbo-descobrir-operadoras/">http://ederwander.wordpress.com/2009/11/26/portabilidade-dbo-descobrir-operadoras/</a><o:p></o:p></p>

<div>

<p _class="MsoNormal" _style="margin-bottom:12.0pt">-----Original Message-----<br>
<b>From:</b> <a href="mailto:engricardofranco@gmail.com">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">asteriskbrasil@listas.asteriskbrasil.org</a><br>
<b>Subject:</b> Re: [AsteriskBrasil] portabilidade<o:p></o:p></p>

</div>

<div>

<div>

<p _class="MsoNormal">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: <o:p></o:p></p>

<div>

<p _class="MsoNormal"><span _style="font-size:10.0pt;font-family:&quot;Arial&quot;,&quot;sans-serif&quot;;
color:black">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><o:p></o:p></p>

</div>

<div>

<p _class="MsoNormal">&nbsp;<o:p></o:p></p>

</div>

<div>

<p><span _style="color:navy">#!/usr/bin/perl -w</span><o:p></o:p></p>

<p><span _style="color:navy">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’&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;. ‘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><o:p></o:p></p>

<p><span _style="color:navy"># 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><o:p></o:p></p>

<p><span _style="color:navy"># FIM</span><o:p></o:p></p>

<p><span _style="color:navy">Extensions.conf</span><o:p></o:p></p>

<p><span _style="color:navy">minha linha para a chamada do AGI de testes</span><o:p></o:p></p>

<p><span _style="color:navy">exten =&gt; _999.,1,agi,pega.pl</span><o:p></o:p></p>

</div>

<div>

<p _class="MsoNormal"><o:p>&nbsp;</o:p></p>

</div>

<pre _style="text-align:center">
<hr size="4" width="90%" align="center">

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

</div>

<div _class="MsoNormal" _style="text-align:center" align="center">

<hr size="2" width="100%" align="center">

</div>

<p _class="MsoNormal">_______________________________________________<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 www.khomp.com.br<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 www.red-fone.com<br>
_______________________________________________<br>
<br>
<br>
Lista de discussões AsteriskBrasil.org<br>
AsteriskBrasil@listas.asteriskbrasil.org<br>
http://listas.asteriskbrasil.org/mailman/listinfo/asteriskbrasil<o:p></o:p></p>

</blockquote>

<p><span _style="font-size:10.0pt;font-family:&quot;Arial&quot;,&quot;sans-serif&quot;">No virus
found in this incoming message.<br>
Checked by AVG - www.avg.com<br>
Version: 9.0.819 / Virus Database: 271.1.1/2867 - Release Date: 05/11/10
03:26:00</span><o:p></o:p></p>

</div>

</div></div></blockquote>
</BODY>
</HTML>