=over 4
+=item $c->finalize_body
+
+Prints the response output to STDOUT.
+
+=cut
+
+sub finalize_body {
+ my $c = shift;
+ print $c->response->output;
+}
+
=item $c->finalize_headers
=cut
print "\015\012";
}
-=item $c->finalize_output
-
-Prints the response output to STDOUT.
+=item $c->prepare_body
=cut
-sub finalize_output {
+sub prepare_body {
my $c = shift;
- print $c->response->output;
+
+ # XXX this is undocumented in CGI.pm. If Content-Type is not
+ # application/x-www-form-urlencoded or multipart/form-data
+ # CGI.pm will read STDIN into a param, POSTDATA.
+
+ $c->request->body( $c->cgi->param('POSTDATA') );
}
=item $c->prepare_connection
my $c = shift;
my ( @params );
+
+
+ if ( $c->request->method eq 'POST' ) {
- for my $param ( $c->cgi->param ) {
- for my $value ( $c->cgi->param($param) ) {
- push ( @params, $param, $value );
+ for my $param ( $c->cgi->url_param ) {
+ for my $value ( $c->cgi->url_param($param) ) {
+ push ( @params, $param, $value );
+ }
}
}
-
- for my $param ( $c->cgi->url_param ) {
- for my $value ( $c->cgi->url_param($param) ) {
+
+ for my $param ( $c->cgi->param ) {
+ for my $value ( $c->cgi->param($param) ) {
push ( @params, $param, $value );
}
}
-
+
$c->req->_assign_values( $c->req->parameters, \@params );
}
=cut
sub prepare_request {
- my $c = shift;
- $c->cgi( CGI->new );
+ my ( $c, $cgi ) = @_;
+ $c->cgi( $cgi || CGI->new );
$c->cgi->_reset_globals;
}