[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;