Revision e060d53e
Von Jan Büren vor etwa 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