[interchange-cvs] interchange - racke modified scripts/interchange.PL
interchange-core@interchange.redhat.com
interchange-core@interchange.redhat.com
Fri Jan 4 12:08:01 2002
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) {