[SP-pm] Validar session no Catalyst

Renato Santos renato.cron at gmail.com
Mon Jul 11 04:49:27 PDT 2011


Kkkkkk
K
De kaiser
Em 11/07/2011 08:47, "Lucas Moraes" <mineiro at live.be> escreveu:
>
> Valeu Eden, Renato foi isso mesmo, eu estava tentando usar capturas, mas
sem parenteses só me retornava o numero 1.Eden quando eu for para são paulo
eu te pago um kaiser :)Falou.
>
> From: renato.cron at gmail.com
> Date: Mon, 11 Jul 2011 00:21:42 -0300
> To: saopaulo-pm at mail.pm.org
> Subject: Re: [SP-pm] Validar session no Catalyst
>
> Lembrando Lucas, que foi adiciona as capturas usando parenteses.
> [e que acabou ficando da mesma cor como se não fosse alterado]
>
>
> 2011/7/11 Eden Cardim <edencardim at gmail.com>
>
>
>
>>>>>> "Lucas" == Lucas Moraes <mineiro at live.be> writes:
>
>
>
> Lucas> para validar:
>
> Lucas> sub end :Private {
>
> Lucas> my ( $self, $c ) = @_;
>
> Lucas> if(!$c->user_exists){
>
> Lucas> $c->res->redirect('/login');
>
> Lucas> }
>
> Lucas> }
>
>
>
> Depende do que você quer fazer. Geralmente você quer verificar se o
>
> usuários está logado *antes* de rodar o código pra poder barrar. Vale
>
> lembrar também, que o redirect só seta os cabeçalhos adequados sem mudar
>
> o fluxo de execução do código. Se você quer impedir a execução de
>
> qualquer código sem que o usuário esteja autenticado, faça assim:
>
>
>
> --8<---------------cut here---------------start------------->8---
>
> sub begin :Private {
>
> my ( $self, $c ) = @_;
>
> if(!$c->user_exists){
>
> $c->res->redirect('/login');
>
> $c->detach;
>
> }
>
> }
>
> --8<---------------cut here---------------end--------------->8---
>
>
>
> Lucas> para pegar valores do Args:
>
> Lucas> sub alterar :LocalRegex('[0-9]') {
>
> Lucas> my ( $self, $c, @get) = @_;
>
>
>
> Lucas> $c->stash->{valor} = $get[0];
>
> Lucas> $c->forward('View::TT');
>
> Lucas> }
>
>
>
> Primeiro, você precisa de capturas na regex, segundo, capturas não vem
>
> como argumentos, você precisa acessar através do método
>
> $c->req->captures, fica mais ou menos assim:
>
>
>
> --8<---------------cut here---------------start------------->8---
>
> sub alterar :LocalRegex('([0-9])') {
>
> my($self, $c) = @_;
>
> $c->stash->{valor} = $c->req->captures->[0];
>
> $c->forward('View::TT');
>
> }
>
> --8<---------------cut here---------------end--------------->8---
>
>
>
> --
>
> Eden Cardim Need help with your Catalyst or DBIx::Class project?
>
> Code Monkey http://www.shadowcat.co.uk/catalyst/
>
> Shadowcat Systems Ltd. Want a managed development or deployment platform?
>
> http://blog.edencardim.com/ http://www.shadowcat.co.uk/servers/
>
> http://twitter.com/#!/edenc
>
> =begin disclaimer
>
> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>
> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>
> =end disclaimer
>
>
>
> --
> Renato Santos
> http://www.renatocron.com/blog/
>
>
>
> =begin disclaimer
> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
> L
> =end disclaimer
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20110711/e81c720e/attachment.html>


More information about the SaoPaulo-pm mailing list