tris/recoll
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

conform to filter error usual protocol

Browse Source
This commit is contained in:
dockes 2008-10-09 06:31:42 +00:00
parent 2462b079fa
commit 7731c6430b
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/filters/rclimg
View File

@ -1,5 +1,5 @@
#! /usr/bin/perl -w #! /usr/bin/perl -w
# @(#$Id: rclimg,v 1.2 2007-10-02 13:56:42 dockes Exp $ (C) 2007 Cedric Scott # @(#$Id: rclimg,v 1.3 2008-10-09 06:31:42 dockes Exp $ (C) 2007 Cedric Scott
####################################################### #######################################################
# This program is free software; you can redistribute it and/or modify # This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by # it under the terms of the GNU General Public License as published by
@ -58,7 +58,16 @@ sub xapianTag {
# #
# start here # start here
# #
use Image::ExifTool qw(:Public);
# JFD: replaced the "use" call with a runtime load with error checking,
# for compat with the missing filter detection code.
#use Image::ExifTool qw(:Public);
eval {require Image::ExifTool; Image::ExifTool->import(qw(:Public));};
if ($@) {
print STDERR "RECFILTERROR HELPERNOTFOUND Perl::Image::ExifTool\n";
exit(127);
}
$imageFile = shift; $imageFile = shift;
$imageFile = '-' if $imageFile eq ''; $imageFile = '-' if $imageFile eq '';