#!/usr/bin/perl
###########################################
# convertiseur de nom de fichiers (sansa) #
###########################################

$source = "archive";
$destination = "a";
$path = "/home/darkroot/sansa/";
$list = 0;
$line = 0;
$nom = 0;
$i = 0;

# faire la liste  
print "Faire la liste 1 ou enter pour continuer : ";
chomp($list = <STDIN>); 
if ($list == 1) {
	system("find $path -name '*.$source' -print > numero2");
	`sed 's/^/"/g' numero2 > numero1`;
	`sed 's/\$/"/g' numero1 > lnumero`;
	chop(@list = `cat lnumero`);
	chop($line = `cat lnumero |wc -l`);
	system("rm -rf numero2 numero1");
}
else {
	print "...Suite\n";
}
print "\n";
print "Conversion de fichier\n 1 : numero \n 2 : nom \n Entre : ";

# convertir les fichiers par numero
chomp($ri = <STDIN>);
if ($ri == 1) {
	while ($i < $line) {
	      `cp $list[$i] $i.a`;
	      print "convertion $i $list[$i] -> \"$i.a\"\n";	
	$i++;
	}
system("rm -rf *.$source");		
print "Succes!\n";
}

# reconvertir les fichiers par nom 
elsif ($ri == 2) {
	system("find $path -name '*.$destination' -print > nom2");
	`sed 's/^/"/g' nom2 > nom1`;
	`sed 's/\$/"/g' nom1 > lnom`;
	chop(@nom = `cat lnom`);
	chop(@list = `cat lnumero`); 
	chop($line = `cat lnom |wc -l`);	
	while ( $i < $line) {
	system("cp $nom[$i] $list[$i]");
	print "convertion $i $nom[$i] -> $list[$i]\n";
			$i++;
	}
system("rm -rf nom2 nom1");
system("rm -rf *.$destination");
print "Succes!\n";
}
else {	
	print "Aurevoir!\n";
}