Não é mais fácil barrar isso no firewall?
2012/9/8 Jose Nilton <jnilti...@gmail.com>: > > Boa tarde Srs, > > Estava olhando a documentação do Mojo, verifiquei que é possível criar um > simples Daemon para responder em um porta http e retorno um JSON. > > Gostaria de saber se tem um forma de proteger essa aplicação para > determinados IPs, exemplo os ips que podem acessar essa aplicação > qw(192.168.0.150 10.0.0.1 200.175.200.1) > > Acho que é mais ou menos isso, mas tem executar um deny: > > 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 %>. > > > > Tenho que criar um Server que responde em JSON e um client, ou qualquer API > que consuma objeto em JSON, mas com segurança. > > > ## Alguns links que eu achei > http://mojolicio.us/perldoc/Mojolicious/Guides/Cookbook > http://search.cpan.org/~sri/Mojolicious-3.38/lib/Mojolicious/Lite.pm > https://metacpan.org/module/Mojolicious::Controller#METHODS > > > -- > .............................................................................. > Com Deus todas as coisas são possíveis ::: LinuxPro > > "A qualidade nunca se obtém por acaso; ela é sempre o resultado do esforço > inteligente." (John Ruskin) > "A mente que se abre a uma nova ideia jamais volta ao seu tamanho original" > (Albert Einstein) > > > =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 > =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