use strict;
use warnings;
-our $VERSION = "0.3";
+
+our $VERSION = '2.05';
sub run {
- my $self = shift;
- return $self->handler();
+ my $self = shift;
+ return $self->handler();
}
sub get_request {
- require CGI::Simple;
- shift->{cgi} = CGI::Simple->new();
+ require CGI::Simple;
+ shift->{cgi} = CGI::Simple->new();
}
sub parse_location {
- 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} =~ s/^($loc)?\///;
- $self->parse_path;
- $self->{params} = { $self->{cgi}->Vars };
- $self->{query} = { $self->{cgi}->Vars };
+ 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} =~ s/^($loc)?\///;
+ $self->{path} .= '/' if $self->{path} eq $loc;
+ $self->parse_path;
+ $self->parse_args;
+}
+
+sub parse_args {
+ my $self = shift;
+ my (%vars) = $self->{cgi}->Vars;
+ while ( my ( $key, $value ) = each %vars ) {
+ my @values = split "\0", $value;
+ $vars{$key} = @values <= 1 ? $values[0] : \@values;
+ }
+ $self->{params} = {%vars};
+ $self->{query} = {%vars};
}
sub send_output {
- my $r = shift;
- print $r->{cgi}->header(-type => $r->{content_type},
- -content_length => length $r->{output},
- );
- print $r->{output};
+ my $r = shift;
+ print $r->{cgi}->header(
+ -type => $r->{content_type},
+ -charset => $r->{document_encoding},
+ -content_length => do { use bytes; length $r->{output} },
+ );
+ print $r->{output};
}
sub get_template_root {
- my $r = shift;
- $r->{cgi}->document_root . "/". $r->{cgi}->url(-relative=>1);
+ my $r = shift;
+ $r->{cgi}->document_root . "/" . $r->{cgi}->url( -relative => 1 );
}
-
1;
=head1 NAME
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
This is a handler for Maypole which will use the CGI instead of Apache's
C<mod_perl> 1.x. This handler can also be used for Apache 2.0.
+=head1 METHODS
+
+=over
+
+=item run
+
+Call this from your CGI script to start the Maypole application.
+
+=back
+
+=head1 Implementation
+
+This class overrides a set of methods in the base Maypole class to provide it's
+functionality. See L<Maypole> for these:
+
+=over
+
+=item get_request
+
+=item get_template_root
+
+=item parse_args
+
+=item parse_location
+
+=item send_output
+
+=back
+
=head1 AUTHORS
Dave Ranney C<dave@sialia.com>