[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom(version_1_1_1_s17) /auth lonlogin.pm
From: albertel <lon-capa-cvs () mail ! lon-capa ! org>
Date: 2005-04-28 1:25:08
Message-ID: cvsalbertel1114651508 () cvsserver
[Download RAW message or body]
albertel Wed Apr 27 21:25:08 2005 EDT
Modified files: (Branch: version_1_1_1_s17)
/loncom/auth lonlogin.pm
Log:
lc before comaping in case of case issues between url and real domain name
Index: loncom/auth/lonlogin.pm
diff -u loncom/auth/lonlogin.pm:1.55.2.1 loncom/auth/lonlogin.pm:1.55.2.2
--- loncom/auth/lonlogin.pm:1.55.2.1 Tue Jan 27 18:40:31 2004
+++ loncom/auth/lonlogin.pm Wed Apr 27 21:25:08 2005
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Login Screen
#
-# $Id: lonlogin.pm,v 1.55.2.1 2004/01/27 23:40:31 albertel Exp $
+# $Id: lonlogin.pm,v 1.55.2.2 2005/04/28 01:25:08 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -111,7 +111,7 @@
my $domain = $r->dir_config('lonDefDomain');
my $testdomain=(split(/\./,$ENV{'HTTP_HOST'}))[0];
foreach my $posdom (values(%Apache::lonnet::hostdom)) {
- if ($posdom eq $testdomain) { $domain=$testdomain; }
+ if (lc($posdom) eq lc($testdomain)) { $domain=$testdomain; }
}
if (($ENV{'form.domain'}) &&
($Apache::lonnet::domaindescription{$ENV{'form.domain'}})) {
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic