[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /auth lonlogin.pm

[raeburn]

raeburn		Mon Jan  4 03:49:10 2021 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/auth	lonlogin.pm 
  Log:
  - For 2.11
    Backport 1.182
  
  
Index: loncom/auth/lonlogin.pm
diff -u loncom/auth/lonlogin.pm:1.158.2.11 loncom/auth/lonlogin.pm:1.158.2.12
--- loncom/auth/lonlogin.pm:1.158.2.11	Mon Oct 26 02:00:13 2020
+++ loncom/auth/lonlogin.pm	Mon Jan  4 03:49:10 2021
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.158.2.11 2020/10/26 02:00:13 raeburn Exp $
+# $Id: lonlogin.pm,v 1.158.2.12 2021/01/04 03:49:10 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -503,7 +503,7 @@
         my $omitextra;
         if ($headextra_exempt ne '') {
             my @exempt = split(',',$headextra_exempt);
-            my $ip = $ENV{'REMOTE_ADDR'};
+            my $ip = &Apache::lonnet::get_requestor_ip();
             if (grep(/^\Q$ip\E$/, at exempt)) {
                 $omitextra = 1;
             }
@@ -746,7 +746,7 @@
     my $output;
     if ($loginvia ne '') {
         my $noredirect;
-        my $ip = $ENV{'REMOTE_ADDR'};
+        my $ip = &Apache::lonnet::get_requestor_ip();
         if ($ip eq '127.0.0.1') {
             $noredirect = 1;
         } else {