Changeset 24679

Timestamp:

Jul 6, 2009, 11:33:59 AM (17 years ago)

Author:

bills

Message:

add logfile argument don't print newline if exposure was skipped

File:

• trunk/tools/ipp_apply_burntool.pl (modified) (5 diffs)

trunk/tools/ipp_apply_burntool.pl

@@ -20 +20 @@
 use Pod::Usage qw( pod2usage );
 
-my ( $class_id, $dateobs_begin, $dateobs_end, $skip_burned, $dbname, $verbose, $save_temps);
+my ( $class_id, $dateobs_begin, $dateobs_end, $skip_burned, $dbname, $logfile, $verbose, $save_temps);
 GetOptions(
     'class_id=s'        => \$class_id, # chip identifier
@@ -26 +26 @@
     'dateobs_end=s'     => \$dateobs_end, # exposure date/time range stop
     'dbname|d=s'        => \$dbname, # Database name
+    'logfile=s'         => \$logfile,
     'skip_burned'       => \$skip_burned,   # Print to stdout
     'verbose'           => \$verbose,   # Print to stdout
@@ -86 +87 @@
 # IPP configuration (including nebulous)
 my $ipprc = PS::IPP::Config->new() or my_die("Unable to set up");
+
+$ipprc->redirect_output($logfile) if $logfile;
 
 my $Nfiles = @files;
@@ -172 +175 @@
             &my_die("failed to update imfile");
         }
+        print "\n";
     }
     # save the artifact file for the next image
@@ -179 +183 @@
         $prevFileOpt = "infits=$artImfileReal";
     }
-    print "\n";
 }