Changeset 37345

Timestamp:

Sep 2, 2014, 3:38:20 PM (12 years ago)

Author:

watersc1

Message:

So many many typos and incorrect logic checks. This seems to work now, though.

File:

• tags/ipp-pv3-20140717/ippScripts/scripts/sc_mk_stack_mdc.pl (modified) (3 diffs)

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

@@ -33 +33 @@
     my $file = "";
     my $error = 0;
+
+#   print "PB: $path_base\n";
+
     #header
     $mdc_content .= "INPUT${counter}  METADATA\n";
@@ -55 +58 @@
     $mdc_content .=  "   BKGMODEL        STR     ${path_base}.mdl.fits\n";
     $mdc_content .=  "END\n\n";
-
+#    print "MDC: $mdc_content\n";
     # If we had no errors, print it and move on.
-    if ($error != 0) {
+    if ($error == 0) {
         print $mdc_content;
     }
@@ -65 +68 @@
 
 sub do_checks {
-    my $file = shift(@ARGV);
-    if (! ((-e $file)&&(-s $file))) { # This file does not exist or is zero size.
-        $file = "${remote_root}/tmp/$component_map{$file}";
-        if (! ((-e $file)&&(-s $file))) { # The other expected file did not exist.
-            $file = '';
-            die "Missing file!";
+    my ($cfile,$error) = @_;
+#    print  ">$cfile<\n";
+    if (! ((-e $cfile)&&(-s $cfile))) { # This cfile does not exist or is zero size.
+        my $disk = $component_map{$cfile};
+        $cfile = "${remote_root}/tmp/${disk}";
+        if (! ((-e $cfile)&&(-s $cfile))) { # The other expected cfile did not exist.
+            $cfile = '';
+            $error++;
+            die "Missing cfile!";
         }
     }
-    return($file);
+    return($cfile);
 }