Changeset 24600 for main/trunk/greenstone2/perllib/giget.pm

Timestamp:

2011-09-15T16:31:11+12:00 (13 years ago)

Author:

ak19

Message:

Added gs-magick.pl script which will set the environment for ImageMagick (including LD_LIBRARY_PATH) before launching the requested ImageMagick command and arguments. By setting the Imagemagick environment from this script we ensure that the modified env variables don't create conflicts with libraries needed for normal linux execution. All the Greenstone files in the *binary* that made direct calls to imagemagick now go through this script. The affected files are perl files in bin/script and perllib and Gatherer.java of GLI. (wvware has files that test for imagemagick during compilation stage, which is independent of our changs which are only for users running imagemagick from a GS binary.) The final problems were related to how different perl files made use of the return values and the output of running their imagemagick command: they would query the 127 and/or and/or run the command with backtick operators to get the output printed to STDOUT. By inserting an intermediate gs-magick.pl file, needed to ensure that the exit code stored in 127 would at least be passed on correctly, as is necessary when testing the exit code against non-zero values or greater/less than zero (instead of comparing them with equals/not equal to 0). To get the correct exit code as emitted by imagemagick, calling code needs to shift bits in 127 and converting it to a signed value.

File:

• main/trunk/greenstone2/perllib/giget.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/giget.pm

@@ -1 +1 @@
 use strict;
+use util;
 
 
@@ -150 +151 @@
         unlink $output_fname;
         }
-        elsif (system("identify \"$output_fname\"") > 0 ) {
-        print STDERR "**** NOT JPEG: output_fname \n";
-        unlink $output_fname;
-        }
         else {
-
-        my $command = "identify \"$output_fname\" 2>&1";
-        my $result = `$command`;
-
-        my $type =   'unknown';
-        my $width =  'unknown';
-        my $height = 'unknown';
-        
-        my $image_safe = quotemeta $output_fname;
-        if ($result =~ /^$image_safe (\w+) (\d+)x(\d+)/) {
-            $type = $1;
-            $width = $2;
-            $height = $3;
+        # need to shift the $? exit code returned by system() by 8 bits and
+        # then convert it to a signed value to work out whether it is indeed > 0
+        my $status = system("\"".&util::get_perl_exec()."\" -S gs-magick.pl identify \"$output_fname\"");
+        $status >>= 8;
+        $status = (($status & 0x80) ? -(0x100 - ($status & 0xFF)) : $status);
+
+        if($status > 0 ) {
+            print STDERR "**** NOT JPEG: output_fname \n";
+            unlink $output_fname;
+        } 
+        else {
+            my $command = "\"".&util::get_perl_exec()."\" -S gs-magick.pl identify \"$output_fname\" 2>&1";
+            my $result = `$command`;
+            
+            my $type =   'unknown';
+            my $width =  'unknown';
+            my $height = 'unknown';
+            
+            my $image_safe = quotemeta $output_fname;
+            if ($result =~ /^$image_safe (\w+) (\d+)x(\d+)/) {
+            $type = $1;
+            $width = $2;
+            $height = $3;
+            }
+            
+            my $imagick_cmd = "\"".&util::get_perl_exec()."\" -S gs-magick.pl";
+            
+            if (($width ne "unknown") && ($height ne "unknown")) {
+            if (($width>200) || ($height>200)) {
+                `$imagick_cmd convert \"$output_fname\" -resize 200x200 /tmp/x.jpg`;
+                `/bin/mv /tmp/x.jpg \"$output_fname\"`;
+            }
+            }
+            $c++;
         }
-
-        if (($width ne "unknown") && ($height ne "unknown")) {
-            if (($width>200) || ($height>200)) {
-            `convert \"$output_fname\" -resize 200x200 /tmp/x.jpg`;
-            `/bin/mv /tmp/x.jpg \"$output_fname\"`;
-            }
-        }
-        $c++;
         }