loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1434, 2020/12/18 15:23:03	version 1.1435, 2021/01/02 18:38:02
Line 10332 sub modifyuserauth {	Line 10332 sub modifyuserauth {
&log($udom,,$uname,$uhome,	&log($udom,,$uname,$uhome,
'Authentication changed by '.$env{'user.domain'}.', '.	'Authentication changed by '.$env{'user.domain'}.', '.
$env{'user.name'}.', '.$umode.	$env{'user.name'}.', '.$umode.
'(Remote '.$ENV{'REMOTE_ADDR'}.'): '.$reply);	'(Remote '.$ip.'): '.$reply);
unless ($reply eq 'ok') {	unless ($reply eq 'ok') {
&logthis('Authentication mode error: '.$reply);	&logthis('Authentication mode error: '.$reply);
return 'error: '.$reply;	return 'error: '.$reply;
Line 14309 sub get_requestor_ip {	Line 14309 sub get_requestor_ip {
$xfor = $ENV{'HTTP_X_FORWARDED_FOR'};	$xfor = $ENV{'HTTP_X_FORWARDED_FOR'};
}	}
if (($ip eq '') && ($xfor ne '')) {	if (($ip eq '') && ($xfor ne '')) {
my @ips = reverse(split(/\s,\s/,$xfor));
foreach my $poss_ip (reverse(split(/\s,\s/,$xfor))) {	foreach my $poss_ip (reverse(split(/\s,\s/,$xfor))) {
unless (&ip_match($poss_ip,$proxyinfo->{'trusted'})) {	unless (&ip_match($poss_ip,$proxyinfo->{'trusted'})) {
$ip = $poss_ip;	$ip = $poss_ip;
	last;
}	}
}	}
}	}