Shop: Erweiterung für Dateityp im Dateinamen auf letzten . begrenzen

Hilft zwar nicht bei .tar.gz, aber erstmal besser als vorher

diff --git a/SL/DB/ShopPart.pm b/SL/DB/ShopPart.pm
index 1df77fd8982f92efe895762bb48dae3b68ad7c2b..190aa2b1485fec98281168aaec7892c56262affe 100644 (file)
--- a/SL/DB/ShopPart.pm
+++ b/SL/DB/ShopPart.pm
@@ -57,7 +57,9 @@ sub get_images {
   my @upload_img = ();
   foreach my $img (@{ $images }) {
     my $file               = SL::File->get(id => $img->file->id );
   my @upload_img = ();
   foreach my $img (@{ $images }) {
     my $file               = SL::File->get(id => $img->file->id );

-    my ($path, $extension) = (split /\./, $file->file_name);
+    # no good: split("\." , 202.220.pdf) -> invaild extension 220
+    # file->extension should be in SL::File, a valid extension may also be 'tar.gz'
+    my ($path, $extension) = split(/\.([^\.]+)$/, $file->file_name);

     my $content            = File::Slurp::read_file($file->get_file);
     my $temp ={ ( link        => 'data:' . $file->mime_type . ';base64,' . MIME::Base64::encode($content, ""), #$content, # MIME::Base64::encode($content),
                   description => $img->file->title,
     my $content            = File::Slurp::read_file($file->get_file);
     my $temp ={ ( link        => 'data:' . $file->mime_type . ';base64,' . MIME::Base64::encode($content, ""), #$content, # MIME::Base64::encode($content),
                   description => $img->file->title,