<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=utf-8">
<meta name=Generator content="Microsoft Word 12 (filtered medium)">
<!--[if !mso]>
<style>
v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style>
<![endif]-->
<style>
<!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Consolas;
panose-1:2 11 6 9 2 2 4 3 2 4;}
@font-face
{font-family:Verdana;
panose-1:2 11 6 4 3 5 4 4 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
p
{mso-style-priority:99;
mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
pre
{mso-style-priority:99;
mso-style-link:"Pré-formatação HTML Char";
margin:0cm;
margin-bottom:.0001pt;
font-size:10.0pt;
font-family:"Courier New";}
span.Pr-formataoHTMLChar
{mso-style-name:"Pré-formatação HTML Char";
mso-style-priority:99;
mso-style-link:"Pré-formatação HTML";
font-family:"Consolas","serif";}
span.EstiloDeEmail20
{mso-style-type:personal-reply;
font-family:"Calibri","sans-serif";
color:#1F497D;}
.MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;}
@page Section1
{size:612.0pt 792.0pt;
margin:72.0pt 72.0pt 72.0pt 72.0pt;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body bgcolor=white lang=PT-BR link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Estou com este mesmo resultado...<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> -- Executing [66691824890@interno:1]
AGI("SIP/25-087590f8", "pega.pl") in new stack<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> -- Launched AGI Script /var/lib/asterisk/agi-bin/pega.pl<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> -- AGI Script pega.pl completed, returning 0<o:p></o:p></span></p>
<p class=MsoNormal><o:p> </o:p></p>
<div>
<p class=MsoNormal> <o:p></o:p></p>
</div>
<div>
<div>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif";
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:"Arial","sans-serif";
color:black'> </span><o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif";
color:black'>-- Executing [99991164742@agi:1]
AGI("SIP/3974-08ccba38", "pega.pl") in new stack<br>
-- Launched AGI Script /var/lib/asterisk/agi-bin/pega.pl<br>
-- AGI Script pega.pl completed, returning 0<br>
== 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:"Verdana","sans-serif";
color:navy'><o:p> </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:"Arial","sans-serif"'>-----
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:"Arial","sans-serif"'>From:</span></b><span style='font-size:10.0pt;
font-family:"Arial","sans-serif"'> <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:"Arial","sans-serif"'>To:</span></b><span
style='font-size:10.0pt;font-family:"Arial","sans-serif"'> <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:"Arial","sans-serif"'>Sent:</span></b><span
style='font-size:10.0pt;font-family:"Arial","sans-serif"'> 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:"Arial","sans-serif"'>Subject:</span></b><span
style='font-size:10.0pt;font-family:"Arial","sans-serif"'> Re: [AsteriskBrasil]
portabilidade<o:p></o:p></span></p>
</div>
<div>
<p class=MsoNormal><o:p> </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:"Arial","sans-serif";
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> <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->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]“);</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->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 => _999.,1,agi,pega.pl</span><o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<pre style='text-align:center'>
<hr size=4 width="90%" align=center>
</pre><pre><o:p> </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 -> 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> </o:p></pre><pre><o:p> </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 align=center style='text-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 -> 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:"Arial","sans-serif"'>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>
</body>
</html>