web/modules/pxt/PXT/ApacheHandler.pm | 23 +++++------------------
1 file changed, 5 insertions(+), 18 deletions(-)
New commits:
commit 51fd1c7065c69659d811c70d4f233f08fe2bfb41
Author: Jan Pazdziora <jpazdziora(a)redhat.com>
Date: Thu Jan 28 14:16:18 2010 +0100
No XMLRPC/SOAP processing in the web/Perl stack, removing.
diff --git a/web/modules/pxt/PXT/ApacheHandler.pm b/web/modules/pxt/PXT/ApacheHandler.pm
index b8d2433..82f2d5d 100644
--- a/web/modules/pxt/PXT/ApacheHandler.pm
+++ b/web/modules/pxt/PXT/ApacheHandler.pm
@@ -363,28 +363,15 @@ sub initialize_pxt {
my $xml_req;
my $status; # status from call to $apr->parse
- if ($r->headers_in->{"Content-type"} and
$r->headers_in->{"Content-type"} =~ m(^text/xml)) {
- $xml_req = 1;
- $apr = undef;
+ $apr = Apache2::Request->new($r, POST_MAX =>
PXT::Config->get("post_max"));
- if ($r->headers_in->{'SOAPAction'}) {
- $request->xml_request(new PXT::SoapRequest);
- }
- else {
- $request->xml_request(new PXT::XmlrpcRequest);
- }
- }
- else {
- $apr = Apache2::Request->new($r, POST_MAX =>
PXT::Config->get("post_max"));
-
- $status = OK;
- eval {
+ $status = OK;
+ eval {
$apr->parse;
- };
- if ($@ and ref $@ eq 'APR::Request::Error') {
+ };
+ if ($@ and ref $@ eq 'APR::Request::Error') {
APR::Request::Error::strerror($@);
$status = SERVER_ERROR;
- }
}
$r->pnotes('pxt_apr', $apr);