Parmit les differentes methodes d'auth, j'ai porté mon choix sur une excessivement simple…

• Pas de dependance d'un serveur tiers
• Simplicite de mise en oeuvre
• Simplicite de gestion

• LDAP J'ai ete refroidit, tres refroidit
• MySQL Tout comme le ldap, je ne veux pas appuyer mon auth sur un process
• Ecraser le /etc Pas glop

• libnss-extrausers ⇒ En gros ca permet de doubler les fichiers /etc/passwd, group'n co

• Installation (comme d'hab)
• Mise en place des liens symboliques

ln -s /usr/local/etc/passwd /var/lib/extrausers/
ln -s /usr/local/etc/group /var/lib/extrausers/
ln -s /usr/local/etc/shadow /var/lib/extrausers/

• Modification du /etc/nsswitch.conf

passwd:         compat extrausers
group:          compat extrausers
shadow:         compat extrausers

Ceci est mon script qui me permet de mettre a jour les fichiers extras

Ils ne dupplique dans les fichiers en question que les users du groupe adlp-netuser, et pose les fichier dans /usr/local/etc/

: ce script doit etre refait en plus propre (NB ne pas travailler la tete dans le …)

#!/usr/bin/perl -w

use strict;
use Data::Dumper;

my $group="adlp-netuser";
my $rep="/usr/local/etc/";
my $users;
my $user;
my $ligne;
my $null;
my ($gid,$grname);

my %bigtab;
my $fichier;
my $idtab;

open(FD,"getent group | grep \"^".$group.":\" |");
$ligne=<FD>;
close(FD);
chomp($ligne);

($null,$null,$null,$users)=split(/:/,$ligne);


foreach $user (split(/,/,$users)) {
        # Recuperation du home'n Co
        open(FD,"getent passwd | grep \"^".$user.":\" |");
        $ligne=<FD>;
        close(FD);
        chomp($ligne);
        $bigtab{passwd}{$ligne}="";

        # Recuperation du pass
        open(FD,"getent shadow | grep \"^".$user.":\" |");
        $ligne=<FD>;
        close(FD);
        if(defined($ligne)) {
                chomp($ligne);
                $bigtab{shadow}{$ligne}="";
                }

        # Recuperation duid pr les groupes
        open(FD,"id $user | cut -f4 -d'=' | ");
        $ligne=<FD>;
        close(FD);
        chomp($ligne);
        foreach (split(/,/,$ligne)) {
                tr/\(\)/ /s;
                ($gid,$grname)=split(/ /);
                $idtab=$grname.":x:".$gid.":";
                if(defined($bigtab{group}{$idtab}))     {
                        $bigtab{group}{$idtab}.=",".$user;
                        }
                else { 
                        $bigtab{group}{$idtab}=$user;
                        }
                }
        }
        
foreach $fichier (keys(%bigtab)) {
        open(FD,">",$rep.$fichier);
        foreach(keys(%{$bigtab{$fichier}})) {
                if($bigtab{$fichier}{$_} eq "") {
                        print FD $_."\n";
                        }
                else    {
                        print FD $_.$bigtab{$fichier}{$_}."\n";
                        }
                }
        }