added rewrite_path()

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@212 48953598-375a-da11-a14b-00016c27c3ee

diff --git a/Changes b/Changes
index b108b732b754c63c43b0a8782520ef4339afb8cd..1b9235f5e2375f332c7a3645a916d55b5a65fc25 100644 (file)
--- a/Changes
+++ b/Changes
@@ -21,6 +21,7 @@ Revision history for Perl extension Maypole
     - moved doc/*.pod to lib/Maypole/Manual
     - added Maypole::Model::Base::is_public() to make it simple to overload
       :Exported behavior
+    - added rewrite_path()
 
 1.7   Sat Jul 17 20:15:26 BST 2004
     - Emergency release - we lost the "use Maypole::Constants" from

diff --git a/lib/Apache/MVC.pm b/lib/Apache/MVC.pm
index 5eb1e4d96240f34616bc69b9337c5f0517a7e5cf..4fcd8dfde15de7eab8fac55ea4905ae219470ccb 100644 (file)
--- a/lib/Apache/MVC.pm
+++ b/lib/Apache/MVC.pm
@@ -30,6 +30,7 @@ sub parse_location {
     my $loc = $self->{ar}->location;
     no warnings 'uninitialized';
     $self->{path} =~ s/^($loc)?\///;
+    $self->rewrite_path;
     $self->parse_path;
     $self->parse_args;
 }

diff --git a/lib/CGI/Maypole.pm b/lib/CGI/Maypole.pm
index 67cbf92f1c08e34325e1c767b5ffb845393632ff..8d9508c78ae66e50200ce72dc1ac276ef590b67d 100644 (file)
--- a/lib/CGI/Maypole.pm
+++ b/lib/CGI/Maypole.pm
@@ -21,6 +21,7 @@ sub parse_location {
     my $loc = $self->{cgi}->url( -absolute => 1 );
     no warnings 'uninitialized';
     $self->{path} =~ s/^($loc)?\///;
+    $self->rewrite_path;
     $self->parse_path;
     $self->parse_args;
 }

diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index 9c67ad6be2329e7791fcfb0b0dd9c6a6471c7892..7ab6cb31f6d058146f4fc5ba518f8652aec98625 100644 (file)
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -130,8 +130,9 @@ sub is_applicable {
     $config->ok_tables || $config->ok_tables( $config->display_tables );
     $config->ok_tables( { map { $_ => 1 } @{ $config->ok_tables } } )
       if ref $config->ok_tables eq "ARRAY";
-    warn "We don't have that table ($self->{table}).\n".
-    "Available tables are: ".join (",", @{ $config->{display_tables} })
+    warn "We don't have that table ($self->{table}).\n"
+      . "Available tables are: "
+      . join( ",", @{ $config->{display_tables} } )
       if $self->debug
       and not $config->ok_tables->{ $self->{table} };
     return DECLINED() unless exists $config->ok_tables->{ $self->{table} };
@@ -172,6 +173,8 @@ sub authenticate { return OK }
 
 sub exception { return ERROR }
 
+sub rewrite_path { }
+
 sub parse_path {
     my $self = shift;
     $self->{path} ||= "frontpage";

diff --git a/lib/Maypole/CLI.pm b/lib/Maypole/CLI.pm
index 49f267584cf994d1a169c125f24539a37007dcf3..0fd3fa3fe9c57589ef608b2c9e804288864367c5 100644 (file)
--- a/lib/Maypole/CLI.pm
+++ b/lib/Maypole/CLI.pm
@@ -22,10 +22,11 @@ sub get_template_root { $ENV{MAYPOLE_TEMPLATES} || "." }
 
 sub parse_location {
     my $self = shift;
-    my $url  = URI->new(shift @ARGV);
-    my $root = URI->new($self->config->uri_base)->path;
+    my $url  = URI->new( shift @ARGV );
+    my $root = URI->new( $self->config->uri_base )->path;
     $self->{path} = $url->path;
     $self->{path} =~ s/^$root//i if $root;
+    $self->rewrite_path;
     $self->parse_path;
     $self->parse_args($url);
 }