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