10 return $self->handler();
15 shift->{cgi} = CGI::Simple->new();
20 $self->{path} = $self->{cgi}->url(-absolute=>1, -path_info=>1);
21 my $loc = $self->{cgi}->url(-absolute=>1);
22 no warnings 'uninitialized';
23 $self->{path} =~ s/^($loc)?\///;
25 $self->{params} = { $self->{cgi}->Vars };
26 $self->{query} = { $self->{cgi}->Vars };
31 print $r->{cgi}->header(-type => $r->{content_type},
32 -content_length => length $r->{output},
37 sub get_template_root {
39 $r->{cgi}->document_root . "/". $r->{cgi}->url(-relative=>1);
47 CGI::Maypole - CGI-based front-end to Maypole
52 use base 'CGI::Maypole;
53 BeerDB->setup("dbi:mysql:beerdb");
54 BeerDB->config->{uri_base} = "http://your.site/cgi-bin/beer.cgi/";
55 BeerDB->config->{display_tables} = [qw[beer brewery pub style]];
56 # Now set up your database:
71 This is a handler for Maypole which will use the CGI instead of Apache's
72 C<mod_perl> 1.x. This handler can also be used for Apache 2.0.
76 Dave Ranney C<dave@sialia.com>
78 Simon Cozens C<simon@cpan.org>