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

Diff for /loncom/cgi/lonauthcgi.pm between versions 1.12 and 1.17

version 1.12, 2014/01/01 17:41:51 version 1.17, 2020/12/18 15:23:04
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 = $ENV{'REMOTE_ADDR'};          $ip = &Apache::lonnet::get_requestor_ip();
     }      }
     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 '') {
         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',
                      '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',
Line 391  sub serverstatus_titles { Line 393  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;
 }  }
Removed from v.1.12  
changed lines
  Added in v.1.17

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