Catalyst - Add Trailing Slashes to URLs

Sixtease has asked for the wisdom of the Perl Monks concerning the following question:

Hello all,

I'm looking for a way to tell Catalyst to add a trailing slash if one is not present to the URL of the request and redirect there. But only if the request is not being handled by Static::Simple.

I could do it by checking the URL in every action but I'd prefer to have it globally in one place. How can I do that?

use strict; use warnings; print "Just Another Perl Hacker\n";

Comment on Catalyst - Add Trailing Slashes to URLs

Replies are listed 'Best First'.
Re: Catalyst - Add Trailing Slashes to URLs by dsheroh (Monsignor) on Dec 02, 2008 at 15:38 UTC
Personally, I'd use mod_rewrite to append the / to any URIs that don't end in an extension from a defined set - probably `\.(html?\|css\|jpg\|gif\|png\|ico)$` - rather than having Catalyst do it, on the assumption that anything handled by Static::Simple will be ending with one of those extensions.	[reply] [d/l]
Re^2: Catalyst - Add Trailing Slashes to URLs by Sixtease (Friar) on Dec 02, 2008 at 16:33 UTC
But if I'm not mistaken, then this would not add the slash in the user agent. And that's where it is essential because of relative links use strict; use warnings; print "Just Another Perl Hacker\n";	[reply]
Re^3: Catalyst - Add Trailing Slashes to URLs by dsheroh (Monsignor) on Dec 03, 2008 at 01:13 UTC
By default you are correct, but adding `[R]` to the end of your `RewriteRule` will cause it to do a client-side redirect instead of handling it internally.	[reply] [d/l] [select]
Re: Catalyst - Add Trailing Slashes to URLs by jasonk (Parson) on Dec 04, 2008 at 04:45 UTC
`package MyApp::Controller::Root; use strict; use warnings; use parent 'Catalyst::Controller'; __PACKAGE__->config->{ 'namespace' } = ''; sub auto : Private { my ( $self, $c ) = @_; if ( $c->request->path !~ m{/$} ) { $c->response->redirect( $c->request->path.'/' ); return 0; } return 1; }` [download] I could have sworn there was a plugin out there to do this, but I can't seem to find it now... www.jasonkohles.com We're not surrounded, we're in a target-rich environment!	[reply] [d/l]


XP is just a number
	PerlMonks