Nilson,<div><br></div><div>Você pode pegar o ip do cliente através de $self->tx->remote_address, como no exemplo abaixo :</div><div><br></div><div><pre class="sh_perl sh_sourceCode" style="background-color:rgb(238,238,238);border:1px solid rgb(136,136,136);padding:1em">

<span class="sh_keyword">use</span> Mojolicious<span class="sh_symbol">::</span>Lite<span class="sh_symbol">;</span>

  <span class="sh_comment"># "whois" helper</span>
  helper whois <span class="sh_symbol">=></span> <span class="sh_keyword">sub</span> <span class="sh_cbracket">{</span>
    <span class="sh_keyword">my</span> <span class="sh_variable">$self</span>  <span class="sh_symbol">=</span> <span class="sh_keyword">shift</span><span class="sh_symbol">;</span>
    <span class="sh_keyword">my</span> <span class="sh_variable">$agent</span> <span class="sh_symbol">=</span> <span class="sh_variable">$self</span><span class="sh_symbol">-></span>re<span class="sh_keyword">q</span><span class="sh_string">->headers-</span><span class="sh_symbol">></span>user_agent <span class="sh_symbol">||</span> <span class="sh_string">'Anonymous'</span><span class="sh_symbol">;</span>
    <span class="sh_keyword">my</span> <span class="sh_variable">$ip</span>    <span class="sh_symbol">=</span> <span class="sh_variable">$self</span><span class="sh_symbol">-></span>tx<span class="sh_symbol">-></span>remote_address<span class="sh_symbol">;</span>
    <span class="sh_keyword">return</span> <span class="sh_string">"$agent ($ip)"</span><span class="sh_symbol">;</span>
  <span class="sh_cbracket">}</span><span class="sh_symbol">;</span>

  <span class="sh_comment"># /secret</span>
  get <span class="sh_string">'/secret'</span> <span class="sh_symbol">=></span> <span class="sh_keyword">sub</span> <span class="sh_cbracket">{</span>
    <span class="sh_keyword">my</span> <span class="sh_variable">$self</span> <span class="sh_symbol">=</span> <span class="sh_keyword">shift</span><span class="sh_symbol">;</span>
    <span class="sh_keyword">my</span> <span class="sh_variable">$user</span> <span class="sh_symbol">=</span> <span class="sh_variable">$self</span><span class="sh_symbol">-></span>whois<span class="sh_symbol">;</span>
    <span class="sh_variable">$self</span><span class="sh_symbol">-></span>app<span class="sh_symbol">-></span><span class="sh_keyword">log</span><span class="sh_symbol">-></span><span class="sh_function">debug</span><span class="sh_symbol">(</span><span class="sh_string">"Request from $user."</span><span class="sh_symbol">);</span>
  <span class="sh_cbracket">}</span><span class="sh_symbol">;</span>

  app<span class="sh_symbol">-></span>start<span class="sh_symbol">;</span>
  __DATA__

  @@ secret<span class="sh_symbol">.</span>html<span class="sh_symbol">.</span>ep
  We know who you are <span class="sh_string"><%= whois %></span><span class="sh_symbol">.</span></pre><br><div class="gmail_quote">Em 12 de setembro de 2012 22:23, Jose Nilton <span dir="ltr"><<a href="mailto:jniltinho@gmail.com" target="_blank">jniltinho@gmail.com</a>></span> escreveu:<br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Nelson, obrigado<br>
<br>
Desculpe só responder o e-mail agora, tive uns contratempos de infra aqui<br>
</blockquote></div><br><br clear="all"><div><br></div>-- <br>"o animal satisfeito dorme". - Guimarães Rosa<br>
</div>