#!/usr/bin/perl -w
###########################################################
# convertiseur de nom de toune pour le sandisk sansa m240 #
###########################################################

$compteur = 0;
$path = "/home/darkroot/sansa/";
$list = 0;
$line = 0;
$ri = 0;

system("find . -name '*.mp3' -print > mp3list0");
`sed 's/^/"/g' mp3list0 > mp3list1`;
`sed 's/\$/"/g' mp3list1 > mp3list2`;
chop(@list = `cat mp3list2`);
chop($line = `cat mp3list2 |wc -l`);


print "===============================================\n";
print "= WELCOME SANSA WITH A FUCKING BROKEN SCREEN  =\n";
print "===============================================\n"; 
print "Selection 1 ou 2\n 1: (numerique.mp3)\n 2: (reverse.mp3)\n Selection = ";
$ri = <STDIN>;
if ($ri == 1) {
	while ($compteur < $line ) {
		print "cp $list[$compteur] $path$compteur.mp3\n";
		print `cp $list[$compteur] $path$compteur.mp3\n`;
		$compteur++;
	}
}

if ($ri == 2) {
	while ($compteur < $line) {
		print "cp $compteur.mp3 $path$list[$compteur]\n";
		print `cp $path$compteur.mp3 $path$list[$compteur]\n`;
		$compteur++;
	}
}
print "==================================================\n";
print "= Executer une seule fois sinon perte de fichier =\n";
print "==================================================\n";
print "Total fichier convertie $line\n";
print "Total ficher sur le sansa m240 ";
print `ls $path*.mp3|wc -l\n`;
print "Espace fichier ";
print `du -ch $path*.mp3|grep total\n`;