From 837809edc9461e01e12c980080cb2c4869997ccd Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Thu, 31 May 2018 15:11:45 +0200
Subject: check_{peak_detection,near_bragg}: Warn if stream is older than image

---
 scripts/check-near-bragg     | 10 ++++++++++
 scripts/check-peak-detection | 10 ++++++++++
 2 files changed, 20 insertions(+)

(limited to 'scripts')

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);
diff --git a/scripts/check-peak-detection b/scripts/check-peak-detection
index c66424f2..8f2e1378 100755
--- a/scripts/check-peak-detection
+++ b/scripts/check-peak-detection
@@ -2,6 +2,7 @@
 
 use strict;
 use File::Basename;
+use File::stat;
 
 my $skip = 0;
 
@@ -35,6 +36,9 @@ if ( !($args eq "") ) {
 open(FH, $file);
 open(TMP, "> list.tmp");
 
+my $statbuf = stat($ARGV[0]);
+my $stream_mtime = $statbuf->mtime;
+
 my $in_image = 0;
 my $line;
 my $filename;
@@ -116,6 +120,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);
-- 
cgit v1.2.3