Changeset 24601 for main/trunk/greenstone2/bin/script

Timestamp:

2011-09-15T18:28:42+12:00 (13 years ago)

Author:

ak19

Message:

Dr Bainbridge suggested corrections to commits of revision 24600: 1. gs-magick.pl: close call on Pipe only if successfully opened. 2. Command_status always needs to be shifted and turned into its signed value for display in convertutil.pm. 3. giget calls to imagemagick more eficient: doesn't call identify twice, but just once since the exit code and output to STDOUT can both be inspected after just one call. Moreover, exit code needed to be tested for equality against 0, not whether it is greater than 0, so no shifting and converting to signed value required.

File:

• main/trunk/greenstone2/bin/script/gs-magick.pl (modified) (1 diff)

main/trunk/greenstone2/bin/script/gs-magick.pl

@@ -128 +128 @@
     #my $result = `$magick_cmd`; # This way will trap STDOUT into local variable
 
+    my $result = "";
     if (!open(PIN, "$magick_cmd |")) {
     print STDERR "*** Can't run $magick_cmd. Error was: $!";
+    } else {
+    while (defined (my $imagick_output_line = <PIN>)) {
+        $result = $result.$imagick_output_line;
+    }
+    close(PIN);
     }
-    my $result = "";
-    while (defined (my $imagick_output_line = <PIN>)) {
-    $result = $result.$imagick_output_line;
-    }
-    close(PIN);
    
     # Perl Special Variables http://www.kichwa.com/quik_ref/spec_variables.html