sergiotarxz/burguillos.info
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Ensuring jpeg is never used.

Browse Source
This commit is contained in:
sergiotarxz 2023-05-03 18:45:51 +02:00
parent 1d838f0e5d
commit 02682eb20b
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/BurguillosInfo/Posts.pm
View File

@ -259,6 +259,7 @@ sub _AttachImageSVG {
system qw/file --mime-type/, $image; system qw/file --mime-type/, $image;
}; };
my ($format) = $output =~ /(\S+)$/; my ($format) = $output =~ /(\S+)$/;
say $format;
$svg->image( $svg->image(
x => $x, x => $x,
y => $y, y => $y,
@ -274,6 +275,14 @@ sub _GenerateSVGPostPreview {
my $title = shift; my $title = shift;
my $content = shift; my $content = shift;
my $image = 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 @content = @$content;
my $svg = SVG->new( width => $SVG_WIDTH, height => $SVG_HEIGHT ); my $svg = SVG->new( width => $SVG_WIDTH, height => $SVG_HEIGHT );
$svg->rect( $svg->rect(