Mailing List Archive: Interchange: cvs

interchange - jon modified lib/Vend/Dispatch.pm

Index | Next | Previous | View Threaded

interchange-cvs at icdevgroup

Dec 31, 2008, 12:34 PM

Post #1 of 4 (697 views)
Permalink

interchange - jon modified lib/Vend/Dispatch.pm

User: jon
Date: 2008-12-31 20:34:53 GMT
Modified: lib/Vend Dispatch.pm
Log:
Correct debug message.

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

rev 1.106, prev_rev 1.105
Index: Dispatch.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Dispatch.pm,v
retrieving revision 1.105
retrieving revision 1.106
diff -u -u -r1.105 -r1.106
--- Dispatch.pm 31 Dec 2008 17:46:05 -0000 1.105
+++ Dispatch.pm 31 Dec 2008 20:34:53 -0000 1.106
@@ -1,6 +1,6 @@
# Vend::Dispatch - Handle Interchange page requests
#
-# $Id: Dispatch.pm,v 1.105 2008-12-31 17:46:05 jon Exp $
+# $Id: Dispatch.pm,v 1.106 2008-12-31 20:34:53 jon Exp $
#
# Copyright (C) 2002-2008 Interchange Development Group
# Copyright (C) 2002 Mike Heins <mike [at] perusion>
@@ -26,7 +26,7 @@
package Vend::Dispatch;

use vars qw($VERSION);
-$VERSION = substr(q$Revision: 1.105 $, 10);
+$VERSION = substr(q$Revision: 1.106 $, 10);

use POSIX qw(strftime);
use Vend::Util;
@@ -1598,7 +1598,7 @@
$Vend::FinalPath = $CGI::request_uri;
# remove any trailing query string
$Vend::FinalPath =~ s/\?.*//;
-#::logDebug("FinalPath now $CGI::request_uri");
+#::logDebug("FinalPath now $Vend::FinalPath");
}
else {
$Vend::FinalPath = find_special_page('catalog');

_______________________________________________
interchange-cvs mailing list
interchange-cvs [at] icdevgroup
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs

interchange-cvs at icdevgroup

Dec 31, 2008, 12:36 PM

Post #2 of 4 (644 views)
Permalink

interchange - jon modified lib/Vend/Dispatch.pm [In reply to]

User: jon
Date: 2008-12-31 20:36:06 GMT
Modified: lib/Vend Tag: STABLE_5_6-branch Dispatch.pm
Log:
Correct debug message.

Revision Changes Path
No revision

No revision

1.101.2.2 interchange/lib/Vend/Dispatch.pm

rev 1.101.2.2, prev_rev 1.101.2.1
Index: Dispatch.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Dispatch.pm,v
retrieving revision 1.101.2.1
retrieving revision 1.101.2.2
diff -u -u -r1.101.2.1 -r1.101.2.2
--- Dispatch.pm 31 Dec 2008 17:48:29 -0000 1.101.2.1
+++ Dispatch.pm 31 Dec 2008 20:36:06 -0000 1.101.2.2
@@ -1,6 +1,6 @@
# Vend::Dispatch - Handle Interchange page requests
#
-# $Id: Dispatch.pm,v 1.101.2.1 2008-12-31 17:48:29 jon Exp $
+# $Id: Dispatch.pm,v 1.101.2.2 2008-12-31 20:36:06 jon Exp $
#
# Copyright (C) 2002-2008 Interchange Development Group
# Copyright (C) 2002 Mike Heins <mike [at] perusion>
@@ -26,7 +26,7 @@
package Vend::Dispatch;

use vars qw($VERSION);
-$VERSION = substr(q$Revision: 1.101.2.1 $, 10);
+$VERSION = substr(q$Revision: 1.101.2.2 $, 10);

use POSIX qw(strftime);
use Vend::Util;
@@ -1594,7 +1594,7 @@
$Vend::FinalPath = $CGI::request_uri;
# remove any trailing query string
$Vend::FinalPath =~ s/\?.*//;
-#::logDebug("FinalPath now $CGI::request_uri");
+#::logDebug("FinalPath now $Vend::FinalPath");
}
else {
$Vend::FinalPath = find_special_page('catalog');

_______________________________________________
interchange-cvs mailing list
interchange-cvs [at] icdevgroup
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs

interchange-cvs at icdevgroup

Jan 13, 2009, 5:09 PM

Post #3 of 4 (592 views)
Permalink

interchange - jon modified lib/Vend/Dispatch.pm [In reply to]

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>.

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>
#
# 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.",

_______________________________________________
interchange-cvs mailing list
interchange-cvs [at] icdevgroup
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs

interchange-cvs at icdevgroup

Jan 13, 2009, 8:59 PM

Post #4 of 4 (596 views)
Permalink

interchange - jon modified lib/Vend/Dispatch.pm [In reply to]

User: jon
Date: 2009-01-14 04:59:15 GMT
Modified: lib/Vend Tag: STABLE_5_6-branch 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>.

Revision Changes Path
No revision

No revision

1.101.2.3 interchange/lib/Vend/Dispatch.pm

rev 1.101.2.3, prev_rev 1.101.2.2
Index: Dispatch.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Dispatch.pm,v
retrieving revision 1.101.2.2
retrieving revision 1.101.2.3
diff -u -u -r1.101.2.2 -r1.101.2.3
--- Dispatch.pm 31 Dec 2008 20:36:06 -0000 1.101.2.2
+++ Dispatch.pm 14 Jan 2009 04:59:15 -0000 1.101.2.3
@@ -1,8 +1,8 @@
# Vend::Dispatch - Handle Interchange page requests
#
-# $Id: Dispatch.pm,v 1.101.2.2 2008-12-31 20:36:06 jon Exp $
+# $Id: Dispatch.pm,v 1.101.2.3 2009-01-14 04:59:15 jon Exp $
#
-# Copyright (C) 2002-2008 Interchange Development Group
+# Copyright (C) 2002-2009 Interchange Development Group
# Copyright (C) 2002 Mike Heins <mike [at] perusion>
#
# 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.101.2.2 $, 10);
+$VERSION = substr(q$Revision: 1.101.2.3 $, 10);

use POSIX qw(strftime);
use Vend::Util;
@@ -1453,8 +1453,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.",

_______________________________________________
interchange-cvs mailing list
interchange-cvs [at] icdevgroup
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs

Index | Next | Previous | View Threaded

Interested in having your list archived? Contact Gossamer Threads