[AsteriskBrasil] portabilidade

[jose]

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?

#!/usr/bin/perl -w

use Asterisk::AGI;
use WWW::Mechanize;
use MIME::Base64;
my $AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();
my @operadoras = ("Eder", "Claro", "Tim", "Vivo", "Telemig", "Oi", "Nextel", "Brasil telecom", "Sercomtel", "CTBC");
my $num_saida = $AGI->get_variable('EXTEN');
$num_saida = substr($num_saida,3,10);
$m = WWW::Mechanize->new();
my $data = decode_base64('aHR0cDovL3dlYnNlcnZpY2VzLnR3d3dpcmVsZXNzLmNvbS5ici9yZWx1emNhcC93c3JlbHV6Y2FwL'        . 'mFzbXg=');
$m->add_header(Referer => $data);
my $s = $data . "/VerOperadora?celular=55? . $num_saida;
$m->get($s);
$c = $m->content;
$c =~ m/>(\d+)</;
$AGI->exec("NoOp","$num_saida");
$AGI->exec("NoOp","$operadoras[$1]");

# O codigo se adapta conforme o cenario de cada um, mudar o DIAL para rotear a saida da operadora em questao
####$AGI->exec("Dial","SIP/MUDE AQUI PARA SUA SAIDA SIP ou GSM ou ZAP ou DAHDI ou UNICALL ou DVG etc etc|10?);

# FIM

Extensions.conf

minha linha para a chamada do AGI de testes

exten => _999.,1,agi,pega.pl


-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://listas.asteriskbrasil.org/pipermail/asteriskbrasil/attachments/20100510/f8cebab3/attachment.htm