Revision 86dcebf0
Von Bernd Bleßmann vor etwa 3 Jahren hinzugefügt
| SL/Controller/File.pm | ||
|---|---|---|
| 8 | 8 |
|
| 9 | 9 |
use utf8; |
| 10 | 10 |
use Encode qw(decode); |
| 11 |
use English qw( -no_match_vars ); |
|
| 11 | 12 |
use URI::Escape; |
| 12 | 13 |
use Cwd; |
| 13 | 14 |
use DateTime; |
| 14 | 15 |
use File::stat; |
| 16 |
use File::Slurp qw(slurp); |
|
| 15 | 17 |
use File::Spec::Unix; |
| 16 | 18 |
use File::Spec::Win32; |
| 17 | 19 |
use File::MimeInfo::Magic; |
| ... | ... | |
| 29 | 31 |
use SL::Helper::CreatePDF qw(:all); |
| 30 | 32 |
use SL::Locale::String; |
| 31 | 33 |
use SL::SessionFile; |
| 34 |
use SL::SessionFile::Random; |
|
| 32 | 35 |
use SL::File; |
| 33 |
use SL::Controller::Helper::ThumbnailCreator qw(file_probe_image_type); |
|
| 36 |
use SL::Controller::Helper::ThumbnailCreator qw(file_probe_image_type file_probe_type);
|
|
| 34 | 37 |
|
| 35 | 38 |
use constant DO_DELETE => 0; |
| 36 | 39 |
use constant DO_UNIMPORT => 1; |
| ... | ... | |
| 393 | 396 |
} |
| 394 | 397 |
$self->files(\@files); |
| 395 | 398 |
|
| 399 |
$_->{thumbnail} = _create_thumbnail($_) for @files;
|
|
| 400 |
|
|
| 396 | 401 |
if($self->object_type eq 'shop_image'){
|
| 397 | 402 |
$self->js |
| 398 | 403 |
->run('kivi.ShopPart.show_images', $self->object_id)
|
| ... | ... | |
| 601 | 606 |
return @sources; |
| 602 | 607 |
} |
| 603 | 608 |
|
| 609 |
# ignores all errros |
|
| 610 |
# todo: cache thumbs? |
|
| 611 |
sub _create_thumbnail {
|
|
| 612 |
my ($file) = @_; |
|
| 613 |
|
|
| 614 |
my $filename; |
|
| 615 |
if (!eval { $filename = $file->get_file(); 1; }) {
|
|
| 616 |
$::lxdebug->message(LXDebug::WARN(), "SL::File::_create_thumbnail get_file failed: " . $EVAL_ERROR); |
|
| 617 |
return; |
|
| 618 |
} |
|
| 619 |
|
|
| 620 |
# Workaround for pfds which are not handled by file_probe_type. |
|
| 621 |
# Maybe use mime info stored in db? |
|
| 622 |
my $mime_type = File::MimeInfo::Magic::magic($filename); |
|
| 623 |
if ($mime_type =~ m{pdf}) {
|
|
| 624 |
$filename = _convert_pdf_to_png($filename); |
|
| 625 |
} |
|
| 626 |
return if !$filename; |
|
| 627 |
|
|
| 628 |
my $content; |
|
| 629 |
if (!eval { $content = slurp $filename; 1; }) {
|
|
| 630 |
$::lxdebug->message(LXDebug::WARN(), "SL::File::_create_thumbnail slurp failed: " . $EVAL_ERROR); |
|
| 631 |
return; |
|
| 632 |
} |
|
| 633 |
|
|
| 634 |
my $ret; |
|
| 635 |
if (!eval { $ret = file_probe_type($content); 1; }) {
|
|
| 636 |
$::lxdebug->message(LXDebug::WARN(), "SL::File::_create_thumbnail file_probe_type failed: " . $EVAL_ERROR); |
|
| 637 |
return; |
|
| 638 |
} |
|
| 639 |
|
|
| 640 |
# file_probe_type returns a hash ref with thumbnail info and content |
|
| 641 |
# or an error message |
|
| 642 |
if ('HASH' ne ref $ret) {
|
|
| 643 |
$::lxdebug->message(LXDebug::WARN(), "SL::File::_create_thumbnail file_probe_type returned an error: " . $ret); |
|
| 644 |
return; |
|
| 645 |
} |
|
| 646 |
|
|
| 647 |
return $ret; |
|
| 648 |
} |
|
| 649 |
|
|
| 650 |
sub _convert_pdf_to_png {
|
|
| 651 |
my ($filename) = @_; |
|
| 652 |
|
|
| 653 |
my $sfile = SL::SessionFile::Random->new(); |
|
| 654 |
|
|
| 655 |
my $command = 'pdftoppm -singlefile -scale-to 64 -png' . ' ' . $filename . ' ' . $sfile->file_name; |
|
| 656 |
|
|
| 657 |
if (system($command) == -1) {
|
|
| 658 |
$::lxdebug->message(LXDebug::WARN(), "SL::File::_convert_pdf_to_png: system call failed: " . $ERRNO); |
|
| 659 |
return; |
|
| 660 |
} |
|
| 661 |
if ($CHILD_ERROR) {
|
|
| 662 |
$::lxdebug->message(LXDebug::WARN(), "SL::File::_convert_pdf_to_png: pdftoppm failed with error code: " . ($CHILD_ERROR >> 8)); |
|
| 663 |
return; |
|
| 664 |
} |
|
| 665 |
|
|
| 666 |
return $sfile->file_name . '.png'; |
|
| 667 |
} |
|
| 668 |
|
|
| 604 | 669 |
1; |
| 605 | 670 |
|
| 606 | 671 |
__END__ |
Auch abrufbar als: Unified diff
Dateimanagement: Thumbnails erzeugen und anzeigen