The flash is moved to the stash after the redirect, and then it's gone after
that, right?

What we do is stuff the intended destination into the session and then pull
it from there:

sub login : Chained('/') PathPart('login') Args(0) {
my ( $self, $c ) = @_;

my $form = Spill::Form::Login->new( action => $c->uri_for('/login') );

template => 'login.tt2',
form => $form,

if ( $c->action ne 'login' ) {
# Stuff destination into session for later redirect if user
* $c->session->{redirect} = $c->req->uri->as_string;*

...then, later, after authenticating...

my $go = *delete( $c->session->{redirect} )* ||
$go = '/' if $go =~ /\blog(in|out)\b/;
$c->res->redirect( $go );

On Sun, Jan 23, 2011 at 8:27 PM, Eric Berg wrote:

If a user submits a certain form without being logged in, I flash the
current URL, save the params in the session, and redirect them to the login.

In my Login controller, I look for $c->flash->{redirect_url} and redirect
them back to that URL.

The problem is that that flash entry is gone after the user submits the
login form. I logged out the redirect URL at the beginning of my login
routine and it comes through the first time, but even if I don't access it
via the log statement, that redirect_url key is not there in the flash when
the user submits the login form with their credentials.

I've tried resetting $c->flash->{redirect_url} in the login routine and
also tried $c->keep_flash( qw( redirect_url )) in the login routine, but no

Any thoughts on what I might be doing wrong?


List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive:
Dev site: http://dev.catalyst.perl.org/

The first step towards getting somewhere is to decide that you are not going
to stay where you are. -- J.P.Morgan
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.scsys.co.uk/pipermail/catalyst/attachments/20110123/891bb876/attachment.htm

Search Discussions

Discussion Posts


Follow ups

Related Discussions

Discussion Navigation
viewthread | post
posts ‹ prev | 2 of 5 | next ›
Discussion Overview
groupcatalyst @
categoriescatalyst, perl
postedJan 24, '11 at 2:27a
activeJan 24, '11 at 5:41a

2 users in discussion

Will Trillich: 3 posts Eric Berg: 2 posts



site design / logo © 2022 Grokbase