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!
_______________________________________________
List: [email protected]
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/[email protected]/
Dev site: http://dev.catalyst.perl.org/
