Update check-near-bragg to handle dumped peaks as well

1 files changed, 13 insertions, 1 deletions

diff --git a/scripts/check-near-bragg b/scripts/check-near-bragg
index 28347831..c7d747a1 100755
--- a/scripts/check-near-bragg
+++ b/scripts/check-near-bragg
@@ -1,6 +1,7 @@
 #!/usr/bin/perl -w
 
 use strict;
+use File::Basename;
 
 open(FH, $ARGV[0]);
 open(TMP, "> list.tmp");
@@ -18,13 +19,24 @@ while ( $line = <FH> ) {
 		$handled = 1;
 	}
 
+	if ( $line =~ /^\s*[0-9\-\.]+\s+[0-9\-\.]+\s+[0-9\-\.]+\s+[0-9\.\-]+/ ) {
+		printf(TMP "%s\n", $line);
+		$handled = 1;
+	}
+
 	if ( $line =~ /^Reflections\ from\ indexing\ in\ (.+)$/ ) {
 		$filename = $1;
 		$handled = 1;
 	}
 
-	if ( $line =~ /^Peak statistics/ ) {
+	if ( $line =~ /^Peaks\ from\ peak search\ in\ (.+)$/ ) {
+		$filename = $1;
+		$handled = 1;
+	}
+
+	if ( $line =~ /^$/ ) {
 		close(TMP);
+		$filename = "images-old/".basename($filename);
 		system("hdfsee ".$filename." --peak-overlay=list.tmp --binning=1 --int-boost=10");
 		if ( $? != 0 ) { exit; }
 		unlink("list.tmp");