# application/x-www-form-urlencoded or multipart/form-data
# CGI.pm will read STDIN into a param, POSTDATA.
- $c->request->input( $c->cgi->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->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) ) {
+ push ( @params, $param, $value );
+ }
}
}
=cut
sub prepare_request {
- my $c = shift;
- $c->cgi( CGI->new );
+ my ( $c, $cgi ) = @_;
+ $c->cgi( $cgi || CGI->new );
$c->cgi->_reset_globals;
}