FAQ
I'm quite positive others are working on something like this, but I'd like
this to serve as A) my volunteering to help with ongoing efforts and B) help
get a center point from which to start.

I'm working on a "pass through login" type Role for Catalyst (I think that's
what I should call it).

The idea looks like this:

package TestApp::Controller::Root;
use Moose;
use namespace::autoclean;
BEGIN { extends 'Catalyst::Controller'; }
with 'CatalystX::RedirectAfterLogin';

sub login : Local {
my ($self, $c) = @_;

if ( $c->req->param('username') eq 'blah' ) {
$c->next_page('success');
} else {
$c->res->body('Failed!');
$c->detach;
}

}


sub success : Path {
my ($self, $c) = @_;
$c->res->body("Success!");

}

This isn't quite working yet. I'm getting some errors with Moose that I
can't figure out. Feel free to poke:
CatalystX::RedirectAfterLogin<http://github.com/dhoss/CatalystX--RedirectAfterLogin/tree/master>

Original post:
http://www.codedright.net/2009/07/catalystxredirectafterlogin.html

--
Devin Austin
http://www.codedright.net
http://www.dreamhost.com/r.cgi?326568/hosting.html - Host with DreamHost!
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.scsys.co.uk/pipermail/catalyst/attachments/20090713/e7e2db55/attachment.htm

Search Discussions

Related Discussions

Discussion Navigation
viewthread | post
Discussion Overview
groupcatalyst @
categoriescatalyst, perl
postedJul 13, '09 at 9:04a
activeJul 14, '09 at 6:09p
posts2
users2
websitecatalystframework.org
irc#catalyst

2 users in discussion

Devin Austin: 1 post Tomas Doran: 1 post

People

Translate

site design / logo © 2021 Grokbase