Index: trunk/ippScripts/scripts/ipp_cleanup.pl
===================================================================
--- trunk/ippScripts/scripts/ipp_cleanup.pl	(revision 18934)
+++ trunk/ippScripts/scripts/ipp_cleanup.pl	(revision 18994)
@@ -143,4 +143,28 @@
 }
 
+# choice of files to delete depends on the stage
+if ($stage eq "camera") {
+    # this stage uses 'camtool'
+    my $camtool = can_run('camtool') or die "Can't find camtool";
+
+    # Get list of component imfiles
+    # XXX may need a different my_die for each stage
+    my $imfiles;                      # Array of component files
+    my $command = "$camtool -pendingcleanupexp -cam_id $stage_id"; # Command to run
+    $command .= " -dbname $dbname" if defined $dbname;
+    my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) = run(command => $command, verbose => $verbose);
+    unless ($success) {
+        $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
+        &my_die("Unable to perform camtool: $error_code", "cam", $stage_id, $error_code);
+    }
+    my $metadata = $mdcParser->parse(join "", @$stdout_buf) or
+        &my_die("Unable to parse metadata config doc", "cam", $stage_id, $PS_EXIT_PROG_ERROR);
+
+    exit 0;
+}
+
+# fake : faketool : -pendingcleanupimfile (loop over imfiles)
+# warp : warptool : -pendingcleanupskyfile (loop over skyfiles)
+
 die "unknown stage for ipp_cleanup.pl\n";
 exit 1;