X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FCGI%2FMaypole.pm;h=db8cc75149dc180af39653c03484db0a88b5cd14;hb=48f5cd806ad785fbd8a77b93eebbf786fb73091f;hp=bc313216d0e9adc268abf5fcd9db2f254a7bf35b;hpb=5ba93a09518403ae28e8a71b5299e2458a6dfa0b;p=maypole.git diff --git a/lib/CGI/Maypole.pm b/lib/CGI/Maypole.pm index bc31321..db8cc75 100644 --- a/lib/CGI/Maypole.pm +++ b/lib/CGI/Maypole.pm @@ -30,7 +30,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}; @@ -62,8 +62,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 +82,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