<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style>
</head>
<body class='hmmessage'><div dir='ltr'>
Valeu Eden, Renato foi isso mesmo, eu estava tentando usar <meta http-equiv="content-type" content="text/html; charset=utf-8">capturas, mas sem parenteses só me retornava o numero 1.<div>Eden quando eu for para são paulo eu te pago um kaiser :)</div><div>Falou.<br><br><div><hr id="stopSpelling">From: renato.cron@gmail.com<br>Date: Mon, 11 Jul 2011 00:21:42 -0300<br>To: saopaulo-pm@mail.pm.org<br>Subject: Re: [SP-pm] Validar session no Catalyst<br><br>Lembrando Lucas, que foi adiciona as capturas usando parenteses.<div><br></div><div><font class="ecxApple-style-span" size="1">[e que acabou ficando da mesma cor como se não fosse alterado] </font><div><div><br><div class="ecxgmail_quote">
2011/7/11 Eden Cardim <span dir="ltr"><<a href="mailto:edencardim@gmail.com">edencardim@gmail.com</a>></span><br><blockquote class="ecxgmail_quote" style="border-left:1px #ccc solid;padding-left:1ex">
>>>>> "Lucas" == Lucas Moraes <<a href="mailto:mineiro@live.be">mineiro@live.be</a>> writes:<br>
<br>
Lucas> para validar:<br>
Lucas> sub end :Private {<br>
Lucas> my ( $self, $c ) = @_;<br>
Lucas> if(!$c->user_exists){<br>
Lucas> $c->res->redirect('/login');<br>
Lucas> }<br>
Lucas> }<br>
<br>
Depende do que você quer fazer. Geralmente você quer verificar se o<br>
usuários está logado *antes* de rodar o código pra poder barrar. Vale<br>
lembrar também, que o redirect só seta os cabeçalhos adequados sem mudar<br>
o fluxo de execução do código. Se você quer impedir a execução de<br>
qualquer código sem que o usuário esteja autenticado, faça assim:<br>
<br>
--8<---------------cut here---------------start------------->8---<br>
sub begin :Private {<br>
<div> my ( $self, $c ) = @_;<br>
if(!$c->user_exists){<br>
$c->res->redirect('/login');<br>
</div> $c->detach;<br>
}<br>
}<br>
--8<---------------cut here---------------end--------------->8---<br>
<br>
Lucas> para pegar valores do Args:<br>
Lucas> sub alterar :LocalRegex('[0-9]') {<br>
Lucas> my ( $self, $c, @get) = @_;<br>
<br>
Lucas> $c->stash->{valor} = $get[0];<br>
Lucas> $c->forward('View::TT');<br>
Lucas> }<br>
<br>
Primeiro, você precisa de capturas na regex, segundo, capturas não vem<br>
como argumentos, você precisa acessar através do método<br>
$c->req->captures, fica mais ou menos assim:<br>
<br>
--8<---------------cut here---------------start------------->8---<br>
<div>sub alterar :LocalRegex('([0-9])') {<br>
</div> my($self, $c) = @_;<br>
$c->stash->{valor} = $c->req->captures->[0];<br>
$c->forward('View::TT');<br>
}<br>
--8<---------------cut here---------------end--------------->8---<br>
<font color="#888888"><br>
--<br>
Eden Cardim Need help with your Catalyst or DBIx::Class project?<br>
Code Monkey <a href="http://www.shadowcat.co.uk/catalyst/" target="_blank">http://www.shadowcat.co.uk/catalyst/</a><br>
Shadowcat Systems Ltd. Want a managed development or deployment platform?<br>
<a href="http://blog.edencardim.com/" target="_blank">http://blog.edencardim.com/</a> <a href="http://www.shadowcat.co.uk/servers/" target="_blank">http://www.shadowcat.co.uk/servers/</a><br>
<a href="http://twitter.com/#!/edenc" target="_blank">http://twitter.com/#!/edenc</a><br>
</font><div><div></div><div>=begin disclaimer<br>
Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">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<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Renato Santos<br><a href="http://www.renatocron.com/blog/" target="_blank">http://www.renatocron.com/blog/</a><br>
</div></div></div>
<br>=begin disclaimer
Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
L
=end disclaimer</div></div> </div></body>
</html>