larryl at emailplus
Jul 7, 2009, 8:23 AM
Post #7 of 7
(992 views)
Permalink
|
|
Re: offset the URI of an existing Cat App
[In reply to]
|
|
Hi Ian -
> I have always written Cat Apps so they start at the '/' URI but now I
> have been asked to 'offset' one so that:-
>
> / becomes /foo
> /user becomes /foo/user
> /admin/1 becames /foo/admin/1
One approach is to modify $c->prepare_path, similar to:
http://dev.catalyst.perl.org/wiki/wikicookbook/urlpathprefixing
(The example was written for Catalyst 5.7 and will work with 5.8, but
there's probably a Moose-ier way to do the same in 5.8...)
Something like:
------
package MyApp;
use Catalyst::Runtime '5.70';
use base 'Catalyst';
__PACKAGE__->setup();
sub prepare_path
{
my $c = shift;
$c->NEXT::prepare_path(@_);
my @path_chunks = split m[/], $c->request->path, -1;
# Pull prefix off beginning of request path:
my $prefix = shift @path_chunks;
# Create modified request path from any remaining path chunks:
my $new_path = join('/', @path_chunks) || '/';
$c->request->path($new_path);
# Modify the path part of the request base
# to include the path prefix:
my $base = $c->request->base;
$base->path($base->path . "$prefix/");
return;
}
------
So if the url was "/foo/admin/1", the controllers will see a request for
"/admin/1". Also, $c->uri_for('some/path') will generate
"/foo/some/path".
HTH,
Larry
_______________________________________________
List: Catalyst [at] lists
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst [at] lists/
Dev site: http://dev.catalyst.perl.org/
|
