Bonnes ID ~ Clément Oudot

C'est bien connu, le graphisme n'est pas le fort des projets Open Source, ce qui leur est souvent dommageable car, bien que techniquement excellents (et souvent meilleurs que leurs concurrents propriétaires), leur apparence "bricolée" détourne souvent les utilisateurs potentiels.

LemonLDAP::NG est un produit de SSO entièrement personnalisable, mais ne vient par défaut qu'avec un graphisme très limité. Une des parties visibles est le Manager, interface Web d'administration du produit. Un nouveau thème vient d'être créé pour ce module, qui sera installé par défaut dans les prochaines versions de LemonLDAP::NG.

Un petit aperçu avant/après :

D'autres captures d'écrans sont disponibles ici.

Ce week-end une nouvelle version des bibliothèques Perl Net::LDAP est sortie en version 0.35, apportant un certain nombre d'améliorations (listées ici), dont un nouveau module dédié au contrôle LDAP Password Policy.

Rappelons que ce contrôle permet par exemple de bloquer des comptes suites à plusieurs authentifications ratées, de conserver un historique des mots de passe, d'avoir une taille minimale, de chiffrer à la volée, etc. Si vous souhaitez plus d'informations sur ce standard (qui n'en n'est pas vraiment un puisque la RFC n'est encore qu'un brouillon), vous trouverez une documentation ici.

L'installation se fait de manière très classique :

# perl Makefile.PL
# make
# make test
# make install

Ainsi, vous pouvez à présent dans vos programmes Perl récupérer les messages spécifiques de ce contrôle :

        use Net::LDAP;
        use Net::LDAP::Control::PasswordPolicy;
        use Net::LDAP::Constant qw( LDAP_CONTROL_PASSWORDPOLICY );

        $ldap = Net::LDAP->new( "ldap.example.com" );

        $pp = Net::LDAP::Control::PasswordPolicy->new;

        $mesg = $ldap->bind( "cn=Bob Smith,dc=example,dc=com",
                             password => "secret",
                             control => [ $pp ] );

        # Get password policy reponse
        my($resp)  = $mesg->control( LDAP_CONTROL_PASSWORDPOLICY );

        if (defined($resp)) {
          my $v = $resp->error;
          print "Password policy error $v\n" if defined $v;
          $v = $resp->time_before_expiration;
          print "Password expires in $v second(s)\n" if defined $v;
        }