use strict;
use warnings;
-our $VERSION = '2.04';
+our $VERSION = '2.05';
sub run {
my $self = shift;
$self->{path} = $self->{cgi}->url( -absolute => 1, -path_info => 1 );
my $loc = $self->{cgi}->url( -absolute => 1 );
no warnings 'uninitialized';
+ $self->{path} .= '/' if $self->{path} eq $loc;
$self->{path} =~ s/^($loc)?\///;
$self->parse_path;
$self->parse_args;
print $r->{cgi}->header(
-type => $r->{content_type},
-charset => $r->{document_encoding},
- -content_length => length $r->{output},
+ -content_length => do { use bytes; length $r->{output} },
);
print $r->{output};
}
=head1 SYNOPSIS
package BeerDB;
- use base 'CGI::Maypole;
+ 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->template_root("/var/www/beerdb/");
# Now set up your database:
# has-a relationships
# untaint columns
1;
## example beer.cgi:
-
+
#!/usr/bin/perl -w
use strict;
use BeerDB;
BeerDB->run();
+Now to access the beer database, type this URL into your browser:
+http://your.site/cgi-bin/beer.cgi/frontpage
+
=head1 DESCRIPTION
This is a handler for Maypole which will use the CGI instead of Apache's