Changeset 32749

Timestamp:

Nov 22, 2011, 10:23:15 AM (15 years ago)

Author:

bills

Message:

make extaction of the video cube optional

File:

• trunk/ippScripts/scripts/videophot_process.pl (modified) (5 diffs)

trunk/ippScripts/scripts/videophot_process.pl

@@ -37 +37 @@
 }
 my ($vp_id, $camera, $outroot, $dest_id, $dbname, $verbose, $no_update, $no_op, $redirect, $save_temps);
-my ($product, $ds_dbname, $ds_dbhost);
+my ($product, $save_video_cube, $ds_dbname, $ds_dbhost);
 
 GetOptions(
@@ -45 +45 @@
     'dest_id=s'         => \$dest_id,
     'product=s'         => \$product,
+    'save-video-cube'   => \$save_video_cube,
     'ds_dbname=s'       => \$ds_dbname,
     'ds_dbhost=s'       => \$ds_dbhost,
@@ -141 +142 @@
         }
         # dump the video cell and the video table to a file
-        unless ($no_op) {
+        if ($save_video_cube) {
             my $output = $path_base . ".fits";
             my $extname = "$cell_id";
             my $command = "$dumpvideo $uri $extname $output -includetable";
-            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 dumpvideo: $error_code", $vp_id, $error_code);
+            unless ($no_op) {
+                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 dumpvideo: $error_code", $vp_id, $error_code);
+                }
+            } else {
+                print "Not executing: $command\n";
             }
-        } else {
-            print "Not executing: $command\n";
         }
 
@@ -193 +196 @@
         print $reglist "$logDest|||text|\n";
     }
-    my @exts = qw( vpt fits );
-    my @types = qw( table fits );
+    # list of extensions and types for files to distribute
+    my @exts = qw( vpt );
+    my @types = qw( table );
+    if ($save_video_cube) {
+        push @exts, 'fits';
+        push @types, 'fits';
+    }
     foreach my $cell (@$cells) {
         my $path_base = $cell->{path_base};
@@ -203 +211 @@
             print $reglist "$file|||$type|\n";
         }
-            
     }
     close $reglist or &my_die("failed to close $reglistName", $vp_id, $PS_EXIT_UNKNOWN_ERROR);