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

Timestamp:

Mar 16, 2023, 12:48:31 PM (3 years ago)

Author:

eugene

Message:

various updates : adding stage 2

File:

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

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

@@ -1 +1 @@
 #! /usr/bin/env perl
 
-my $DEBUG = 4;
+my $DEBUG = 1;
 my $time = time();
 
@@ -82 +82 @@
             print STDOUT "FAIL: $inst $state $md5tru $md5obs\n";
             $Nfail ++;
+        } else {
+            if ($DEBUG > 2) {
+                print STDOUT "$inst $state $md5tru = $md5obs\n";
+            }
         }
     }