[interchange-cvs] interchange - heins modified scripts/interchange.PL
interchange-core@interchange.redhat.com
interchange-core@interchange.redhat.com
Wed Jul 3 12:24:00 2002
User: heins
Date: 2002-07-03 16:23:43 GMT
Modified: scripts interchange.PL
Log:
* Skip host-checking if WideOpen as per Ed.
Revision Changes Path
2.39 +5 -2 interchange/scripts/interchange.PL
rev 2.39, prev_rev 2.38
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.38
retrieving revision 2.39
diff -u -r2.38 -r2.39
--- interchange.PL 27 Jun 2002 22:24:11 -0000 2.38
+++ interchange.PL 3 Jul 2002 16:23:43 -0000 2.39
@@ -3,7 +3,7 @@
#
# Interchange version 4.9.1
#
-# $Id: interchange.PL,v 2.38 2002/06/27 22:24:11 jon Exp $
+# $Id: interchange.PL,v 2.39 2002/07/03 16:23:43 mheins Exp $
#
# Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
#
@@ -1962,7 +1962,10 @@
? ($Vend::Session->{shost})
: ($Vend::Session->{ohost});
=20
- if(! $compare_host) {
+ if($Vend::Cfg->{WideOpen}) {
+ # do nothing, no host checking
+ }
+ elsif(! $compare_host) {
new_session($seed) unless $CGI::secure;
init_session();
$Vend::Session->{shost} =3D $CGI::remote_addr;