loncom/auth/migrateuser.pm - diff

Return to migrateuser.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.6, 2006/05/15 17:45:46	version 1.8, 2006/06/02 21:43:52
Line 49 sub goto_login {	Line 49 sub goto_login {
}	}


	sub sso_check {
	my ($data) = @_;
	my %extra_env;
	if ($data->{'sso.login'}) {
	$extra_env{'request.sso.login'} = $data->{'sso.login'};
	}
	return \%extra_env;
	}

sub handler {	sub handler {
my ($r) = @_;	my ($r) = @_;

Line 71 sub handler {	Line 80 sub handler {
my $home=&Apache::lonnet::homeserver($data{'username'},$data{'domain'});	my $home=&Apache::lonnet::homeserver($data{'username'},$data{'domain'});
if ($home =~ /(con_lost\|no_such_host)/) { return &goto_login($r); }	if ($home =~ /(con_lost\|no_such_host)/) { return &goto_login($r); }

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

if (!$data{'role'}) {	if (!$data{'role'}) {
&Apache::lonauth::success($r,$data{'username'},$data{'domain'},	&Apache::lonauth::success($r,$data{'username'},$data{'domain'},
$home,'/adm/roles');	$home,'/adm/roles',\$extra_env);
return OK;	return OK;
}	}

Line 81 sub handler {	Line 92 sub handler {


&Apache::lonauth::success($r,$data{'username'},$data{'domain'},$home,	&Apache::lonauth::success($r,$data{'username'},$data{'domain'},$home,
$next_url);	$next_url,\$extra_env);
return OK;	return OK;
}	}