Changeset 18994

Timestamp:

Aug 8, 2008, 5:15:33 PM (18 years ago)

Author:

eugene

Message:

adding notes and camera stage

File:

• trunk/ippScripts/scripts/ipp_cleanup.pl (modified) (1 diff)

trunk/ippScripts/scripts/ipp_cleanup.pl

@@ -143 +143 @@
 }
 
+# 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;