Revision 860c8bbe
Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt
| SL/Presenter/EmailJournal.pm | ||
|---|---|---|
|
use strict;
|
||
|
|
||
|
use SL::Presenter::EscapedText qw(escape is_escaped);
|
||
|
use SL::Presenter::Tag qw(link_tag img_tag html_tag);
|
||
|
use SL::Presenter::Tag qw(link_tag html_tag div_tag);
|
||
|
use SL::Locale::String qw(t8);
|
||
|
use SL::SessionFile::Random;
|
||
|
use SL::DB::EmailJournalAttachment;
|
||
| ... | ... | |
|
my ($attachment_or_id, %params) = @_;
|
||
|
|
||
|
if (! $attachment_or_id) {
|
||
|
return is_escaped(html_tag('div', '', id => 'attachment_preview'));
|
||
|
}
|
||
|
my $attachment = ref $attachment_or_id ? $attachment_or_id
|
||
|
: SL::DB::EmailJournalAttachment->new(id => $attachment_or_id)->load;
|
||
|
|
||
|
# clean up mime_type
|
||
|
my $mime_type = $attachment->mime_type;
|
||
|
$mime_type =~ s/;.*//;
|
||
|
|
||
|
# parse to img tag
|
||
|
my $image_tags = '';
|
||
|
if ($mime_type =~ m{^image/}) {
|
||
|
my $image_content = $attachment->content;
|
||
|
my $img_base64 = "data:$mime_type;base64," . MIME::Base64::encode_base64($image_content);
|
||
|
my $image_tag = img_tag(
|
||
|
src => $img_base64,
|
||
|
alt => escape($attachment->name),
|
||
|
%params);
|
||
|
$image_tags .= $image_tag;
|
||
|
} elsif ($mime_type =~ m{^application/pdf}) {
|
||
|
my $pdf_content = $attachment->content;
|
||
|
my $session_file = SL::SessionFile::Random->new(mode => 'w');
|
||
|
$session_file->fh->print($pdf_content);
|
||
|
$session_file->fh->close;
|
||
|
my $image_size = 2048;
|
||
|
|
||
|
my $file_name = $session_file->file_name;
|
||
|
|
||
|
# files are created in session_files folder
|
||
|
my $command = 'pdftoppm -forcenum -scale-to '
|
||
|
. $image_size . ' -png' . ' '
|
||
|
. $file_name . ' ' . $file_name;
|
||
|
my $ans = system($command);
|
||
|
if ($ans != 0) {
|
||
|
return;
|
||
|
}
|
||
|
|
||
|
|
||
|
my @image_file_names = glob($file_name . '-*.png');
|
||
|
unlink($file_name);
|
||
|
|
||
|
my $image_count = scalar @image_file_names;
|
||
|
my $counter = 1;
|
||
|
foreach my $image_file_name (@image_file_names) {
|
||
|
my $image_file = SL::SessionFile->new($image_file_name, mode => 'r');
|
||
|
my $file_size = -s $image_file->file_name;
|
||
|
my $image_content;
|
||
|
read($image_file->fh, $image_content, $file_size);
|
||
|
my $img_base64 = 'data:image/png;base64,' . MIME::Base64::encode_base64($image_content);
|
||
|
my $name_ending = $image_count > 1 ? "-($counter/$image_count)" : '';
|
||
|
my $image_tag = img_tag(
|
||
|
src => $img_base64,
|
||
|
alt => escape($attachment->name) . $name_ending,
|
||
|
%params);
|
||
|
unlink($image_file->file_name);
|
||
|
$image_tags .= $image_tag;
|
||
|
}
|
||
|
return is_escaped(div_tag('', id => 'attachment_preview'));
|
||
|
}
|
||
|
my $attachment_id = ref $attachment_or_id ? $attachment_or_id->id
|
||
|
: $attachment_or_id;
|
||
|
|
||
|
my $attachment_preview = html_tag('div', $image_tags, id => 'attachment_preview');
|
||
|
require SL::Controller::EmailJournal;
|
||
|
my $src_url = SL::Controller::EmailJournal->new->url_for(
|
||
|
action => 'show_attachment',
|
||
|
attachment_id => $attachment_id
|
||
|
);
|
||
|
|
||
|
$params{style} .= "; display:flex; resize:both; overflow:hidden; padding-bottom:5px";
|
||
|
my $attachment_preview = div_tag(
|
||
|
html_tag('iframe', '', src => $src_url,
|
||
|
width => "100%", height => '100%',
|
||
|
"flex-grow" => '1',
|
||
|
),
|
||
|
id => 'attachment_preview',
|
||
|
%params
|
||
|
);
|
||
|
return is_escaped($attachment_preview);
|
||
|
}
|
||
|
|
||
Auch abrufbar als: Unified diff
EmailJournal: Anhangsvorschau mit kopierbaren Text