Fix pb with filename encoding

This commit is contained in:
Luc Didry
2014-02-14 14:55:35 +01:00
parent b6c616746c
commit 55527bfd14
2 changed files with 3 additions and 1 deletions
+1
View File
@@ -3,3 +3,4 @@ requires 'Data::Validate::URI';
requires 'Mojolicious::Plugin::I18N';
requires 'ORLite';
requires 'MIME::Types';
requires 'Text::Unidecode';
+2 -1
View File
@@ -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);