I just don't shut up, do I? This is in the version from svn again.
(Aaron - is there public access to subversion and what's the URL?)
perldoc Maypole:
get_session
Called immediately after "start_request_hook()".
This method should return a session, which will be stored
in the
request's "session" attribute.
The default method is empty.
get_user
Called immediately after "get_session".
This method should return a user, which will be stored in
the
request's "user" attribute.
The default method is empty.
Maypole.pm
sub handler : method {
# See Maypole::Workflow before trying to understand this.
my ($class, $req) = @_;
$class->init unless $class->init_done;
my $self = $class->new;
# initialise the request
$self->headers_out(Maypole::Headers->new);
$self->get_request($req);
$self->parse_location;
# hook useful for declining static requests e.g. images, or
perhaps for
# sanitizing request parameters
$self->status(Maypole::Constants::OK()); # set the default
$self->__call_hook('start_request_hook');
return $self->status unless $self->status == Maypole::Constants::OK
();
die "status undefined after start_request_hook()" unless defined
$self->status;
$self->get_session;
$self->get_user;
my $status = $self->handler_guts;
return $status unless $status == OK;
# TODO: require send_output to return a status code
$self->send_output;
return $status;
}
Methinks that the code should do what the docs say
nic
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
Maypole-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/maypole-devel
