[Catalyst] RFC: CatalystX::RedirectAfterLogin

[Devin Austin]

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) =3D @_;

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

}


sub success : Path {
    my ($self, $c) =3D @_;
    $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--RedirectAf=
terLogin/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/e7e2d=
b55/attachment.htm