diff options
Diffstat (limited to 'scripts/check-peak-detection')
| -rwxr-xr-x | scripts/check-peak-detection | 20 |
1 files changed, 16 insertions, 4 deletions
diff --git a/scripts/check-peak-detection b/scripts/check-peak-detection index 537e1698..9b3e3d6f 100755 --- a/scripts/check-peak-detection +++ b/scripts/check-peak-detection @@ -3,6 +3,8 @@ use strict; use File::Basename; +my $skip = 0; + my $only; my $file; my $start; @@ -38,6 +40,8 @@ my $line; my $filename; my $event; my $indexed; +my $n_seen = 0; + while ( $line = <FH> ) { chomp $line; @@ -108,10 +112,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"); $in_image = 0; |