Changeset 18433

Timestamp:

Jul 7, 2008, 10:29:08 AM (18 years ago)

Author:

bills

Message:

in ipp_image_path.pl (the script Nick's analysis uses to find images)
get images that are on ipp008 from alternate location if the recovered
image exists

File:

• trunk/ippScripts/scripts/ipp_image_path.pl (modified) (3 diffs)

trunk/ippScripts/scripts/ipp_image_path.pl

@@ -3 +3 @@
 # ipp_image_path.pl print out the unix path name(s) for rawImage files for an exposure
 #
-# XXX TODO add argument to get paths to chip processed images
 
 use warnings;
 use strict;
+
+# get images that are on ipp008 from alternative location until the
+# dataase is updated
+my $use_008_workaround  = 1;
 
 use vars qw( $VERSION );
@@ -92 +95 @@
             $path =  $uri;
         } else {
-            $path = $ipprc->file_resolve($uri);
+            if ($use_008_workaround && ($uri =~ /ipp008/)) {
+                $path = resolve_ipp008_file($uri);
+            } else {
+                $path = $ipprc->file_resolve($uri);
+            }
         }
         if ($path) {
@@ -127 +134 @@
 }
 
+sub resolve_ipp008_file {
+    my %locations = ( "ota24" => "ipp006",
+                      "ota25" => "ipp009",
+                      "ota26" => "ipp011",
+                      "ota27" => "ipp019",
+                      "ota30" => "ipp020",
+                      "ota31" => "ipp021"
+                    );
+
+    my $uri = shift;
+
+    # uri's look like neb://ipp008.0/gpc1/20080625/o4642g0400o/o4642g0400o.ota24.fits
+    
+    my ($left, $middle, $ota, $fits) = split '\.', $uri;
+    
+    my $node = $locations{$ota};
+
+    die "can't find node for $ota: $uri" if (!$node);
+
+    my $path =  $uri;
+    
+    $path =~  s%neb://ipp008.0%/data/${node}.0/recover08%;
+
+    die "sorry backup image for $uri not found\n" if (!-e $path);
+
+    return $path;
+}