Changeset 27540 for branches/pap_delete/ippScripts/scripts/magic_process.pl

Timestamp:

Mar 30, 2010, 5:43:50 PM (16 years ago)

Author:

Paul Price

Message:

Adding log of deletion.

File:

• branches/pap_delete/ippScripts/scripts/magic_process.pl (modified) (1 diff)

branches/pap_delete/ippScripts/scripts/magic_process.pl

@@ -296 +296 @@
             file_check( $output );
         }
+
+        foreach my $file (@deletions) {
+            print "Deleting $file...\n";
+            $ipprc->file_delete($file);
+        }
+
     } else {
         print "Skipping command: $command\n";
     }
 
-    foreach my $file (@deletions) {
-        $ipprc->file_delete($file);
-    }
 }