#!/usr/bin/perl

$repertoire = shift;
# 1° paramère à la ligne de commande

if ($repertoire =~ /^\//) {
	$repertoire_absolu = $repertoire;
} else {
	$pwd =`pwd`;
	chomp $pwd;
	$repertoire_absolu = "$pwd/$repertoire";
	$repertoire_absolu =~ s/\/\.$//;
}
print "répertpire examiné :";
print "\n";
print "$repertoire_absolu";
print "\n";


$lsr = `/bin/ls -R $repertoire > lsr`;

print "créez ou supprimez un fichier (dans $repertoire, ou sous-répertoire)\n";
print "\npuis faites 'ENTER'\n";
$stdin = <STDIN>;
# entrée au clavier : ne sert qu'à attendre le 'ENTER', on n'utilise pas la valeur entrée

$lsr2 = `/bin/ls -R $repertoire > lsr2`;


$difflsr = `diff lsr lsr2`;
print $difflsr;
@difflsr = split(/\n/, $difflsr);
foreach (@difflsr) {
	chomp;
	if (/^\d+/) {
		s/^(\d+).*/$1/;
		$line = $_;
		
	} else {
		s/^> //;
		$file = $_;
	}

}

print $line;
print "\n";
print $file;
print "\n";

#exit;
print "\n";
print "répertoires dans 'lsr2'";
print "\n";

if ($difflsr ne "") {
	$linenb++;
	open(LSR2, "<lsr2");
	while (<LSR2>) {
		if (/^\.\//) {
			chomp;
			s/:$//;
			$relative_directory = $_;
	print "$relative_directory";
	print "\n";
		}
		if ($linenb == $line) {
			last;
		}
	}
		

}
$absolute_directory = $relative_directory;
$absolute_directory =~ s/^\.//;
$absolute_directory = "$repertoire_absolu$absolute_directory";

$chemin_absolu = "$absolute_directory/$file";

print "\n";

print "fichier supprimé/créé :";
print "\n";
print "$chemin_absolu";
print "\n";