Changeset 16308 for trunk/ippScripts/scripts/camera_exp.pl

Timestamp:

Feb 5, 2008, 11:47:19 AM (18 years ago)

Author:

Paul Price

Message:

Added verbose flags to scripts.

File:

• trunk/ippScripts/scripts/camera_exp.pl (modified) (9 diffs)

trunk/ippScripts/scripts/camera_exp.pl

@@ -37 +37 @@
 use Pod::Usage qw( pod2usage );
 
-my ($exp_tag, $cam_id, $camera, $outroot, $recipe, $dbname, $reduction, $dvodb, $no_update, $no_op);
+my ( $exp_tag, $cam_id, $camera, $outroot, $recipe, $dbname, $reduction, $dvodb, $verbose, $no_update,
+     $no_op );
 GetOptions(
            'exp_tag=s'          => \$exp_tag, # Exposure identifier
@@ -47 +48 @@
            'reduction=s'       => \$reduction, # Reduction class                       
            'dvodb|w=s'         => \$dvodb,  # output DVO database
+           'verbose'           => \$verbose,   # Print to stdout
            'no-update'         => \$no_update, # Update the database?
            'no-op'             => \$no_op, # Don't do any operations?
@@ -129 +131 @@
     $command .= " -dbname $dbname" if defined $dbname;
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => 1);
+        run(command => $command, verbose => $verbose);
     unless ($success) {
         $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
@@ -196 +198 @@
         my $command = "$ppImage -list $list1Name $outroot -recipe PPIMAGE $recipe1"; # Command to run
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-            run(command => $command, verbose => 1);
+            run(command => $command, verbose => $verbose);
         unless ($success) {
             $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
@@ -208 +210 @@
         my $command = "$ppImage -list $list2Name $outroot -recipe PPIMAGE $recipe2"; # Command to run
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-            run(command => $command, verbose => 1);
+            run(command => $command, verbose => $verbose);
         unless ($success) {
             $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
@@ -222 +224 @@
         my $command = "$ppConfigDump -camera $camera -dump-recipe PSASTRO -";
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-            run(command => $command, verbose => 1);
+            run(command => $command, verbose => $verbose);
         unless ($success) {
             $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
@@ -244 +246 @@
             $command .= " -tracedest $traceDest -log $logDest";
             my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-                run(command => $command, verbose => 1);
+                run(command => $command, verbose => $verbose);
             unless ($success) {
                 $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
@@ -274 +276 @@
 
             my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-                run(command => $command, verbose => 1);
+                run(command => $command, verbose => $verbose);
             unless ($success) {
                 $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
@@ -293 +295 @@
 unless ($no_update) {
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $fpaCommand, verbose => 1);
+        run(command => $fpaCommand, verbose => $verbose);
     unless ($success) {
         $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);