From 55527bfd14836016f1781df2d732266e9a441692 Mon Sep 17 00:00:00 2001
From: Luc Didry <luc@didry.org>
Date: Fri, 14 Feb 2014 14:55:35 +0100
Subject: [PATCH] Fix pb with filename encoding

---
 cpanfile     | 1 +
 lib/Lutim.pm | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/cpanfile b/cpanfile
index 4219d88..df7bc12 100644
--- a/cpanfile
+++ b/cpanfile
@@ -3,3 +3,4 @@ requires 'Data::Validate::URI';
 requires 'Mojolicious::Plugin::I18N';
 requires 'ORLite';
 requires 'MIME::Types';
+requires 'Text::Unidecode';
diff --git a/lib/Lutim.pm b/lib/Lutim.pm
index e6f5a09..2448629 100644
--- a/lib/Lutim.pm
+++ b/lib/Lutim.pm
@@ -5,6 +5,7 @@ use MIME::Types 'by_suffix';
 use Mojo::Util qw(quote);
 use Mojo::JSON;;
 use Digest::file qw(digest_file_hex);
+use Text::Unidecode;
 
 # This method will run once at server start
 sub startup {
@@ -124,7 +125,7 @@ sub startup {
                     my @records = LutimModel::Lutim->select('WHERE path IS NULL LIMIT 1');
                     if (scalar(@records)) {
                         # Save file and create record
-                        my $filename = $upload->filename;
+                        my $filename = unidecode($upload->filename);
                         my $ext      = ($filename =~ m/([^.]+)$/)[0];
                         my $path     = 'files/'.$records[0]->short.'.'.$ext;
                         $upload->move_to($path);