[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