Changeset 42411 for trunk/tools/eam/rawfix.20230221/src/check_md5s_dateobs.pl

Timestamp:

Mar 14, 2023, 3:08:37 PM (3 years ago)

Author:

eugene

Message:

more work on the rawfix scripts

File:

• trunk/tools/eam/rawfix.20230221/src/check_md5s_dateobs.pl (modified) (4 diffs)

trunk/tools/eam/rawfix.20230221/src/check_md5s_dateobs.pl

@@ -18 +18 @@
 my @instlist = glob ("$dateword/*.inst.txt");
 my @md5slist = glob ("$dateword/*.md5s.txt");
+
+my $Nfail = 0;
 
 foreach my $instfile (@instlist) {
@@ -39 +41 @@
 
     if ($md5match eq "NONE") {
-        print STDERR "missing md5sum file for $instfile\n";
+        print STDOUT "missing md5sum file for $instfile\n";
+        $Nfail ++;
         next;
     }
@@ -57 +60 @@
     my $N2 = @instdata;
     if ($N1 != $N2) {
-        print STDERR "inconsistent number of lines in $md5match : $N1 vs $N2\n";
+        print STDOUT "inconsistent number of lines in $md5match : $N1 vs $N2\n";
+        $Nfail ++;
         next;
     }
@@ -76 +80 @@
 
         if ($md5tru ne $md5obs) {
-            print STDERR "FAIL: $inst $state $md5tru $md5obs\n";
+            print STDOUT "FAIL: $inst $state $md5tru $md5obs\n";
+            $Nfail ++;
         }
     }
+}
+
+if ($Nfail) { 
+    print STDOUT "ERROR: $Nfail errors\n";
+    exit 1;
+} else {
+    print STDOUT "SUCCESS: $Nfail errors\n";
+    exit 0;
 }