my $loc = $self->{cgi}->url( -absolute => 1 );
no warnings 'uninitialized';
$self->{path} =~ s/^($loc)?\///;
+ $self->rewrite_path;
$self->parse_path;
$self->parse_args;
}
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