loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.168, 2017/12/21 22:06:44	version 1.170, 2018/07/02 20:53:07
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)/}