X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FCGI%2FMaypole.pm;h=7da043c4665e7523836391af557f36199e9b2631;hb=7637da3c79552ce54e8b71b880af799ddfd64eca;hp=b937d8279a6774e58edf5f99ae0aa1c2fd1ed804;hpb=9b27a09c3eefdad91ae3da125ea5dc71d08ed662;p=maypole.git diff --git a/lib/CGI/Maypole.pm b/lib/CGI/Maypole.pm index b937d82..7da043c 100644 --- a/lib/CGI/Maypole.pm +++ b/lib/CGI/Maypole.pm @@ -3,7 +3,8 @@ use base 'Maypole'; use strict; use warnings; -our $VERSION = "0.3"; + +our $VERSION = '2.04'; sub run { my $self = shift; @@ -30,7 +31,7 @@ sub parse_args { my (%vars) = $self->{cgi}->Vars; while ( my ( $key, $value ) = each %vars ) { my @values = split "\0", $value; - $vars{$key} = @values == 1 ? $values[0] : \@values; + $vars{$key} = @values <= 1 ? $values[0] : \@values; } $self->{params} = {%vars}; $self->{query} = {%vars}; @@ -40,7 +41,7 @@ sub send_output { my $r = shift; print $r->{cgi}->header( -type => $r->{content_type}, - -charset => $r->{document_encoding}, + -charset => $r->{document_encoding}, -content_length => length $r->{output}, ); print $r->{output}; @@ -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 @@ -82,6 +83,35 @@ CGI::Maypole - CGI-based front-end to Maypole This is a handler for Maypole which will use the CGI instead of Apache's C 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 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