<!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="MSHTML 6.00.6000.16788" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV>
<DIV><SPAN style="FONT-SIZE: 9pt; COLOR: #355e00; FONT-FAMILY: Verdana"><FONT
color=#000080><FONT face=Arial color=#000000 size=2>Tentei usar o script em
perl, mas nao faz a consulta o que será que estou fazendo de errado , no console
aparece</FONT></FONT></SPAN></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> </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>-- 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'<BR></DIV></FONT>
<DIV><FONT face=Arial color=#000000 size=2></FONT><BR></DIV></FONT></SPAN>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=sergio@inbox.com href="mailto:sergio@inbox.com">sergio</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A
title=asteriskbrasil@listas.asteriskbrasil.org
href="mailto:asteriskbrasil@listas.asteriskbrasil.org">asteriskbrasil@listas.asteriskbrasil.org</A>
</DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Monday, May 10, 2010 4:24 PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [AsteriskBrasil]
portabilidade</DIV>
<DIV><BR></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/">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/">http://ederwander.wordpress.com/2009/11/26/portabilidade-dbo-descobrir-operadoras/</A><BR><BR>
<BLOCKQUOTE
style="PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: rgb(0,0,255) 2px solid; MARGIN-RIGHT: 0px">
<DIV class=msgHeaders>-----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<BR><BR></DIV>
<DIV class=oldBody>
<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 cite=mid:2CC49B71154E41D99EDFE72B58F5E2E7@pcvista type="cite">
<DIV><SPAN
_style="font-size: 9pt; color: rgb(53, 94, 0); font-family: Verdana;"></SPAN></DIV>
<DIV><SPAN
_style="font-size: 9pt; color: rgb(53, 94, 0); 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: rgb(53, 94, 0); font-family: Verdana;"></SPAN> </DIV>
<DIV><SPAN
_style="font-size: 9pt; color: rgb(53, 94, 0); font-family: Verdana;"><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->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]“);</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->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 =>
_999.,1,agi,pega.pl</FONT></P></SPAN></DIV>
<DIV><FONT color=#000080><BR></FONT></DIV><PRE wrap=""><HR width="90%" SIZE=4>
_______________________________________________
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" _class="moz-txt-link-abbreviated">www.khomp.com.br</A>
_______________________________________________
A Redfone é líder no fornecimento de bridges TDMoE -> 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" _class="moz-txt-link-abbreviated">www.red-fone.com</A>
_______________________________________________
Lista de discussões AsteriskBrasil.org
<A href="mailto:AsteriskBrasil@listas.asteriskbrasil.org" _class="moz-txt-link-abbreviated">AsteriskBrasil@listas.asteriskbrasil.org</A>
<A href="http://listas.asteriskbrasil.org/mailman/listinfo/asteriskbrasil" _class="moz-txt-link-freetext">http://listas.asteriskbrasil.org/mailman/listinfo/asteriskbrasil</A></PRE></BLOCKQUOTE></DIV></DIV></BLOCKQUOTE>
<P>
<HR>
<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
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</BLOCKQUOTE></BODY></HTML>