Nilson,

Você pode pegar o ip do cliente através de $self->tx->remote_address, como
no exemplo abaixo :

use Mojolicious::Lite;

  # "whois" helper
  helper whois => sub {
    my $self  = shift;
    my $agent = $self->req->headers->user_agent || 'Anonymous';
    my $ip    = $self->tx->remote_address;
    return "$agent ($ip)";
  };

  # /secret
  get '/secret' => sub {
    my $self = shift;
    my $user = $self->whois;
    $self->app->log->debug("Request from $user.");
  };

  app->start;
  __DATA__

  @@ secret.html.ep
  We know who you are <%= whois %>.


Em 12 de setembro de 2012 22:23, Jose Nilton <jnilti...@gmail.com> escreveu:

> Nelson, obrigado
>
> Desculpe só responder o e-mail agora, tive uns contratempos de infra aqui
>



-- 
"o animal satisfeito dorme". - Guimarães Rosa
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer

Responder a