loncom/auth/migrateuser.pm - diff

Return to migrateuser.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.2, 2005/10/25 19:14:32	version 1.3, 2005/10/28 21:51:43
Line 71 sub handler {	Line 71 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); }

if (!defined($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');
return OK;	return OK;
}	}

my $cookie=&Apache::lonauth::success($r,$data{'username'},$data{'domain'},	my $cookie=&Apache::lonauth::success($r,$data{'username'},$data{'domain'},
$home,'noredirect');	$home,'noredirect');
$r->header_out('Set-cookie',"lonID=$cookie; path=/");	$r->header_out('Set-cookie',"lonID=$cookie; path=/");