mirror of
https://github.com/pandorafms/pandorafms.git
synced 2025-09-26 03:19:05 +02:00
Merge branch 'ent-3344-7304-procesado-de-XML-con-acentos' into 'develop'
added accent compatibility Dataserver See merge request artica/pandorafms!2109 Former-commit-id: 7e7479c3d82aeb398fb0c76fe7df61d8522af2b3
This commit is contained in:
commit
67ab08fc41
@ -30,6 +30,10 @@ use XML::Simple;
|
|||||||
use POSIX qw(setsid strftime);
|
use POSIX qw(setsid strftime);
|
||||||
use IO::Uncompress::Unzip;
|
use IO::Uncompress::Unzip;
|
||||||
|
|
||||||
|
# Required for file names with accents
|
||||||
|
use Encode qw(decode);
|
||||||
|
use Encode::Locale ();
|
||||||
|
|
||||||
# For Reverse Geocoding
|
# For Reverse Geocoding
|
||||||
use LWP::Simple;
|
use LWP::Simple;
|
||||||
|
|
||||||
@ -111,6 +115,7 @@ sub data_producer ($) {
|
|||||||
# Do not read more than max_queue_files files
|
# Do not read more than max_queue_files files
|
||||||
my $file_count = 0;
|
my $file_count = 0;
|
||||||
while (my $file = readdir (DIR)) {
|
while (my $file = readdir (DIR)) {
|
||||||
|
$file = Encode::decode( locale_fs => $file );
|
||||||
|
|
||||||
# Data files must have the extension .data
|
# Data files must have the extension .data
|
||||||
next if ($file !~ /^.*[\._]\d+\.data$/);
|
next if ($file !~ /^.*[\._]\d+\.data$/);
|
||||||
|
Loading…
x
Reference in New Issue
Block a user