Changeset 28483 for branches/pap/ippScripts/scripts/background_warp.pl

Timestamp:

Jun 24, 2010, 2:37:26 PM (16 years ago)

Author:

Paul Price

Message:

Get bgtool -addwarp to play nice.

File:

• branches/pap/ippScripts/scripts/background_warp.pl (modified) (2 diffs)

branches/pap/ippScripts/scripts/background_warp.pl

@@ -174 +174 @@
     &my_die("Couldn't find expected output file: $out_stats", $warp_bg_id, $skycell_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($out_stats);
 
-    my $command = "$ppStatsFromMetadata $out_stats - WARP_SKYCELL";
+    my $command = "$ppStatsFromMetadata $out_stats - BACKGROUND_WARP";
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         run(command => $command, verbose => $verbose);
@@ -229 +229 @@
     warn($msg);
     if (defined $warp_bg_id and defined $skycell_id and not $no_update) {
-        my $command = "$bgtool -addwarped";
+        my $command = "$bgtool -addwarp";
         $command .= " -warp_bg_id $warp_bg_id";
         $command .= " -skycell_id $skycell_id";