version 1.12, 2014/01/01 17:41:51
|
version 1.14.2.1, 2019/02/03 22:10:43
|
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 '') { |
Line 381 sub serverstatus_titles {
|
Line 381 sub serverstatus_titles {
|
'server-status' => 'Apache Status Page', |
'server-status' => 'Apache Status Page', |
'codeversions' => 'LON-CAPA Module Versions', |
'codeversions' => 'LON-CAPA Module Versions', |
'checksums' => 'LON-CAPA Module Checking', |
'checksums' => 'LON-CAPA Module Checking', |
|
'diskusage' => 'Course/Community Disk Usage', |
'clusterstatus' => 'Domain status', |
'clusterstatus' => 'Domain status', |
'metadata_keywords' => 'Display Metadata Keywords', |
'metadata_keywords' => 'Display Metadata Keywords', |
'metadata_harvest' => 'Harvest Metadata Searches', |
'metadata_harvest' => 'Harvest Metadata Searches', |
Line 391 sub serverstatus_titles {
|
Line 392 sub serverstatus_titles {
|
'ping' => 'Cause server to ping another server', |
'ping' => 'Cause server to ping another server', |
'domconf' => 'Text Display of Domain Configuration', |
'domconf' => 'Text Display of Domain Configuration', |
'uniquecodes' => 'Six-character Course Codes', |
'uniquecodes' => 'Six-character Course Codes', |
|
'coursecatalog' => 'Course/Community Catalog with enrollment data', |
); |
); |
return \%titles; |
return \%titles; |
} |
} |