Changeset 32871

Timestamp:

Dec 6, 2011, 10:17:00 AM (15 years ago)

Author:

bills

Message:

use $ipprc->redirect_to_logfile to avoid dead files

File:

• tags/ipp-20111110/ippScripts/scripts/magic_destreak.pl (modified) (2 diffs, 1 prop)

tags/ipp-20111110/ippScripts/scripts/magic_destreak.pl

@@ -99 +99 @@
 
 my $ipprc = PS::IPP::Config->new( $camera ) or my_die( "Unable to set up", $magic_ds_id, $component, $PS_EXIT_CONFIG_ERROR ); # IPP configuration
-$ipprc->redirect_output($logfile) or my_die( "Unable to redirect output", $magic_ds_id, $component, $PS_EXIT_SYS_ERROR ) if $logfile;
+
+if ($logfile) {
+    $ipprc->redirect_to_logfile($logfile) or my_die( "Unable to redirect output", $magic_ds_id, $component, $PS_EXIT_SYS_ERROR );
+    print "\n\n";
+    print "Continuing script $0 on $host at $date\n\n";
+}
 
 $cam_reduction = 'DEFAULT' if !$cam_reduction or ($cam_reduction eq 'NULL');
@@ -252 +257 @@
                 foreach my $skycell (@$skycells) {
                     my $skycell_uri;
+                    $skycell->{quality} = undef;
                     if ($skycell->{data_state} eq "full" and $skycell->{quality} == 0) {
                         $skycell_uri = $ipprc->filename("PPSUB.OUTPUT", $skycell->{path_base});