[AsteriskBrasil] portabilidade

[jose]

Tentei usar o script em perl, mas nao faz a consulta o que será que estou fazendo de errado , no console aparece
 
-- Executing [99991164742 em agi:1] AGI("SIP/3974-08ccba38", "pega.pl") in new stack
    -- Launched AGI Script /var/lib/asterisk/agi-bin/pega.pl
    -- AGI Script pega.pl completed, returning 0
  == Auto fallthrough, channel 'SIP/3974-08ccba38' status is 'UNKNOWN'



  ----- Original Message ----- 
  From: sergio 
  To: asteriskbrasil em listas.asteriskbrasil.org 
  Sent: Monday, May 10, 2010 4:24 PM
  Subject: Re: [AsteriskBrasil] portabilidade


  AGI em Perl que executa o Script em Python
  http://ederwander.wordpress.com/2010/01/15/agi-portabilidade-para-numeros-moveis-em-asterisk/

  Script Python que Faz a Consulta

  http://ederwander.wordpress.com/2009/11/26/portabilidade-dbo-descobrir-operadoras/


    -----Original Message-----
    From: engricardofranco em gmail.com
    Sent: Mon, 10 May 2010 15:14:53 -0300
    To: asteriskbrasil em listas.asteriskbrasil.org
    Subject: Re: [AsteriskBrasil] portabilidade


    Ola Senhores.
    Que site é este? Como é feita a consulta? Alguém tem mais explicações sobre o assunto?

    Att.

    Ricardo Franco

    jose wrote: 
      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



--------------------------------------------------------------------------
_______________________________________________
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 www.khomp.com.br
_______________________________________________
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 www.red-fone.com
_______________________________________________


Lista de discussões AsteriskBrasil.org
AsteriskBrasil em listas.asteriskbrasil.org
http://listas.asteriskbrasil.org/mailman/listinfo/asteriskbrasil

------------------------------------------------------------------------------


  _______________________________________________
  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 www.khomp.com.br
  _______________________________________________
  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 www.red-fone.com
  _______________________________________________


  Lista de discussões AsteriskBrasil.org
  AsteriskBrasil em listas.asteriskbrasil.org
  http://listas.asteriskbrasil.org/mailman/listinfo/asteriskbrasil
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://listas.asteriskbrasil.org/pipermail/asteriskbrasil/attachments/20100511/ce31d8be/attachment.htm