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.<br><br><div class="asset-body">
<p>I'm working on a "pass through login" type Role for Catalyst (I think that's what I should call it).<br><br>The idea looks like this:<br><br> </p>
<pre>package TestApp::Controller::Root;<br>use Moose;<br>use namespace::autoclean;<br>BEGIN { extends 'Catalyst::Controller'; }<br>with 'CatalystX::RedirectAfterLogin';<br><br>sub login : Local {<br> my ($self, $c) = @_;<br>
if ( $c->req->param('username') eq 'blah' ) {<br> $c->next_page('success');<br> } else {<br> $c->res->body('Failed!');<br> $c->detach;<br> }<br>
}<br><br><br>sub success : Path {<br> my ($self, $c) = @_;<br> $c->res->body("Success!");<br><br>}<br></pre>
<p>This isn't quite working yet. I'm getting some errors with Moose that I can't figure out. Feel free to poke: <a href="http://github.com/dhoss/CatalystX--RedirectAfterLogin/tree/master">CatalystX::RedirectAfterLogin</a></p>
</div><br clear="all">Original post: <a href="http://www.codedright.net/2009/07/catalystxredirectafterlogin.html">http://www.codedright.net/2009/07/catalystxredirectafterlogin.html</a><br>
<br>-- <br>Devin Austin<br><a href="http://www.codedright.net">http://www.codedright.net</a><br><a href="http://www.dreamhost.com/r.cgi?326568/hosting.html">http://www.dreamhost.com/r.cgi?326568/hosting.html</a> - Host with DreamHost!<br>