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

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Wed Jan 14 01:09:52 UTC 2009


User:      jon
Date:      2009-01-14 01:09:52 GMT
Modified:  lib/Vend Dispatch.pm
Log:
BounceReferrals changes:

* Fix bug that kept query strings from being passed through due to use of
nonexistent %$CGI::Values instead of %CGI::Values.

* Remove mv_pc and mv_source to prevent redirection loops.

* Don't generate a "process" URL for root URL; use DirectoryIndex instead, if available.

Thanks to David Christensen <david at endpoint.com>.

Revision  Changes    Path
1.107                interchange/lib/Vend/Dispatch.pm


rev 1.107, prev_rev 1.106
Index: Dispatch.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Dispatch.pm,v
retrieving revision 1.106
retrieving revision 1.107
diff -u -u -r1.106 -r1.107
--- Dispatch.pm	31 Dec 2008 20:34:53 -0000	1.106
+++ Dispatch.pm	14 Jan 2009 01:09:52 -0000	1.107
@@ -1,8 +1,8 @@
 # Vend::Dispatch - Handle Interchange page requests
 #
-# $Id: Dispatch.pm,v 1.106 2008-12-31 20:34:53 jon Exp $
+# $Id: Dispatch.pm,v 1.107 2009-01-14 01:09:52 jon Exp $
 #
-# Copyright (C) 2002-2008 Interchange Development Group
+# Copyright (C) 2002-2009 Interchange Development Group
 # Copyright (C) 2002 Mike Heins <mike at perusion.net>
 #
 # This program was originally based on Vend 0.2 and 0.3
@@ -26,7 +26,7 @@
 package Vend::Dispatch;
 
 use vars qw($VERSION);
-$VERSION = substr(q$Revision: 1.106 $, 10);
+$VERSION = substr(q$Revision: 1.107 $, 10);
 
 use POSIX qw(strftime);
 use Vend::Util;
@@ -1456,8 +1456,9 @@
 		my $form =
 			join '',
 			map { "$_=$CGI::values{$_}\n" }
-			sort keys %$CGI::values;
-		my $url = vendUrl($path, undef, undef, { form => $form, match_security => 1 });
+			grep !/^mv_(?:pc|source)$/,
+			sort keys %CGI::values;
+		my $url = vendUrl($path eq '' ? $Vend::Cfg->{DirectoryIndex} : $path, undef, undef, { form => $form, match_security => 1 });
 		my $msg = get_locale_message(
 			301,
 			"Redirected to %s.",







More information about the interchange-cvs mailing list