From 83e7b37b1eb45c61f5fd784c0e59cbeb31a874af Mon Sep 17 00:00:00 2001
From: sergiotarxz <sergiotarxz@posteo.net>
Date: Thu, 4 May 2023 00:32:10 +0200
Subject: [PATCH] Fixing previews again.

---
 lib/BurguillosInfo/Posts.pm | 28 +++++++++++++++++-----------
 1 file changed, 17 insertions(+), 11 deletions(-)

diff --git a/lib/BurguillosInfo/Posts.pm b/lib/BurguillosInfo/Posts.pm
index 200d163..772ca78 100644
--- a/lib/BurguillosInfo/Posts.pm
+++ b/lib/BurguillosInfo/Posts.pm
@@ -233,6 +233,7 @@ sub _AttachImageSVG {
     my $svg   = shift;
     my $image = shift;
     $image = $PUBLIC_DIR->child( './' . $image );
+    path($image = $self->_toPng($image));
     my ( $stdout, $stderr, $error ) = capture {
         system qw/identify -format "%wx%h"/, $image;
     };
@@ -259,7 +260,6 @@ sub _AttachImageSVG {
         system qw/file --mime-type/, $image;
     };
     my ($format) = $output =~ /(\S+)$/;
-    say $format;
     $svg->image(
         x      => $x,
         y      => $y,
@@ -270,19 +270,23 @@ sub _AttachImageSVG {
     return $y + $height + 50;
 }
 
+sub _toPng($self, $image) {
+    if ($image =~ /\.\w+$/) {
+        my $new_image = $image =~ s/\.\w+$/.generated.png/r;
+        say $new_image;
+        if (!-e $new_image) {
+            system 'convert', "$image", "$new_image";
+        }
+        $image = $new_image;
+    }
+    return path($image);
+}
+
 sub _GenerateSVGPostPreview {
     my $self    = shift;
     my $title   = shift;
     my $content = shift;
     my $image   = shift;
-    if ($image =~ /\.jpe?g$/) {
-        my $new_image = $image =~ s/\.jpe?g$/.generated.png/r;
-        my $dir = 'public';
-        if (!-e $new_image) {
-            system 'convert', "$dir/$image", "$dir/$new_image";
-        }
-        $image = $new_image;
-    }
     my @content = @$content;
     my $svg     = SVG->new( width => $SVG_WIDTH, height => $SVG_HEIGHT );
     $svg->rect(
@@ -308,13 +312,15 @@ sub _GenerateSVGPostPreview {
         }
     );
 
+    my $burguillos_logo_png = path($self->_toPng($BURGUILLOS_LOGO));
+    say ''.$burguillos_logo_png;
     $group->image(
         x      => 10,
         y      => 5,
         width  => 40,
         height => 40,
-        -href  => 'data:image/webp;base64,'
-          . encode_base64( $BURGUILLOS_LOGO->slurp )
+        -href  => 'data:image/png;base64,'
+          . encode_base64( $burguillos_logo_png->slurp )
     );
     $group->text(
         x     => 60,