Changeset 31083 for branches/eam_branches/ipp-20110213/ippScripts/scripts/ipp_cleanup.pl

Timestamp:

Mar 30, 2011, 9:36:02 AM (15 years ago)

Author:

eugene

Message:

merging changes from trunk

File:

• branches/eam_branches/ipp-20110213/ippScripts/scripts/ipp_cleanup.pl (modified) (2 diffs)

branches/eam_branches/ipp-20110213/ippScripts/scripts/ipp_cleanup.pl

@@ -130 +130 @@
         $status = 0 unless defined $path_base and $path_base ne "NULL";
 
+        my $poor_quality = $imfile->{quality} > 0;
+
         # don't clean up unless the data needed to update is available
         # modes goto_purged and goto_scrubbed will remove files even if the config is non-existent
         # goto_scrubbed now requires the config file to not exist.
-        if ($status) {
+        if ($status and !$poor_quality) {
             if ($mode eq "goto_cleaned") {
                 my $config_file = $ipprc->filename("PPIMAGE.CONFIG", $path_base, $class_id);
@@ -1902 +1904 @@
 
     foreach my $file (@$files) {
-        print STDERR "unlinking $stage $stage_id $file";
+        print STDERR "unlinking $stage $stage_id $file\n";
 
         my $error_code = $ipprc->kill_file($file);