[AsteriskBrasil] RES: Script para verificar o IP do peer e informar

[Caio Pato]

2009/6/10 eder souza <ederwander em yahoo.com.br>:
> Terminei o AGI segue ae fiz em 10 minutos nos testes aqui esta 100%
> Testa e me da um retorno !!!

Funcionou! Obrigado! Fiz algumas pequenas alterações:

#!/usr/bin/perl -w
# Eng Eder de Souza
# AGI para entrar com um peer SIP apos o Som de Beeb digitar via
teclado o ramal SIP seguida da tecla "#" ( quadrado)
# Apos a entrada o AGI vai falar o IP referente ao peer
# Eng Eder de Souza 10/06/2009 12:30 ederwander em yahoo.com.br #

use Asterisk::AGI;
use strict;

my $AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();

$AGI->exec('Playback','after-the-tone');
$AGI->exec('Playback','custom/pls-enter-exten-followed-pound');
$AGI->exec('Wait','.5');
my $Digito = $AGI->get_data ('beep', -1, 10);

$AGI->exec('Playback','extension');
$AGI->exec('Wait','.3');
$AGI->say_digits ($Digito);

my @comando=`asterisk -rx "sip show peers"`;
my @resultado=grep /$Digito/, em comando;
my $eder;
$eder=$resultado[0];
my $ramal;
my $ip;

$AGI->exec('Playback','custom/ip');
$AGI->exec('Wait','.3');

($ramal,$ip)=split(/\s+/,$eder);
my @fala = split (/\./,$ip);
$AGI->exec('SayDigits',$fala[0]);
$AGI->exec('Playback','dot');
$AGI->exec('SayDigits',$fala[1]);
$AGI->exec('Playback','dot');
$AGI->exec('SayDigits',$fala[2]);
$AGI->exec('Playback','dot');
$AGI->exec('SayDigits',$fala[3]);
exit(0);