[interchange-cvs] interchange - heins modified scripts/interchange.PL
interchange-core@interchange.redhat.com
interchange-core@interchange.redhat.com
Wed Jul 3 12:23:00 2002
User: heins
Date: 2002-07-03 16:22:22 GMT
Modified: scripts Tag: STABLE_4_8-branch interchange.PL
Log:
* Skip host-checking if WideOpen as per Ed.
Revision Changes Path
No revision
No revision
2.7.2.15 +5 -2 interchange/scripts/interchange.PL
rev 2.7.2.15, prev_rev 2.7.2.14
Index: interchange.PL
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /anon_cvs/repository/interchange/scripts/interchange.PL,v
retrieving revision 2.7.2.14
retrieving revision 2.7.2.15
diff -u -r2.7.2.14 -r2.7.2.15
--- interchange.PL 27 Jun 2002 22:38:25 -0000 2.7.2.14
+++ interchange.PL 3 Jul 2002 16:22:22 -0000 2.7.2.15
@@ -50,7 +50,7 @@
#
# Interchange version 4.8.6
#
-# $Id: interchange.PL,v 2.7.2.14 2002/06/27 22:38:25 jon Exp $
+# $Id: interchange.PL,v 2.7.2.15 2002/07/03 16:22:22 mheins Exp $
#
# Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
#
@@ -1972,7 +1972,10 @@
? ($Vend::Session->{shost})
: ($Vend::Session->{ohost});
=20
- if(! $compare_host) {
+ if($Vend::Cfg->{WideOpen}) {
+ # do nothing, no host checking
+ }
+ elsif(! $compare_host) {
# don't drop the session on the first time we switch
# over to the secure server
unless ($CGI::secure