loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.34, 2015/01/22 22:45:06	version 1.35, 2016/12/16 15:31:11
Line 112 sub handler {	Line 112 sub handler {
my $skip_canhost_check = '';	my $skip_canhost_check = '';
if ($env{'form.role'}) {	if ($env{'form.role'}) {
if (!exists($env{'user.role.'.$env{'form.role'}})) {	if (!exists($env{'user.role.'.$env{'form.role'}})) {
return FORBIDDEN;	delete($env{'form.role'});
} else {	} else {
my $now = time;	my $now = time;
my ($start,$end) = split(/\./,$env{'user.role.'.$env{'form.role'}});	my ($start,$end) = split(/\./,$env{'user.role.'.$env{'form.role'}});
if (($start && $start > $now) \|\| ($end && $end < $now)) {	if (($start && $start > $now) \|\| ($end && $end < $now)) {
return FORBIDDEN;	delete($env{'form.role'});
} elsif ($env{'form.role'} eq 'au./'.$env{'user.domain'}.'/') {	} elsif ($env{'form.role'} eq 'au./'.$env{'user.domain'}.'/') {
if (&Apache::lonnet::homeserver($env{'user.name'},$env{'user.domain'}) eq $env{'form.otherserver'}) {	if (&Apache::lonnet::homeserver($env{'user.name'},$env{'user.domain'}) eq $env{'form.otherserver'}) {
$skip_canhost_check = 1;	$skip_canhost_check = 1;