mirror of
https://framagit.org/fiat-tux/hat-softwares/lutim.git
synced 2026-08-12 03:43:12 +02:00
Fix pb with filename encoding
This commit is contained in:
@@ -3,3 +3,4 @@ requires 'Data::Validate::URI';
|
||||
requires 'Mojolicious::Plugin::I18N';
|
||||
requires 'ORLite';
|
||||
requires 'MIME::Types';
|
||||
requires 'Text::Unidecode';
|
||||
|
||||
+2
-1
@@ -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);
|
||||
|
||||
Reference in New Issue
Block a user