[interchange-cvs] interchange - racke modified 2 files
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Wed Jan 2 10:33:50 EST 2008
User: racke
Date: 2008-01-02 15:33:49 GMT
Modified: . WHATSNEW-5.5
Modified: lib/Vend Server.pm
Log:
Avoid multiple identical cookies (#150).
Revision Changes Path
1.83 +2 -0 interchange/WHATSNEW-5.5
rev 1.83, prev_rev 1.82
Index: WHATSNEW-5.5
===================================================================
RCS file: /var/cvs/interchange/WHATSNEW-5.5,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -r1.82 -r1.83
--- WHATSNEW-5.5 2 Jan 2008 09:21:48 -0000 1.82
+++ WHATSNEW-5.5 2 Jan 2008 15:33:49 -0000 1.83
@@ -83,6 +83,8 @@
* Recognize "cc" and "bcc" headers in Route settings for emails generated
directly by the routes.
+* Avoid multiple identical cookies (#150).
+
UserTag
-------
2.85 +9 -4 interchange/lib/Vend/Server.pm
rev 2.85, prev_rev 2.84
Index: Server.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Server.pm,v
retrieving revision 2.84
retrieving revision 2.85
diff -u -r2.84 -r2.85
--- Server.pm 7 Nov 2007 11:51:19 -0000 2.84
+++ Server.pm 2 Jan 2008 15:33:49 -0000 2.85
@@ -1,8 +1,8 @@
# Vend::Server - Listen for Interchange CGI requests as a background server
#
-# $Id: Server.pm,v 2.84 2007/11/07 11:51:19 markj Exp $
+# $Id: Server.pm,v 2.85 2008/01/02 15:33:49 racke Exp $
#
-# Copyright (C) 2002-2007 Interchange Development Group
+# Copyright (C) 2002-2008 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
#
# This program was originally based on Vend 0.2 and 0.3
@@ -26,7 +26,7 @@
package Vend::Server;
use vars qw($VERSION);
-$VERSION = substr(q$Revision: 2.84 $, 10);
+$VERSION = substr(q$Revision: 2.85 $, 10);
use Cwd;
use POSIX qw(setsid strftime);
@@ -608,7 +608,12 @@
push (@paths, @{$ref->{alias}}) if defined $ref->{alias};
if ($Global::FullUrl) {
# remove domain from script
- for (@paths) { s:^[^/]+/:/: or $_ = '/'; }
+ my %pathhash;
+ for (@paths) {
+ s:^[^/]+/:/: or $_ = '/';
+ $pathhash{$_} = 1;
+ }
+ @paths = keys(%pathhash);
}
}
More information about the interchange-cvs
mailing list