#!/usr/bin/perl

$param = shift; 
chomp $param;

# au cas où on essaye d'exécuter le script 'à la main'
$id=`whoami`;
chomp $id;
if ($id eq "root") {
	print "Il faut ne pas être 'root' pour effectuer ce test\n";
	exit;
}

$files = <<FILES;
dh bin r
FILES

chomp $files;

@files = split(/\n/,$files) ;

$fichier_test = "/home/$id/rc.local";
system("cp -f /etc/rc.local $fichier_test");
print "-$fichier_test-\n";

foreach (@files) {
	($file, $directory, $exec) = split;
	if ( $exec eq "r" ) {
		&exec_at_boot($file);
	}
}


sub exec_at_boot {
my ($file) = @_;
	open(IN, "<$fichier_test");
	while (<IN>) {
		if (/^\/usr\/local\/bin\/$file$/) {
			# alors '$file' sera exécuté automatiquement au démarrage 
			# car il est dans une ligne du fichier '/etc/rc.local'
			my $exec_file_at_boot = "true";
print "$file true\n";
			last;
			# plus la peine de continuer le while
		}
	}
	close IN;
	if ($exec_file_at_boot ne "true") {
		# alors le fichier '/etc/rc.local'
		# ne contient pas d'appel à '$file'
		system("echo /usr/local/bin/$file >> $fichier_test");
		# et on l'ajoute donc
	}
}