[interchange-cvs] interchange - jon modified lib/Vend/Server.pm
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Wed Sep 17 23:28:16 UTC 2008
User: jon
Date: 2008-09-17 23:28:16 GMT
Modified: lib/Vend Tag: STABLE_5_6-branch Server.pm
Log:
Allow XML posts by e.g. Google Checkout, which broke in Interchange 5.6.0 (RT #219).
Thanks to Andy <ic at tvcables.co.uk> for the patch.
Revision Changes Path
No revision
No revision
2.91.2.1 interchange/lib/Vend/Server.pm
rev 2.91.2.1, prev_rev 2.91
Index: Server.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Server.pm,v
retrieving revision 2.91
retrieving revision 2.91.2.1
diff -u -u -r2.91 -r2.91.2.1
--- Server.pm 22 Apr 2008 05:09:44 -0000 2.91
+++ Server.pm 17 Sep 2008 23:28:16 -0000 2.91.2.1
@@ -1,6 +1,6 @@
# Vend::Server - Listen for Interchange CGI requests as a background server
#
-# $Id: Server.pm,v 2.91 2008-04-22 05:09:44 jon Exp $
+# $Id: Server.pm,v 2.91.2.1 2008-09-17 23:28:16 jon Exp $
#
# Copyright (C) 2002-2008 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
@@ -26,7 +26,7 @@
package Vend::Server;
use vars qw($VERSION);
-$VERSION = substr(q$Revision: 2.91 $, 10);
+$VERSION = substr(q$Revision: 2.91.2.1 $, 10);
use Cwd;
use POSIX qw(setsid strftime);
@@ -251,7 +251,7 @@
if ($request_method eq 'POST') {
#::logDebug("content type header: " . $CGI::content_type);
## check for valid content type
- if ($CGI::content_type =~ m{^(?:multipart/form-data|application/x-www-form-urlencoded)\b}i) {
+ if ($CGI::content_type =~ m{^(?:multipart/form-data|application/x-www-form-urlencoded|application/xml)\b}i) {
parse_post(\$CGI::query_string)
if $Global::TolerateGet;
parse_post($h->{entity});
More information about the interchange-cvs
mailing list