X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FCGI%2FMaypole.pm;h=8d9508c78ae66e50200ce72dc1ac276ef590b67d;hb=565851cab66df8310b76a59e0b5bf462edf90feb;hp=bc313216d0e9adc268abf5fcd9db2f254a7bf35b;hpb=5ba93a09518403ae28e8a71b5299e2458a6dfa0b;p=maypole.git diff --git a/lib/CGI/Maypole.pm b/lib/CGI/Maypole.pm index bc31321..8d9508c 100644 --- 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; } @@ -62,8 +63,8 @@ CGI::Maypole - CGI-based front-end to Maypole package BeerDB; use base 'CGI::Maypole; BeerDB->setup("dbi:mysql:beerdb"); - BeerDB->config->{uri_base} = "http://your.site/cgi-bin/beer.cgi/"; - BeerDB->config->{display_tables} = [qw[beer brewery pub style]]; + BeerDB->config->uri_base("http://your.site/cgi-bin/beer.cgi/"); + BeerDB->config->display_tables([qw[beer brewery pub style]]); # Now set up your database: # has-a relationships # untaint columns