Changeset 27164 for trunk/ippScripts/scripts/lossy_compress_imfile.pl

Timestamp:

Mar 3, 2010, 2:57:11 PM (16 years ago)

Author:

watersc1

Message:

Dumb typo I introduced yesterday after testing. Ready for test #5 for today.

File:

• trunk/ippScripts/scripts/lossy_compress_imfile.pl (modified) (3 diffs)

trunk/ippScripts/scripts/lossy_compress_imfile.pl

@@ -127 +127 @@
     &my_die("Couldn't find original file: $uri\n", $exp_id,$exp_name,$class_id,$uri,$PS_EXIT_SYS_ERROR)
         unless($ipprc->file_exists($uri));
+    my $uriReal = $ipprc->file_resolve( $uri );
+    
     my $compUri = $uri . ".fz";
     unless($ipprc->file_exists($compUri)) {
         &my_die("Couldn't find compressed version of the file: $compUri\n", 
                 $exp_id,$exp_name,$class_id,$uri,$PS_EXIT_SYS_ERROR);
+
         # If that die is removed, this will compress things as well.
         &my_die("Output compressed file already exists: $compUri\n", 
@@ -142 +145 @@
         unless ($success) {
             $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
-            &my_die("Unable to compress file: $uri -> $compUri: $error_code", $exp_id,$exp_name,$class_id,$uri, $PS_EXIT_SYS_ERROR);
+            &my_die("Unable to compress file: $uri -> $compUri: $error_code", 
+                    $exp_id,$exp_name,$class_id,$uri, $PS_EXIT_SYS_ERROR);
         }
     }
@@ -179 +183 @@
         }
         # remove original version
-#    $neb->delete($uri);
+    $neb->delete($compUri);
     }
     exit(0);