#/usr/bin/perl -w
#-----------------------------------------------------------
my $rep="$ARGV[0]";
# on s'assure que le nom du répertoire ne se termine pas par un "/"
$rep=~ s/[\/]$//;
# on initialise la variable fichier pour pouvoir ecrire le contenu du premier repertoire au debut du sub
my $fichier=$path;
#----------------------------------------
my $output1="Cordial.txt";

#----------------------------------------
&parcoursarborescencefichiers($rep);	#recurse!
#----------------------------------------

print 'Traitement terminé, le fichier '."$output1".' peut maintenant être étiqueté avec Cordial';
exit;



sub parcoursarborescencefichiers {
   	my $path = shift(@_);
   	opendir(DIR, $path) or die "can't open $path: $!\n";
	my @files = readdir(DIR);
    	closedir(DIR);
    	foreach my $file (@files) {	
		next if $file =~ /^\.\.?$/;
		$file = $path."/".$file;
		if (-d $file) {
		    &parcoursarborescencefichiers($file);	#recurse!
		}
		if (-f $file) {			
			
			open(FILEINPUT,"$file");
			if (!open (FILEOUT,">>$output1")) { die "Pb a l'ouverture du fichier $output1"};
	      		while ($ligne = <FILEINPUT>){	
				
	            		if ($ligne=~/<description>(.*)<\/description>/)  {
		                        my $desc=$1;
	        	                $desc=~ s/&#38;#39;/'/g;
	        	                $desc=~ s/&#38;#34;/"/g;
	        	                $desc=~ s/&#234;/ê/g;
	        	                $desc=~ s/Ã©/é/g;
	        	                $desc=~ s/Ã§/ç/g;
	        	                $desc=~ s/Ã¨/è/g;
	        	                $desc=~ s/Ã/à/g;
	        	                $desc=~ s/à´/ô/g;
	        	                $desc=~ s/&#233;/é/g;
		          	    	print FILEOUT "$desc"."\n";	
				}
			}
			close (FILEINPUT);
		}
	}
        return();               
}
#----------------------------------------------
