LEMONLDAP::NG : new constant : PE_CERTIFICATEREQUIRED

This commit is contained in:
Xavier Guimard 2008-05-25 13:17:16 +00:00
parent dc8d0a4334
commit 83ec000c5f
3 changed files with 6 additions and 2 deletions

View File

@ -28,7 +28,7 @@ our $OVERRIDE = {
return PE_OK;
}
elsif ( $self->{SSLRequire} ) {
return PE_BADCREDENTIALS;
return PE_CERTIFICATEREQUIRED;
}
return $self->extractFormInfo(@_);
},

View File

@ -33,13 +33,14 @@ sub PE_FIRSTACCESS { 9 }
sub PE_BADCERTIFICATE { 10 }
sub PE_PP_ACCOUNT_LOCKED { 21 }
sub PE_PP_PASSWORD_EXPIRED { 22 }
sub PE_CERTIFICATEREQUIRED { 23 }
# EXPORTER PARAMETERS
our @EXPORT =
qw( PE_DONE PE_OK PE_SESSIONEXPIRED PE_FORMEMPTY PE_WRONGMANAGERACCOUNT
PE_USERNOTFOUND PE_BADCREDENTIALS PE_LDAPCONNECTFAILED PE_LDAPERROR
PE_APACHESESSIONERROR PE_FIRSTACCESS PE_BADCERTIFICATE PE_REDIRECT
PE_PP_ACCOUNT_LOCKED PE_PP_PASSWORD_EXPIRED );
PE_PP_ACCOUNT_LOCKED PE_PP_PASSWORD_EXPIRED PE_CERTIFICATEREQUIRED);
our %EXPORT_TAGS = ( 'all' => [ @EXPORT, 'import' ], );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

View File

@ -45,6 +45,7 @@ __END__
# * PE_LA_SEPFAILED 20
# * PE_PP_ACCOUNT_LOCKED 21
# * PE_PP_PASSWORD_EXPIRED 22
# * PE_CERTIFICATEREQUIRED 23
# Not used in errors:
# * PE_DONE -1
@ -75,6 +76,7 @@ sub error_fr {
"Un processus terminal Liberty Alliance a échoué",
"Votre compte est bloqué",
"Votre mot de passe a expiré",
"Certificat exigé",
];
}
@ -103,6 +105,7 @@ sub error_en {
"A Liberty-Alliance Soap End Point process failed",
"Your account is locked",
"Your password has expired",
"Certificate required",
];
}