[BACK]Return to lonauthcgi.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / cgi

Diff for /loncom/cgi/lonauthcgi.pm between versions 1.14.2.2 and 1.15

version 1.14.2.2, 2021/01/04 03:57:04 version 1.15, 2016/07/25 19:50:01
Line 92  sub check_ipbased_access { Line 92  sub check_ipbased_access {
     my ($page,$ip) = @_;      my ($page,$ip) = @_;
     my $allowed;      my $allowed;
     if (!defined($ip)) {      if (!defined($ip)) {
         $ip = &Apache::lonnet::get_requestor_ip();          $ip = $ENV{'REMOTE_ADDR'};
     }      }
     if ($ip eq '127.0.0.1') {      if ($ip eq '127.0.0.1') {
         $allowed = 1;          $allowed = 1;
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 '') {
         my @remote_hosts = &Apache::lonnet::get_hosts_from_ip($remote_ip);          if (&Apache::lonnet::hostname($remote_ip) ne '') {
         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 383  sub serverstatus_titles { Line 383  sub serverstatus_titles {
                    'checksums'         => 'LON-CAPA Module Checking',                     'checksums'         => 'LON-CAPA Module Checking',
                    'diskusage'         => 'Course/Community Disk Usage',                     'diskusage'         => 'Course/Community Disk Usage',
                    'clusterstatus'     => 'Domain status',                     'clusterstatus'     => 'Domain status',
                      'certstatus'        => 'LON-CAPA SSL Certificates Status',
                    'metadata_keywords' => 'Display Metadata Keywords',                     'metadata_keywords' => 'Display Metadata Keywords',
                    'metadata_harvest'  => 'Harvest Metadata Searches',                     'metadata_harvest'  => 'Harvest Metadata Searches',
                    'takeoffline'       => 'Offline - replace Log-in page',                     'takeoffline'       => 'Offline - replace Log-in page',
Removed from v.1.14.2.2  
changed lines
  Added in v.1.15

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>