added accent compatibility Dataserver

Former-commit-id: 039f7a5b776715c8c6a69bc6ab025dd9ff33fad9

pandora_server/lib/PandoraFMS/DataServer.pm

@@ -30,6 +30,10 @@ use XML::Simple;
 use POSIX qw(setsid strftime);
 use IO::Uncompress::Unzip;
 
+# Required for file names with accents
+use Encode qw(decode);
+use Encode::Locale ();
+
 # For Reverse Geocoding
 use LWP::Simple;
 
@@ -111,6 +115,7 @@ sub data_producer ($) {
 	# Do not read more than max_queue_files files
  	my $file_count = 0;
  	while (my $file = readdir (DIR)) {
+ 		$file = Encode::decode( locale_fs => $file );
 
 		# Data files must have the extension .data
 		next if ($file !~ /^.*[\._]\d+\.data$/);