--- loncom/cgi/lonauthcgi.pm 2014/04/06 14:55:24 1.13 +++ loncom/cgi/lonauthcgi.pm 2019/02/03 22:10:43 1.14.2.1 @@ -1,7 +1,7 @@ # # LON-CAPA authorization for cgi-bin scripts # -# $Id: lonauthcgi.pm,v 1.13 2014/04/06 14:55:24 raeburn Exp $ +# $Id: lonauthcgi.pm,v 1.14.2.1 2019/02/03 22:10:43 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -197,10 +197,10 @@ sub check_domain_ip { 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 '') { @@ -392,6 +392,7 @@ sub serverstatus_titles { 'ping' => 'Cause server to ping another server', 'domconf' => 'Text Display of Domain Configuration', 'uniquecodes' => 'Six-character Course Codes', + 'coursecatalog' => 'Course/Community Catalog with enrollment data', ); return \%titles; }