[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /cgi lonauthcgi.pm

[raeburn]

raeburn		Mon Jan  4 03:57:04 2021 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/cgi	lonauthcgi.pm 
  Log:
  - For 2.11
    Backport 1.17
  
  
Index: loncom/cgi/lonauthcgi.pm
diff -u loncom/cgi/lonauthcgi.pm:1.14.2.1 loncom/cgi/lonauthcgi.pm:1.14.2.2
--- loncom/cgi/lonauthcgi.pm:1.14.2.1	Sun Feb  3 22:10:43 2019
+++ loncom/cgi/lonauthcgi.pm	Mon Jan  4 03:57:04 2021
@@ -1,7 +1,7 @@
 #
 # LON-CAPA authorization for cgi-bin scripts
 #
-# $Id: lonauthcgi.pm,v 1.14.2.1 2019/02/03 22:10:43 raeburn Exp $
+# $Id: lonauthcgi.pm,v 1.14.2.2 2021/01/04 03:57:04 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -92,7 +92,7 @@
     my ($page,$ip) = @_;
     my $allowed;
     if (!defined($ip)) {
-        $ip = $ENV{'REMOTE_ADDR'};
+        $ip = &Apache::lonnet::get_requestor_ip();
     }
     if ($ip eq '127.0.0.1') {
         $allowed = 1;