[interchange-cvs] interchange - racke modified 2 files

[interchange-cvs at icdevgroup.org]

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);	
 			}
 		}