Changeset 38010 for trunk/ippScripts/scripts/sc_prepare_stack.pl

Timestamp:

Mar 25, 2015, 5:19:12 PM (11 years ago)

Author:

watersc1

Message:

Stacks need to know not to try and send local copies of warps that they may not have.

File:

• trunk/ippScripts/scripts/sc_prepare_stack.pl (modified) (2 diffs)

trunk/ippScripts/scripts/sc_prepare_stack.pl

@@ -23 +23 @@
 my $remote_hostname = "LANL/Mustang";         # Name of the remote node.
 my $threads_req     = 4;                      # How many threads are we going to use?
+my $have_warps      = 0;                      # Do we have a copy of the warp if we don't find one there?
 
 my $fail_state = "prep_fail";
@@ -156 +157 @@
         my $ipp_disk;
         #  ${remote_root}/tmp/${ipp_disk}
-        (undef,$remote_file) = &uri_to_outputs($warp_path_base . ".fits");
-        ($ipp_disk,undef)    = &uri_convert($warp_path_base . ".fits");
-        print COMPMAP "$remote_file ${remote_root}/tmp/${ipp_disk}\n";
-        (undef,$remote_file) = &uri_to_outputs($warp_path_base . ".wt.fits");
-        ($ipp_disk,undef)    = &uri_convert($warp_path_base . ".wt.fits");
-        print COMPMAP "$remote_file ${remote_root}/tmp/${ipp_disk}\n";
-        (undef,$remote_file) = &uri_to_outputs($warp_path_base . ".mask.fits");
-        ($ipp_disk,undef)    = &uri_convert($warp_path_base . ".mask.fits");
-        print COMPMAP "$remote_file ${remote_root}/tmp/${ipp_disk}\n";
-        (undef,$remote_file) = &uri_to_outputs($warp_path_base . ".cmf");
-        ($ipp_disk,undef)    = &uri_convert($warp_path_base . ".cmf");
-        print COMPMAP "$remote_file ${remote_root}/tmp/${ipp_disk}\n";
-        (undef,$remote_file) = &uri_to_outputs($warp_path_base . ".psf");
-        ($ipp_disk,undef)    = &uri_convert($warp_path_base . ".psf");
-        print COMPMAP "$remote_file ${remote_root}/tmp/${ipp_disk}\n";
+
+        if ($have_warps != 0) { # Check to see if we have a copy, because if we do, then we can send it over if it's missing.
+            (undef,$remote_file) = &uri_to_outputs($warp_path_base . ".fits");
+            ($ipp_disk,undef)    = &uri_convert($warp_path_base . ".fits");
+            print COMPMAP "$remote_file ${remote_root}/tmp/${ipp_disk}\n";
+
+            (undef,$remote_file) = &uri_to_outputs($warp_path_base . ".wt.fits");
+            ($ipp_disk,undef)    = &uri_convert($warp_path_base . ".wt.fits");
+            print COMPMAP "$remote_file ${remote_root}/tmp/${ipp_disk}\n";
+
+            (undef,$remote_file) = &uri_to_outputs($warp_path_base . ".mask.fits");
+            ($ipp_disk,undef)    = &uri_convert($warp_path_base . ".mask.fits");
+            print COMPMAP "$remote_file ${remote_root}/tmp/${ipp_disk}\n";
+
+            (undef,$remote_file) = &uri_to_outputs($warp_path_base . ".cmf");
+            ($ipp_disk,undef)    = &uri_convert($warp_path_base . ".cmf");
+            print COMPMAP "$remote_file ${remote_root}/tmp/${ipp_disk}\n";
+
+            (undef,$remote_file) = &uri_to_outputs($warp_path_base . ".psf");
+            ($ipp_disk,undef)    = &uri_convert($warp_path_base . ".psf");
+            print COMPMAP "$remote_file ${remote_root}/tmp/${ipp_disk}\n";
+
+        }
+        else {
+            $remote_file = &uri_local_to_remote($warp_path_base . ".fits");
+            print COMPMAP "$remote_file $remote_file\n";  # No other option, really.
+
+            $remote_file = &uri_local_to_remote($warp_path_base . ".wt.fits");
+            print COMPMAP "$remote_file $remote_file\n";  # No other option, really.
+
+            $remote_file = &uri_local_to_remote($warp_path_base . ".mask.fits");
+            print COMPMAP "$remote_file $remote_file\n";  # No other option, really.
+
+            $remote_file = &uri_local_to_remote($warp_path_base . ".cmf");
+            print COMPMAP "$remote_file $remote_file\n";  # No other option, really.
+
+            $remote_file = &uri_local_to_remote($warp_path_base . ".psf");
+            print COMPMAP "$remote_file $remote_file\n";  # No other option, really.
+
+        }
     }