check-{peak-detection,near-bragg}: add ability to skip events

1 files changed, 16 insertions, 4 deletions

diff --git a/scripts/check-near-bragg b/scripts/check-near-bragg
index 4077c6e2..a651d896 100755
--- a/scripts/check-near-bragg
+++ b/scripts/check-near-bragg
@@ -3,6 +3,8 @@
 use strict;
 use File::Basename;
 
+my $skip = 0;
+
 my $args = join(" ", splice(@ARGV, 1, scalar(@ARGV)-1));
 if ( !($args eq "") ) {
         printf("Extra arguments for hdfsee: %s\n", $args);
@@ -19,6 +21,8 @@ my $in_image = 0;
 my $line;
 my $filename;
 my $event = "";
+my $n_seen = 0;
+
 while ( $line = <FH> ) {
 
 	chomp $line;
@@ -59,10 +63,18 @@ while ( $line = <FH> ) {
 			$ev = " --event=".$event;
 			$evr = ", event ".$event;
 		}
-		printf(STDERR "Viewing %s%s\n", $filename, $evr);
-		system("hdfsee ".$filename.$ev.
-		       " --peak-overlay=list.tmp ".$args);
-		if ( $? != 0 ) { exit; }
+
+		$n_seen++;
+		if ( $n_seen > $skip ) {
+
+			printf(STDERR "Viewing %s%s\n", $filename, $evr);
+			system("hdfsee ".$filename.$ev.
+			       " --peak-overlay=list.tmp ".$args);
+			if ( $? != 0 ) { exit; }
+		} else {
+			printf(STDERR "Skipping %s%s\n", $filename, $evr);
+		}
+
 		unlink("list.tmp");
 		open(TMP, "> list.tmp");
 		$handled = 1;