On Fri, Apr 27, 2007 at 10:30:01PM +0200, A. Pagaltzis wrote: > Various nitpickery corrected: > > sub post_redirect { > my ( $c, $loc ) = @_; > > my $is_rel_uri = $loc !~ m{ :// }x; > > my $is_old_proto = do { > my $p = $c->request->protocol; > my ( $maj, $min ) = ( $p =~ m{ \A HTTP / 0* ( \d+ ) \. ( \d+ ) \z > }x ); > not $maj or $maj == 1 and $min == 0; > }; > > $c->res->redirect( > ( $is_rel_uri ? $c->uri_for( $loc ) : $loc ), > ( $is_old_proto ? 302 : 303 ), > ); > }
I was going to say "Quick! Make a plugin on CPAN" but then realized the above exceeds the line limit for Catalyst plugins. ;) -- Bill Moseley [EMAIL PROTECTED] _______________________________________________ List: Catalyst@lists.rawmode.org Listinfo: http://lists.rawmode.org/mailman/listinfo/catalyst Searchable archive: http://www.mail-archive.com/catalyst@lists.rawmode.org/ Dev site: http://dev.catalyst.perl.org/