
sub lectureIXEMELLE {
	use XML::RSS ;
	
	my @contenu ;
	my $filtre = shift(@_) ;
	my $fichiers = shift(@_) ;
	my $sortie = shift(@_) ;
	my $code = shift(@_) ;
	my $entree = quotemeta(shift(@_)) ;
	
	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, "\n" ;
		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 @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 ) ;
			}
		}
		if( $#contenu >= 0 )
		{
			$file =~ s/$entree\\(.+)$/$1/i ;
			print XOUT "\t\t\t<FICHIER>\n\t\t\t\t<NOM>".$file."</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" ;
		}
	}
}
"true" ;
