loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.167, 2017/05/08 22:47:01	version 1.170, 2018/07/02 20:53:07
Line 159 sub get_posted_cgi {	Line 159 sub get_posted_cgi {
if (length($value) == 1) {	if (length($value) == 1) {
$value=~s/[\r\n]$//;	$value=~s/[\r\n]$//;
}	}
} elsif ($fname =~ /\.(xls\|doc\|ppt)x$/i) {	} elsif ($fname =~ /\.(xls\|doc\|ppt)(x\|m)$/i) {
$value=~s/[\r\n]$//;	$value=~s/[\r\n]$//;
}	}
if (ref($fields) eq 'ARRAY') {	if (ref($fields) eq 'ARRAY') {
Line 289 sub upload_size_allowed {	Line 289 sub upload_size_allowed {
sub sso_login {	sub sso_login {
my ($r,$handle,$username) = @_;	my ($r,$handle,$username) = @_;

my $lonidsdir=$r->dir_config('lonIDsDir');
if (($r->user eq '') \|\| ($username ne '') \|\| ($r->user eq 'public:public') \|\|	if (($r->user eq '') \|\| ($username ne '') \|\| ($r->user eq 'public:public') \|\|
(defined($env{'user.name'}) && (defined($env{'user.domain'}))	(defined($env{'user.name'}) && (defined($env{'user.domain'}))
&& ($handle ne ''))) {	&& ($handle ne ''))) {
Line 584 sub handler {	Line 583 sub handler {
$env{'form.origurl'} = $r->uri;	$env{'form.origurl'} = $r->uri;
}	}
}	}
	if ($requrl=~m{^/+tiny/+$match_domain/+\w+$}) {
	return OK;
	}
# ---------------------------------------------------------------- Check access	# ---------------------------------------------------------------- Check access
my $now = time;	my $now = time;
if ($requrl !~ m{^/(?:adm\|public\|prtspool)/}	if ($requrl !~ m{^/(?:adm\|public\|prtspool)/}