loncom/cgi/lonauthcgi.pm - diff

Return to lonauthcgi.pm CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.15, 2016/07/25 19:50:01	version 1.16, 2018/12/22 21:04:56
Line 197 sub check_domain_ip {	Line 197 sub check_domain_ip {
my %remote_doms;	my %remote_doms;
my $allowed;	my $allowed;
if ($remote_ip ne '') {	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();	my @poss_domains = &Apache::lonnet::current_machine_domains();
if (@poss_domains > 0) {	if (@poss_domains > 0) {
my @remote_hosts = &Apache::lonnet::get_hosts_from_ip($remote_ip);
foreach my $hostid (@remote_hosts) {	foreach my $hostid (@remote_hosts) {
my $hostdom = &Apache::lonnet::host_domain($hostid);	my $hostdom = &Apache::lonnet::host_domain($hostid);
if ($hostdom ne '') {	if ($hostdom ne '') {