|
|
|
@ -20,10 +20,10 @@ sub _run { |
|
|
|
|
$rule = |
|
|
|
|
$rule eq "authenticate" ? "accept" : $rule eq "manager" ? "" : $rule; |
|
|
|
|
return sub { |
|
|
|
|
$_[0]->{REMOTE_USER} = $self->userId(); |
|
|
|
|
my $req = Lemonldap::NG::Common::PSGI::Request->new( $_[0] ); |
|
|
|
|
Lemonldap::NG::Handler::API->newRequest($req); |
|
|
|
|
my $res = Lemonldap::NG::Handler::SharedConf->run($rule); |
|
|
|
|
$req->userData($datas); |
|
|
|
|
|
|
|
|
|
# TODO: Userdata |
|
|
|
|
#print STDERR Dumper( \@_, $res ); use Data::Dumper; |
|
|
|
@ -81,7 +81,7 @@ sub user { |
|
|
|
|
## @method string userId() |
|
|
|
|
# @return user identifier to log |
|
|
|
|
sub userId { |
|
|
|
|
return $datas->{ $tsv->{whatToTrace} } |
|
|
|
|
return $datas->{ $tsv->{whatToTrace} } // ''; |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
## @method boolean group(string group) |
|
|
|
|