[interchange-cvs] interchange - racke modified scripts/interchange.PL

[interchange-core@interchange.redhat.com]

User:      racke
Date:      2002-01-04 17:07:27 GMT
Modified:  scripts  Tag: STABLE_4_8-branch interchange.PL
Log:
don't drop the session on the first time we switch
over to the secure server

Revision  Changes    Path
No                   revision



No                   revision



2.7.2.6   +8 -3      interchange/scripts/interchange.PL


rev 2.7.2.6, prev_rev 2.7.2.5
Index: interchange.PL
===================================================================
RCS file: /anon_cvs/repository/interchange/scripts/interchange.PL,v
retrieving revision 2.7.2.5
retrieving revision 2.7.2.6
diff -u -r2.7.2.5 -r2.7.2.6
--- interchange.PL	2001/11/26 22:33:00	2.7.2.5
+++ interchange.PL	2002/01/04 17:07:27	2.7.2.6
@@ -50,7 +50,7 @@
 #
 # Interchange version 4.8.3
 #
-# $Id: interchange.PL,v 2.7.2.5 2001/11/26 22:33:00 jon Exp $
+# $Id: interchange.PL,v 2.7.2.6 2002/01/04 17:07:27 racke Exp $
 #
 # Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -1972,8 +1972,13 @@
 								: ($Vend::Session->{ohost});
 
 			if(! $compare_host) {
-				new_session($seed) unless $CGI::secure;
-				init_session();
+				# don't drop the session on the first time we switch
+				# over to the secure server
+				unless ($CGI::secure
+					&& $Vend::Session->{ohost} eq $CGI::remote_addr) {
+					new_session($seed) unless $CGI::secure;
+					init_session();
+			    }
 				$Vend::Session->{shost} = $CGI::remote_addr;
 			}
 			elsif ($compare_host ne $CGI::remote_addr) {