Changeset 33638 for branches/eam_branches/ipp-20111122/ippScripts/scripts/magic_destreak.pl

Timestamp:

Mar 30, 2012, 2:49:37 PM (14 years ago)

Author:

eugene

Message:

merge changes from trunk

File:

• branches/eam_branches/ipp-20111122/ippScripts/scripts/magic_destreak.pl (modified) (3 diffs, 1 prop)

branches/eam_branches/ipp-20111122/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');
@@ -180 +185 @@
 }
 
-my $statsFile = "$outroot/$exp_id.mds.$magic_ds_id.$stage_id.$component.stats";
+# XXX: create a DESTREAK file rule. For now just steal one that will work
+my $error;
+my $statsFile = $ipprc->prepare_output("PSASTRO.STATS", "$outroot/$exp_id.mds.$magic_ds_id.$stage_id.$component", undef, 1, \$error) or &my_die("failed to prepare output for stats", $magic_ds_id, $component, $error);
 
 my $backup_path_base;
@@ -252 +259 @@
                 foreach my $skycell (@$skycells) {
                     my $skycell_uri;
-                    if ($skycell->{data_state} eq "full" and $skycell->{quality} == 0) {
+                    $skycell->{quality} = undef;
+                    # XXXXXXXX remake all skycells to avoid dead instances (ipp064)
+                    if (0 and $skycell->{data_state} eq "full" and $skycell->{quality} == 0) {
                         $skycell_uri = $ipprc->filename("PPSUB.OUTPUT", $skycell->{path_base});
                         my $skycell_id = $skycell->{skycell_id};