Revision faec06a4
Von Jan Büren vor fast 3 Jahren hinzugefügt
SL/DB/ShopPart.pm | ||
---|---|---|
57 | 57 |
my @upload_img = (); |
58 | 58 |
foreach my $img (@{ $images }) { |
59 | 59 |
my $file = SL::File->get(id => $img->file->id ); |
60 |
my ($path, $extension) = (split /\./, $file->file_name); |
|
60 |
# no good: split("\." , 202.220.pdf) -> invaild extension 220 |
|
61 |
# file->extension should be in SL::File, a valid extension may also be 'tar.gz' |
|
62 |
my ($path, $extension) = split(/\.([^\.]+)$/, $file->file_name); |
|
61 | 63 |
my $content = File::Slurp::read_file($file->get_file); |
62 | 64 |
my $temp ={ ( link => 'data:' . $file->mime_type . ';base64,' . MIME::Base64::encode($content, ""), #$content, # MIME::Base64::encode($content), |
63 | 65 |
description => $img->file->title, |
Auch abrufbar als: Unified diff
Shop: Erweiterung für Dateityp im Dateinamen auf letzten . begrenzen
Hilft zwar nicht bei .tar.gz, aber erstmal besser als vorher