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 '') { |