<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">

<head>

<meta name=Generator content="Microsoft Word 12 (filtered medium)">
<!--[if !mso]>
<style>
v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style>
<![endif]-->
<style>
<!--
 /* Font Definitions */
 @font-face
        {font-family:Calibri;
        panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
        {font-family:Tahoma;
        panose-1:2 11 6 4 3 5 4 4 2 4;}
@font-face
        {font-family:inherit;
        panose-1:0 0 0 0 0 0 0 0 0 0;}
 /* Style Definitions */
 p.MsoNormal, li.MsoNormal, div.MsoNormal
        {margin:0cm;
        margin-bottom:.0001pt;
        font-size:12.0pt;
        font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
        {mso-style-priority:99;
        color:blue;
        text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
        {mso-style-priority:99;
        color:purple;
        text-decoration:underline;}
span.EstiloDeEmail17
        {mso-style-type:personal-reply;
        font-family:"Calibri","sans-serif";
        color:#1F497D;}
.MsoChpDefault
        {mso-style-type:export-only;}
@page Section1
        {size:612.0pt 792.0pt;
        margin:72.0pt 72.0pt 72.0pt 72.0pt;}
div.Section1
        {page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
 <o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
 <o:shapelayout v:ext="edit">
  <o:idmap v:ext="edit" data="1" />
 </o:shapelayout></xml><![endif]-->
</head>

<body lang=EN-US link=blue vlink=purple>

<div class=Section1>

<p class=MsoNormal style='text-autospace:none'><span lang=PT-BR
style='font-size:9.0pt;font-family:"Courier New"'>Ola pessoal, vai ai alguma coisa
um pouquinho melhorada..<o:p></o:p></span></p>

<p class=MsoNormal style='text-autospace:none'><span lang=PT-BR
style='font-size:9.0pt;font-family:"Courier New"'><o:p>&nbsp;</o:p></span></p>

<p class=MsoNormal style='text-autospace:none'><span lang=PT-BR
style='font-size:9.0pt;font-family:"Courier New"'>Abraços a todos<o:p></o:p></span></p>

<p class=MsoNormal style='text-autospace:none'><span lang=PT-BR
style='font-size:9.0pt;font-family:"Courier New"'><o:p>&nbsp;</o:p></span></p>

<p class=MsoNormal style='text-autospace:none'><span style='font-size:9.0pt;
font-family:"Courier New"'>exten =&gt; _67XXX,1,Set(IP=${SIPPEER(${EXTEN:2}:ip)})<o:p></o:p></span></p>

<p class=MsoNormal style='text-autospace:none'><span style='font-size:9.0pt;
font-family:"Courier New"'>exten =&gt; _67XXX,2,Answer()<o:p></o:p></span></p>

<p class=MsoNormal style='text-autospace:none'><span style='font-size:9.0pt;
font-family:"Courier New"'>exten =&gt; _67XXX,3,Wait(2)<o:p></o:p></span></p>

<p class=MsoNormal style='text-autospace:none'><span style='font-size:9.0pt;
font-family:"Courier New"'>exten =&gt; _67XXX,4,SayDigits(${IP})<o:p></o:p></span></p>

<p class=MsoNormal style='text-autospace:none'><span style='font-size:9.0pt;
font-family:"Courier New"'>exten =&gt; _67XXX,5,Hangup()<o:p></o:p></span></p>

<p class=MsoNormal style='text-autospace:none'><span style='font-size:9.0pt;
font-family:"Courier New"'>exten =&gt; t,2,Hangup()<o:p></o:p></span></p>

<p class=MsoNormal style='text-autospace:none'><span style='font-size:9.0pt;
font-family:"Courier New"'>exten =&gt; h,2,Hangup()<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p>&nbsp;</o:p></span></p>

<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p>&nbsp;</o:p></span></p>

<p class=MsoNormal><span lang=PT-BR style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Obs: XXX é o ramal a ser consultado..<o:p></o:p></span></p>

<p class=MsoNormal><span lang=PT-BR style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p>&nbsp;</o:p></span></p>

<p class=MsoNormal><span lang=PT-BR style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p>&nbsp;</o:p></span></p>

<p class=MsoNormal><span lang=PT-BR style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p>&nbsp;</o:p></span></p>

<div style='border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm'>

<p class=MsoNormal><b><span lang=PT-BR style='font-size:10.0pt;font-family:
"Tahoma","sans-serif"'>De:</span></b><span lang=PT-BR style='font-size:10.0pt;
font-family:"Tahoma","sans-serif"'> asteriskbrasil-bounces@listas.asteriskbrasil.org
[mailto:asteriskbrasil-bounces@listas.asteriskbrasil.org] <b>Em nome de </b>eder
souza<br>
<b>Enviada em:</b> quarta-feira, 10 de junho de 2009 13:17<br>
<b>Para:</b> asteriskbrasil@listas.asteriskbrasil.org<br>
<b>Assunto:</b> Re: [AsteriskBrasil] RES: Script para verificar o IP do peer e
informar<o:p></o:p></span></p>

</div>

<p class=MsoNormal><o:p>&nbsp;</o:p></p>

<table class=MsoNormalTable border=0 cellspacing=0 cellpadding=0>
 <tr>
  <td valign=top style='padding:0cm 0cm 0cm 0cm'>
  <p class=MsoNormal>Terminei o AGI segue ae fiz em 10 minutos nos testes aqui
  esta 100% <br>
  <br>
  <br>
  #!/usr/bin/perl -w<br>
  # Eng Eder de Souza<br>
  # AGI para entrar com um peer SIP apos o Som de Beeb digitar via teclado o
  ramal SIP seguida da tecla &quot;#&quot; ( quadrado)<br>
  # Apos a entrada o AGI vai falar o IP referente ao peer<br>
  # Eng Eder de Souza 10/06/2009 12:30 ederwander@yahoo.com.br #<br>
  <br>
  use Asterisk::AGI;<br>
  use strict;<br>
  <br>
  my $AGI = new Asterisk::AGI;<br>
  my %input = $AGI-&gt;ReadParse();<br>
  <br>
  <br>
  my $Digito = $AGI-&gt;get_data ('beep', -1, 10);<br>
  <br>
  $AGI-&gt;say_digits ($Digito);<br>
  <br>
  <br>
  my @comando=`asterisk -rx &quot;sip show peers&quot;`;<br>
  <br>
  <br>
  my @resultado=grep /$Digito/,@comando;<br>
  <br>
  my $eder;<br>
  <br>
  $eder=$resultado[0];<br>
  <br>
  <br>
  my $ramal;<br>
  my $ip;<br>
  <br>
  ($ramal,$ip)=split(/\s+/,$eder);<br>
  <br>
  my @fala = split (/\./,$ip);<br>
  <br>
  <br>
  $AGI-&gt;exec('SayNumber',$fala[0]);<br>
  $AGI-&gt;exec('SayNumber',$fala[1]);<br>
  $AGI-&gt;exec('SayNumber',$fala[2]);<br>
  $AGI-&gt;exec('SayNumber',$fala[3]);<br>
  sleep 2;<br>
  exit(0);<br>
  <br>
  <br>
  Testa e me da um retorno !!!<br>
  <br>
  <br>
  Att,<br>
  <br>
  <br>
  Eng Eder de Souza<br>
  <br>
  --- Em <b>qua, 10/6/09, eder souza <i>&lt;ederwander@yahoo.com.br&gt;</i></b>
  escreveu:<o:p></o:p></p>
  <p class=MsoNormal style='margin-bottom:12.0pt'><br>
  De: eder souza &lt;ederwander@yahoo.com.br&gt;<br>
  Assunto: Re: [AsteriskBrasil] RES: Script para verificar o IP do peer e
  informar<br>
  Para: asteriskbrasil@listas.asteriskbrasil.org<br>
  Data: Quarta-feira, 10 de Junho de 2009, 11:56<o:p></o:p></p>
  <div id=yiv629813175>
  <table class=MsoNormalTable border=0 cellspacing=0 cellpadding=0>
   <tr>
    <td valign=top style='padding:0cm 0cm 0cm 0cm'>
    <p class=MsoNormal><span style='font-family:"inherit","serif"'><br>
    Ou um AGI tbm funfa na hora do meu almoço eu vejo se faço aqui é simples!!<br>
    <br>
    <br>
    Eng Eder de Souza<br>
    --- Em <b>qua, 10/6/09, Alexandre Abreu <i>&lt;alexandre.abreu@redt.com.br&gt;</i></b>
    escreveu:<o:p></o:p></span></p>
    <p class=MsoNormal style='margin-bottom:12.0pt'><span style='font-family:
    "inherit","serif"'><br>
    De: Alexandre Abreu &lt;alexandre.abreu@redt.com.br&gt;<br>
    Assunto: [AsteriskBrasil] RES: Script para verificar o IP do peer e
    informar<br>
    Para: asteriskbrasil@listas.asteriskbrasil.org<br>
    Data: Quarta-feira, 10 de Junho de 2009, 11:10<o:p></o:p></span></p>
    <div>
    <p class=MsoNormal><span style='font-family:"inherit","serif"'>Não consigo
    pensar em nada mais fácil do que: <br>
    <br>
    exten =&gt; myipaddress,1,Set(IP=${SIPPEER(mypeer,ip)})<br>
    <br>
    --<br>
    Alexandre Abreu<br>
    RedT Telecom<br>
    <a href="http://www.redt.com.br" target="_blank">http://www.redt.com.br</a><br>
    <br>
    -----Mensagem original-----<br>
    De: asteriskbrasil-bounces@listas.asteriskbrasil.org<br>
    [mailto:asteriskbrasil-bounces@listas.asteriskbrasil.org] Em nome de Caio<br>
    Pato<br>
    Enviada em: terça-feira, 9 de junho de 2009 23:49<br>
    Para: asteriskbrasil@listas.asteriskbrasil.org<br>
    Assunto: [AsteriskBrasil] Script para verificar o IP do peer e informar<br>
    <br>
    Alguém conhece algum script (AGI?) que retorne o IP de um determinado
    ramal?<br>
    <br>
    A questão é não reinventar a roda, é aproveitar alguém que já tenha<br>
    feito isso... a idéia é o usuário ligar para um ramal e a &quot;URA&quot;<br>
    pergunta qual o ramal e retorna o IP.<br>
    <br>
    É o sip show peer XYZ com resposta audível...<br>
    _______________________________________________<br>
    Openmoko Freerunner, primeiro telefone open source, disponível no Brasil<br>
    rodando o Android da Google.<br>
    <a href="http://www.neodroid.com" target="_blank">http://www.neodroid.com</a><br>
    <br>
    Compre uma camiseta da AsteriskBrasil.org!<br>
    <a href="http://www.voipmania.com.br" target="_blank">http://www.voipmania.com.br</a><br>
    <br>
    Acesse o canal IRC de discussão sobre Asterisk em Português Brasileiro na<br>
    rede Freenode.net: #asterisk-br<br>
    _______________________________________________<br>
    Lista de discussões AsteriskBrasil.org<br>
    AsteriskBrasil@listas.asteriskbrasil.org<br>
    <a href="http://listas.asteriskbrasil.org/mailman/listinfo/asteriskbrasil"
    target="_blank">http://listas.asteriskbrasil.org/mailman/listinfo/asteriskbrasil</a><br>
    <br>
    _______________________________________________<br>
    Openmoko Freerunner, primeiro telefone open source, disponível no Brasil
    rodando o Android da Google.<br>
    <a href="http://www.neodroid.com" target="_blank">http://www.neodroid.com</a><br>
    <br>
    Compre uma camiseta da AsteriskBrasil.org!<br>
    <a href="http://www.voipmania.com.br" target="_blank">http://www.voipmania.com.br</a><br>
    <br>
    Acesse o canal IRC de discussão sobre Asterisk em Português Brasileiro na
    rede Freenode.net: #asterisk-br<br>
    _______________________________________________<br>
    Lista de discussões AsteriskBrasil.org<br>
    AsteriskBrasil@listas.asteriskbrasil.org<br>
    <a href="http://listas.asteriskbrasil.org/mailman/listinfo/asteriskbrasil"
    target="_blank">http://listas.asteriskbrasil.org/mailman/listinfo/asteriskbrasil</a><o:p></o:p></span></p>
    </div>
    </td>
   </tr>
  </table>
  <p class=MsoNormal><o:p>&nbsp;</o:p></p>
  <div class=MsoNormal align=center style='text-align:center'>
  <hr size=1 width="100%" align=center>
  </div>
  <p class=MsoNormal>Veja quais são os assuntos do momento no Yahoo! +
  Buscados: <a
  href="http://br.rd.yahoo.com/mail/taglines/mail/*http:/br.maisbuscados.yahoo.com/"
  target="_blank">Top 10</a> - <a
  href="http://br.rd.yahoo.com/mail/taglines/mail/*http:/br.maisbuscados.yahoo.com/celebridades/"
  target="_blank">Celebridades</a> - <a
  href="http://br.rd.yahoo.com/mail/taglines/mail/*http:/br.maisbuscados.yahoo.com/m%C3%BAsica/"
  target="_blank">Música</a> - <a
  href="http://br.rd.yahoo.com/mail/taglines/mail/*http:/br.maisbuscados.yahoo.com/esportes/"
  target="_blank">Esportes</a><o:p></o:p></p>
  </div>
  <p class=MsoNormal style='margin-bottom:12.0pt'><br>
  -----Anexo incorporado-----<o:p></o:p></p>
  <div>
  <p class=MsoNormal>_______________________________________________<br>
  Openmoko Freerunner, primeiro telefone open source, disponível no Brasil
  rodando o Android da Google.<br>
  <a href="http://www.neodroid.com" target="_blank">http://www.neodroid.com</a><br>
  <br>
  Compre uma camiseta da AsteriskBrasil.org!<br>
  <a href="http://www.voipmania.com.br" target="_blank">http://www.voipmania.com.br</a><br>
  <br>
  Acesse o canal IRC de discussão sobre Asterisk em Português Brasileiro na
  rede Freenode.net: #asterisk-br<br>
  _______________________________________________<br>
  Lista de discussões AsteriskBrasil.org<br>
  <a href="/mc/compose?to=AsteriskBrasil@listas.asteriskbrasil.org">AsteriskBrasil@listas.asteriskbrasil.org</a><br>
  <a href="http://listas.asteriskbrasil.org/mailman/listinfo/asteriskbrasil"
  target="_blank">http://listas.asteriskbrasil.org/mailman/listinfo/asteriskbrasil</a><o:p></o:p></p>
  </div>
  </td>
 </tr>
</table>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Calibri","sans-serif"'><o:p>&nbsp;</o:p></span></p>

<div class=MsoNormal align=center style='text-align:center'><span
style='font-size:10.0pt;font-family:"Calibri","sans-serif"'>

<hr size=1 width="100%" align=center>

</span></div>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Calibri","sans-serif"'>Veja
quais são os assuntos do momento no Yahoo! + Buscados: <a
href="http://br.rd.yahoo.com/mail/taglines/mail/*http:/br.maisbuscados.yahoo.com/">Top
10</a> - <a
href="http://br.rd.yahoo.com/mail/taglines/mail/*http:/br.maisbuscados.yahoo.com/celebridades/">Celebridades</a>
- <a
href="http://br.rd.yahoo.com/mail/taglines/mail/*http:/br.maisbuscados.yahoo.com/m%C3%BAsica/">Música</a>
- <a
href="http://br.rd.yahoo.com/mail/taglines/mail/*http:/br.maisbuscados.yahoo.com/esportes/">Esportes</a><o:p></o:p></span></p>

</div>

</body>

</html>