loncom/auth/migrateuser.pm - diff

Return to migrateuser.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.25, 2016/12/05 00:51:43	version 1.26, 2017/11/30 15:14:51
Line 53 sub goto_login {	Line 53 sub goto_login {
}	}


sub sso_check {	sub sso_lti_check {
my ($data) = @_;	my ($data) = @_;
my %extra_env;	my %extra_env;
if (ref($data) eq 'HASH') {	if (ref($data) eq 'HASH') {
Line 64 sub sso_check {	Line 64 sub sso_check {
$extra_env{'request.sso.reloginserver'} =	$extra_env{'request.sso.reloginserver'} =
$data->{'sso.reloginserver'};	$data->{'sso.reloginserver'};
}	}
	if ($data->{'lti.login'}) {
	$extra_env{'request.lti.login'} = $data->{'lti.login'};
	}
	if ($data->{'lti.passbackid'}) {
	$extra_env{'request.lti.passbackid'} = $data->{'lti.passbackid'};
	}
	if ($data->{'lti.passbackurl'}) {
	$extra_env{'request.lti.passbackurl'} = $data->{'lti.passbackurl'};
	}
	if ($data->{'lti.rosterid'}) {
	$extra_env{'request.lti.rosterid'} = $data->{'lti.rosterid'};
	}
	if ($data->{'lti.rosterurl'}) {
	$extra_env{'request.lti.rosterurl'} = $data->{'lti.rosterurl'};
	}
}	}
return \%extra_env;	return \%extra_env;
}	}
Line 243 sub handler {	Line 258 sub handler {
}	}
if ($home =~ /(con_lost\|no_such_host)/) { return &goto_login($r,$udom); }	if ($home =~ /(con_lost\|no_such_host)/) { return &goto_login($r,$udom); }

my $extra_env = &sso_check(\%data);	my $extra_env = &sso_lti_check(\%data);

my %form;	my %form;
if ($data{'symb'} ne '') {	if ($data{'symb'} ne '') {