#!usr/bin/perl

# But du programme : Faire un recode forcé de tous les fichiers contenus dans le dossier passé en paramètre de la ligne de 
# commande
# Fonctionnement : perl prog [chemin]/[dossier]treetagger (le dossier doit être issus du programme BAO2, les fichiers doivent être passés au crible de treetagger)


use strict;
use warnings;
use 5.014;

die "syntaxe correcte pour $0 = perl prog [chemin]/[dossier]treetagger" unless (@ARGV== 1);
#die "syntaxe correcte pour $0 = perl prog [chemin]/[dossier]treetagger" unless ($ARGV[0]=~ /.*?treetagger/);


# Main
say "_"x20;
my $dossier=$ARGV[0];
my $saveName="";
parcours($dossier);

#Fonction(s)

sub parcours
{
	my ($dossierEnCours)=@_;
	opendir (my $D, $dossierEnCours)  or die "Erreur d'ouverture de dossier type : $!";
	foreach my $x (readdir ($D))
	{		
			$saveName=$x;
			$x=$dossierEnCours."/".$x;
			next if $x=~ /^\.|\.\.?$/;
		if (-d $x)
		{
			parcours($x);
		}
		elsif (-f $x)
		{
			appelTreetagger2xml($x);
		}
	}	
	closedir $D;
}

sub appelTreetagger2xml
{
	my ($fichier)=@_;
	say $saveName;
	system ("perl modifTreetagger2xml-utf8.pl $fichier utf-8 $saveName");
}
