dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Slave in progress

Browse Source
This commit is contained in:
Xavier Guimard 2010-12-08 10:42:53 +00:00
parent 7c2cc91098
commit 3d5709cd0a
4 changed files with 21 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
modules/lemonldap-ng-manager/lib/Lemonldap/NG/Manager/_Struct.pm
View File

@ -575,9 +575,10 @@ sub struct {
# Slave
slaveParams => {
_nodes => [qw(slaveAuthnLevel)],
_nodes => [qw(slaveAuthnLevel slaveUserAttr)],
_help => 'authSlave',
slaveAuthnLevel => 'int:/slaveAuthnLevel',
slaveUserAttr => 'int:/slaveUserAttr',
},
# Choice
@ -1655,6 +1656,10 @@ sub testStruct {
# Slave
slaveAuthnLevel => $integer,
slaveUserAttr => {
test => qr/^[_a-zA-Z]\w*$/,
msgFail => 'Bad attribute name',
},
# Choice
authChoiceParams => $testNotDefined,

4
modules/lemonldap-ng-manager/lib/Lemonldap/NG/Manager/_i18n.pm
View File

@ -257,6 +257,8 @@ sub en {
singleIP => 'One IP only by user',
singleSession => 'One session only by user',
singleUserByIP => 'One user by IP address',
slaveAuthnLevel => 'Authentication level',
slaveParams => 'Slave parameters',
SMTPServer => 'SMTP server',
soap => 'SOAP',
Soap => 'Activation',
@ -641,6 +643,8 @@ sub fr {
singleIP => 'Une seule IP par utilisateur',
singleSession => 'Une seule session par utilisateur',
singleUserByIP => 'Une seule adresse IP par utilisateur',
slaveAuthnLevel => 'Niveau d\'authentification',
slaveParams => 'Paramètres Slave',
SMTPServer => 'Serveur SMTP',
soap => 'SOAP',
Soap => 'Activation',

1
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthSlave.pm
View File

@ -18,7 +18,6 @@ our @ISA = qw(Lemonldap::NG::Portal::AuthNull);
sub setAuthSessionInfo {
my $self = shift;
$self->{sessionInfo}->{'_user'} = 'anonymous';
$self->{sessionInfo}->{authenticationLevel} = $self->{slaveAuthnLevel};
PE_OK;

2
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDBSlave.pm
View File

@ -23,6 +23,8 @@ sub setSessionInfo {
$v =~ s/\-/_/g;
$self->{sessionInfo}->{$k} = $ENV{$v} and $c++;
}
$self->{sessionInfo}->{'_user'} ||=
$self->{sessionInfo}->{ $self->{slaveUserAttr} };
return ( $c ? PE_OK : PE_USERNOTFOUND );
}