Changeset 34680

Timestamp:

Nov 20, 2012, 6:00:56 PM (14 years ago)

Author:

watersc1

Message:

Finished? I need to do testing tomorrow.

File:

• branches/czw_branch/20120906/ippScripts/scripts/regenerate_background.pl (modified) (1 diff)

branches/czw_branch/20120906/ippScripts/scripts/regenerate_background.pl

@@ -184 +184 @@
 ## stack stage
 elsif ($stage eq 'stack') {
-    
-
+    &my_die("--stage_id required for stage stack", $stage, $stage_id, $PS_EXIT_CONFIG_ERROR) if !$stage_id;
+    my $stack_id = $stage_id; # Same as above.  Alias this so I don't make mistakes.
+    
+    # Configuration stuff
+    my $stacktool = can_run('stacktool') or
+        &my_die("Can't find stacktool",$stage,$stage_id,$PS_EXIT_UNKNOWN_ERROR);
+    my $ppStackMedian = can_run('ppStackMedian') or
+        &my_die("Can't find ppStackMedian",$stage,$stage_id,$PS_EXIT_UNKNOWN_ERROR);
+    
+
+    # Get inputs
+    my $imfiles;  # Array of component files
+    my $command = "$stacktool -inputskyfile -stack_id $stack_id";
+    $command .= " -dbname $dbname " if defined $dbname;
+    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 stacktool -inputskyfile",$stage,$stage_id,$error_code);
+    }
+    if (@$stdout_buf == 0) {
+        # Nothing to do;
+    }
+    my $in_md = $mdcParser->parse_list(join "", @$stdout_buf) or
+        &my_die("Unable to parse metadata config doc", $stage, $stage_id, $PS_EXIT_PROG_ERROR);
+    $imfiles  = parse_md_list($in_md) or
+        &my_die("Unable to parse metadata", $stage, $stage_id, $PS_EXIT_PROG_ERROR);
+    
+    my $num = 0;
+    
+    my ($inputMDC_file, $inputMDC_name) = tempfile("/tmp/bkgreg.stack.mdc.${stage_id}.XXXX",
+                                                   UNLINK => !$save_temps);
+    foreach my $imfile (@$imfiles) {
+        if ($imfile->{ignored}) {next; }
+        print $inputMDC_file "INPUT${num}\tMETADATA\n";
+        
+        print $inputMDC_file "\tIMAGE\tSTR\t" . $ipprc->filename( "PSWARP.OUTPUT.BKGMODEL",
+                                                                  $imfile->{path_base} ) . "\n";
+        print $inputMDC_file "\tSOURCES\tSTR\t" . $ipprc->filename( "PSWARP.OUTPUT.SOURCES",
+                                                                    $imfile->{path_base} ) . "\n";
+        print $inputMDC_file "END\n\n";
+        $num++;
+    }
+    close($inputMDC_file);
+    
     my $ppStack_command = "$ppStackMedian -input $inputMDC_name $path_base ";
     $ppStack_command   .= " -recipe PPSTACK STACK -recipe PPSUB STACK -recipe PSPHOT STACK ";