check_{peak_detection,near_bragg}: Warn if stream is older than image

1 files changed, 10 insertions, 0 deletions

diff --git a/scripts/check-near-bragg b/scripts/check-near-bragg
index a651d896..467ff943 100755
--- a/scripts/check-near-bragg
+++ b/scripts/check-near-bragg
@@ -2,6 +2,7 @@
 
 use strict;
 use File::Basename;
+use File::stat;
 
 my $skip = 0;
 
@@ -17,6 +18,9 @@ if ( !($args eq "") ) {
 open(FH, $ARGV[0]);
 open(TMP, "> list.tmp");
 
+my $statbuf = stat($ARGV[0]);
+my $stream_mtime = $statbuf->mtime;
+
 my $in_image = 0;
 my $line;
 my $filename;
@@ -67,6 +71,12 @@ while ( $line = <FH> ) {
 		$n_seen++;
 		if ( $n_seen > $skip ) {
 
+			my $statbuf = stat($filename);
+			my $image_mtime = $statbuf->mtime;
+			if ( $image_mtime > $stream_mtime ) {
+				printf(STDERR "WARNING: Image file is newer than stream\n");
+			}
+
 			printf(STDERR "Viewing %s%s\n", $filename, $evr);
 			system("hdfsee ".$filename.$ev.
 			       " --peak-overlay=list.tmp ".$args);