#!/usr/bin/perl

$version = "2";

$param = shift; 
chomp $param;

# sert à l'automatisation des updates du côté serveur
if ($param eq "v") {
	print "$version";
	exit;
}

$passwd_old = "/etc/passwd.old";
$passwd_new = "/etc/passwd";

system("/bin/cp $passwd_new $passwd_old");
# sauvegarder l'état actuel du fichier '/etc/passwd'

while (<STDIN>) {
	$diff_passwd = `diff $passwd_old $passwd_new`;
	# récupérer la modification
	if ($diff_passwd =~ /\da\d/) {
	# si c'est un ajout
		$ligne = $diff_passwd;
		$ligne =~ s/[^>]+> //;
		# enlever les artéfacts de 'diff'
		# extraire les champs
		@champs = split(/:/, $ligne);
		if ( $champs[2] > 499 ) {
		# si c'est un ajout d'utilisateur (UID >= 500)
			$login = $champs[0];
			# récupérer le nom de login
			$home = $champs[5];
			# récupérer le domicile
		}
		system("/bin/cp /usr/local/etc/.bash_profile $home");
		# mettre en place un '~/.bash_profile'
		# qui contient un appel à 'atfirstlogins'
		system("/bin/touch $home/.no_kde");
		# mettre en place un '~/.no_kde'
		# qui indique que cet utilisateur n'a pas encore utilisé l'environnement kde
#  	print "$login";
# 	print "\n";
#  	print "$home";
# 	print "\n";
#  	print "$fichier_conf";
# 	print "\n";
#  	print "$rep_conf";
# 	print "\n";
	}
	system("/bin/cp $passwd_new $passwd_old");
	# re-sauvegarder l'état actuel du fichier '/etc/passwd'
}