Changeset 37543 for tags/ipp-pv3-20140717

Timestamp:

Oct 30, 2014, 4:18:06 PM (12 years ago)

Author:

watersc1

Message:

mdc constructor for staticsky.

File:

• tags/ipp-pv3-20140717/ippScripts/scripts/sc_mk_staticsky_mdc.pl (modified) (6 diffs)

tags/ipp-pv3-20140717/ippScripts/scripts/sc_mk_staticsky_mdc.pl

@@ -18 +18 @@
     defined($compmap_file);
 
-if ($#ARGV % 2 != 0) { 
-    die "Do not have a matched pair of path_base/stack_id values";
+if (($#ARGV + 1) % 2 != 0) { 
+    die "Do not have a matched pair of path_base/stack_id values $#ARGV";
 }
 
@@ -27 +27 @@
     chomp;
     my ($symbolic_name,$disk_name) = split /\s+/;
+    $symbolic_name =~ s%//%/%g;
+    $disk_name     =~ s%//%/%g;
     $component_map{$symbolic_name} = $disk_name;
 }
@@ -34 +36 @@
 
 
-$mdc_content .= "INPUT  MULTI\n";
+my $mdc_content .= "INPUT  MULTI\n";
+print $mdc_content;
 
-#foreach my $path_base (@ARGV) {
+
 for (my $index = 0; $index <= $#ARGV; $index += 2) {
     my $path_base = $ARGV[$index];
@@ -43 +46 @@
     my $file = "";
     my $error = 0;
-    
-
-#   print "PB: $path_base\n";
+    $path_base =~ s%//%/%g;
 
     #header
-    $mdc_content .= "INPUT${counter}  METADATA\n";
+    $mdc_content .= "INPUT  METADATA\n";
     $mdc_content .= "    STACK_ID        S64  " . $stack_id . "\n";
 
@@ -61 +62 @@
     $mdc_content .=  "   RAW:VARIANCE        STR     $file\n";
     
-    $file = do_checks("${path_base}.psf",$error);
-    $mdc_content .=  "   PSF             STR     $file\n";
-
     $file = do_checks("${path_base}.unconv.num.fits",$error);
     $mdc_content .=  "   RAW:EXPNUM             STR     $file\n";
     
-    $file = do_checks("${path_base}.cmf",$error);
-    $mdc_content .=  "   SOURCES         STR     $file\n";
+    $mdc_content .=  "END\n\n";
 
-    $mdc_content .=  "END\n\n";
-#    print "MDC: $mdc_content\n";
     # If we had no errors, print it and move on.
     if ($error == 0) {
@@ -82 +77 @@
 sub do_checks {
     my ($cfile,$error) = @_;
-#    print  ">$cfile<\n";
+#    print STDERR  ">$cfile<\n";
     if (! ((-e $cfile)&&(-s $cfile))) { # This cfile does not exist or is zero size.
         my $disk = $component_map{$cfile};
         $cfile = "${disk}";
         if (! ((-e $cfile)&&(-s $cfile))) { # The other expected cfile did not exist.
-#           $cfile = '';
+#    $cfile = '';
+#           $cfile = $disk;
             $error++;
-            die "Missing cfile $cfile!";
+            die "Missing cfile $cfile ($disk) $mdc_content!";
         }
     }