<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
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">
<meta http-equiv="Content-Type" content="text/html; ">
<meta content="MSHTML 6.00.6000.16788" name="GENERATOR">
<style></style>
<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 color="#000000" face="Arial" 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 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 class="moz-txt-link-abbreviated" href="http://www.khomp.com.br">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 class="moz-txt-link-abbreviated" href="http://www.red-fone.com">www.red-fone.com</a>
_______________________________________________
Lista de discussões AsteriskBrasil.org
<a class="moz-txt-link-abbreviated" href="mailto:AsteriskBrasil@listas.asteriskbrasil.org">AsteriskBrasil@listas.asteriskbrasil.org</a>
<a class="moz-txt-link-freetext" href="http://listas.asteriskbrasil.org/mailman/listinfo/asteriskbrasil">http://listas.asteriskbrasil.org/mailman/listinfo/asteriskbrasil</a></pre>
</blockquote>
</body>
</html>