Changeset 27519 for main/trunk/greenstone2/perllib/plugins/ImageConverter.pm

Timestamp:

2013-05-30T15:20:33+12:00 (11 years ago)

Author:

ak19

Message:

Using the recommended FileUtils.pm equivalents for util.pm subroutines.

File:

• main/trunk/greenstone2/perllib/plugins/ImageConverter.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/plugins/ImageConverter.pm

@@ -33 +33 @@
 
 use util;
+use FileUtils;
 use gsprintf 'gsprintf';
 
@@ -232 +233 @@
     # check the size of the image against minimum size if specified
     my $minimumsize = $self->{'minimumsize'};
-    if (defined $minimumsize && (-s $filename_full_path < $minimumsize)) {
+    if (defined $minimumsize && (&FileUtils::fileSize($filename_full_path) < $minimumsize)) {
         print $outhandle "ImageConverter: \"$filename_full_path\" too small, skipping\n"
         if ($verbosity > 1);
@@ -319 +320 @@
     #overwrite the ones added in BasePlugin
     $doc_obj->set_metadata_element ($section, "FileFormat", $type);
-    my $sys_file_size = -s $filename_full_path;
+    my $sys_file_size = &FileUtils::fileSize($filename_full_path);
     $doc_obj->set_metadata_element ($section, "FileSize",   $sys_file_size); #$image_size);