[interchange-cvs] interchange - jon modified lib/Vend/Server.pm

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Wed Sep 17 23:25:19 UTC 2008


User:      jon
Date:      2008-09-17 23:25:19 GMT
Modified:  lib/Vend 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
2.93                 interchange/lib/Vend/Server.pm


rev 2.93, prev_rev 2.92
Index: Server.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Server.pm,v
retrieving revision 2.92
retrieving revision 2.93
diff -u -u -r2.92 -r2.93
--- Server.pm	13 Sep 2008 04:28:56 -0000	2.92
+++ Server.pm	17 Sep 2008 23:25:18 -0000	2.93
@@ -1,6 +1,6 @@
 # Vend::Server - Listen for Interchange CGI requests as a background server
 #
-# $Id: Server.pm,v 2.92 2008-09-13 04:28:56 jon Exp $
+# $Id: Server.pm,v 2.93 2008-09-17 23:25:18 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.92 $, 10);
+$VERSION = substr(q$Revision: 2.93 $, 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