Index: /tags/ipp-pv3-20140717/ippScripts/scripts/sc_mk_staticsky_mdc.pl
===================================================================
--- /tags/ipp-pv3-20140717/ippScripts/scripts/sc_mk_staticsky_mdc.pl	(revision 37542)
+++ /tags/ipp-pv3-20140717/ippScripts/scripts/sc_mk_staticsky_mdc.pl	(revision 37543)
@@ -18,6 +18,6 @@
     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,4 +27,6 @@
     chomp;
     my ($symbolic_name,$disk_name) = split /\s+/;
+    $symbolic_name =~ s%//%/%g;
+    $disk_name     =~ s%//%/%g;
     $component_map{$symbolic_name} = $disk_name;
 }
@@ -34,7 +36,8 @@
 
 
-$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,10 +46,8 @@
     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,15 +62,9 @@
     $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,12 +77,13 @@
 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!";
 	}
     }