[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /cgi lonauthcgi.pm
From: raeburn <raeburn () source ! lon-capa ! org>
Date: 2018-12-22 21:04:56
Message-ID: cvsraeburn1545512696 () cvsserver
[Download RAW message or body]
raeburn Sat Dec 22 21:04:56 2018 EDT
Modified files:
/loncom/cgi lonauthcgi.pm
Log:
- &Apache::lonnet::hostname expects to be passed a hostID not an IP address.
Index: loncom/cgi/lonauthcgi.pm
diff -u loncom/cgi/lonauthcgi.pm:1.15 loncom/cgi/lonauthcgi.pm:1.16
--- loncom/cgi/lonauthcgi.pm:1.15 Mon Jul 25 19:50:01 2016
+++ loncom/cgi/lonauthcgi.pm Sat Dec 22 21:04:56 2018
@@ -1,7 +1,7 @@
#
# LON-CAPA authorization for cgi-bin scripts
#
-# $Id: lonauthcgi.pm,v 1.15 2016/07/25 19:50:01 raeburn Exp $
+# $Id: lonauthcgi.pm,v 1.16 2018/12/22 21:04:56 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -197,10 +197,10 @@
my %remote_doms;
my $allowed;
if ($remote_ip ne '') {
- if (&Apache::lonnet::hostname($remote_ip) ne '') {
+ my @remote_hosts = &Apache::lonnet::get_hosts_from_ip($remote_ip);
+ if (@remote_hosts) {
my @poss_domains = &Apache::lonnet::current_machine_domains();
if (@poss_domains > 0) {
- my @remote_hosts = &Apache::lonnet::get_hosts_from_ip($remote_ip);
foreach my $hostid (@remote_hosts) {
my $hostdom = &Apache::lonnet::host_domain($hostid);
if ($hostdom ne '') {
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic