
sub etiq2IXEMELLE {
	use XML::RSS ;
	
	my @contenu ;
	my $filtre = shift(@_) ;
	my $fichiers = shift(@_) ;
	my $sortie = shift(@_) ;
	my $code = shift(@_) ;
	my $entree = quotemeta(shift(@_)) ;
	my $rubrique = shift(@_) ;
	my $resume = shift(@_) ;
	
	my $compteurItem = 0 ;
	my $compteurEtiquetage = 0 ;
	
	my $log = $sortie."\\LOG.txt"; ;
	open( LOG, ">", $log) ;
	
	foreach my $file(@{$fichiers})
	{
		my $lu = new XML::RSS ;
		$lu->parsefile( $file ) ;

		my $codage = $lu->{'encoding'} ;
		print LOG $file, "\t", $codage ;
		eval { decode ($codage, "test") };
		if ( defined ($@) ) 
		{ 
			if( $codage =~ /.*8859.*1.*/i ) { $codage = 'iso-8859-1' ; }
			else { $codage = "utf8" ;}
		}
		my $cat = $lu->{'channel'}->{'title'} ;
		if ($codage ne "utf8") { $cat = decode( $codage, $cat ) ; }
		$cat =~ s/^Le Monde.fr : //i ;
		$cat =~ s/ - Le Monde\.fr$//i ;
		(my $nomCat = $cat) =~ s/\x{00E9}/e/g ;
		$nomCat =~ s/\x{00E8}/e/g ;
		$nomCat =~ s/\x{00EA}/e/g ;
		$nomCat =~ s/\x{00EB}/e/g ;
		$nomCat =~ s/\x{00E0}/a/g ;
		$nomCat =~ s/\x{00E2}/a/g ;
		$nomCat =~ s/\x{00EE}/i/g ;
		$nomCat =~ s/\x{00EF}/i/g ;
		$nomCat =~ s/\x{00F4}/o/g ;
		$nomCat =~ s/\x{00F6}/o/g ;
		$nomCat =~ s/\x{00FC}/u/g ;
		$nomCat =~ s/\x{00FB}/u/g ;
		$nomCat =~ s/ /_/g ;
		$$rubrique{ uc($nomCat) }++ ;
		print LOG "\t", $cat, "\n" ; 
		
		my $output1 = $sortie."\\SORTIE-extract-txt-".uc($nomCat).".xml";
		my $output2 = $sortie."\\SORTIE-extract-txt-".uc($nomCat).".txt";
		my $output3 = $sortie."\\SORTIE-extract-txt-".uc($nomCat)."-treetagger.xml";
		
		if( $$rubrique{ uc($nomCat) } == 1) {
			open (FILEOUT1,">:encoding(utf-8)", $output1) or die "Pb a l'ouverture du fichier $output1" ;
			open (FILEOUT2,">:encoding(utf-8)", $output2) or die "Pb a l'ouverture du fichier $output2" ;
			open (FILEOUT3,">:encoding(utf-8)", $output3) or die "Pb a l'ouverture du fichier $output3" ;
			print FILEOUT2 "<?xml version=\"1.0\" encoding=\"utf-8\" ?>\n" ;
			print FILEOUT2 "<PARCOURS>\n" ;
			print FILEOUT3 "<?xml version=\"1.0\" encoding=\"utf-8\" ?><?xml-stylesheet type=\"text/xsl\" href=\"SORTIE-etiquetage-xsl.xsl\"?>\n" ;
			print FILEOUT3 "<PARCOURS>\n" ;
		}

		(my $nomFich = $file) =~ s/$entree\\(.+)$/$1/i ;
		my $tmptexteXML="<file>\n";
		$tmptexteXML.="<name>$nomFich</name>\n";
		my $tmptexteXMLtagger="<file>\n";
		$tmptexteXMLtagger.="<name>$nomFich</name>\n";
		$tmptexteXML.="<items>\n";
		$tmptexteXMLtagger.="<items>\n";
		my $tmptexteBRUT="";

		my @contenu ;
		foreach my $item (@{$lu->{'items'}})
		{
			my $titre = $item->{'title'} ;
			if ($codage ne "utf8") { $titre = decode( $codage, $titre ) ; }
			$titre = &nettoietexte( $titre ) ;
			my $texte = $item->{'description'}  ;
			if ($codage ne "utf8") { $texte = decode( $codage, $texte ) ; }
			$texte = &nettoietexte( $texte ) ;
			if( $texte =~ /.*$filtre.*/i ) #or ( $titre =~ /$filtre/)
			{
				print TOUT "Titre : ".$titre."\n" ;
				print TOUT "Resume : ".$texte."\n" ;
				my $txt ;
				if( $titre =~ /[^\.\?!]$/ ) { $txt = $titre.". ".$texte ;}
				else { $txt = $titre." ".$texte ; }
				push( @contenu, $txt ) ;
			}

			$compteurItem++;
			if( !( exists( $$resume{ $texte } ))) {
				$compteurEtiquetage++;
				print LOG "Etiquetage (num : $compteurEtiquetage)  sur item (num : $compteurItem) \n";
				my ( $titreetiquete, $texteetiquete ) = &etiquetageavectreetagger( $titre, $texte, $sortie) ;
				$tmptexteBRUT.="§ $titre \n";
				$tmptexteBRUT.="$texte \n";
				$tmptexteXML.="<item><title>".$titre."</title><abstract>".$texte."</abstract></item>\n";
				$tmptexteXMLtagger.="<item>\n<title>\n".$titreetiquete."</title>\n<abstract>\n".$texteetiquete."</abstract>\n</item>\n";
				$$resume{ $texte }++;
			}
			else {
					$tmptexteXML.="<item><title>-</title><abstract>-</abstract></item>\n";
			}

			$tmptexteXML.="</items>\n</file>\n";
			$tmptexteXMLtagger.="</items>\n</file>\n";
			print FILEOUT1 $tmptexteXML;
			print FILEOUT2 $tmptexteBRUT;
			print FILEOUT3 $tmptexteXMLtagger;
		}
		
		if( $#contenu >= 0 )
		{
			print XOUT "\t\t\t<FICHIER>\n\t\t\t\t<NOM>".$nomFich."</NOM>\n\t\t\t\t<TITRE>".$cat."</TITRE>\n" ;
			foreach my $t ( @contenu )
			{
				print XOUT "\t\t\t\t<CONTENU>".$t."</CONTENU>\n" ;
			}
			print XOUT "\t\t\t</FICHIER>\n" ;
		}
	}
	print FILEOUT2 "</PARCOURS>\n" ;
	print FILEOUT3 "</PARCOURS>\n" ;
}
"true" ;
