#!/usr/bin/perl

$version = "2";

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

if ($ARGV[0] eq "") {
	print "Il faut un argument : le nom du script à tester";
	print "\n";
	exit;
}

$user = `whoami`;
chomp $user;
# récupérer l'identité de l'utilisateur

open(PASSWD, "</etc/passwd");
while (<PASSWD>) {
# parcourir le fichier "/etc/passwd"
	if (/^$user/) {
	# si c'est la ligne concernant $user
		# extraire les champs
		@champs = split(/:/, $_);
		$home = $champs[5];
		# récupérer le domicile
		last;
	}
}
# $home = "~";
if ( ! -f "at_creation_list") {
	system("wg130 at_creation_list");
}
if ($ARGV[1] ne "-") {
	
	system("/usr/bin/killall mozilla-firefox-bin");
	# arrêter firefox avant chaque exécution du script
	
	if ( -d "$home/.mozilla") {
		if ( ! -d "$home/mozilla.save") {
			system("/bin/mv $home/.mozilla $home/mozilla.save");
			# sauvegarder si existe avant 1° exécution
		} else {
			system("/bin/rm -rf $home/.mozilla");
			# supprimer avant chaque exécution du script
		}
	}
}

system("/usr/bin/perl $ARGV[0] < pseudo_premier_login_kde");
# lancer l'exécution du script
