Changeset 39505

Timestamp:

Mar 31, 2016, 6:35:55 AM (10 years ago)

Author:

eugene

Message:

allow non-neb file to not be replicated

File:

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

trunk/ippScripts/scripts/detrend_norm_apply.pl

@@ -173 +173 @@
 
     # replicate output file
-    $ipprc->replicate_file($output) or &my_die("failed to replicate: $output\n", $det_id,$iter,$class_id,$PS_EXIT_SYS_ERROR);
+    my $scheme = file_scheme ($output);
+    if ($scheme eq "neb") { 
+        $ipprc->replicate_file($output) or &my_die("failed to replicate: $output\n", $det_id,$iter,$class_id,$PS_EXIT_SYS_ERROR);
+    } else {
+        print "output $output is a file or path, not a nebulous key: skipping replication\n"; 
+    }
 }
 
@@ -223 +228 @@
 }
 
+# Return the scheme used for a filename (copied from PS-IPP-Config/lib/PS/IPP/Config.pm
+sub file_scheme
+{
+    my $name = shift;                # Filename for which to get the scheme
+    my ($scheme) = $name =~ /^(path|neb|file):/; # The scheme, e.g., file://, path://
+    # $scheme may be undef if the input doesn't contain one of the above recognised schemes
+    unless (defined($scheme)) { $scheme = "none"; }
+    return $scheme;
+}
 
 END {