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=/"); |