From 0617cee43e07fccd781ad2ea9cf4bc067a25c6e1 Mon Sep 17 00:00:00 2001
From: Andreas Koenig <andk@cpan.org>
Date: Sun, 31 Dec 2017 13:42:49 +0100
Subject: [PATCH] Introduce --onlytar option

---
 bin/call-analoep.pl | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/bin/call-analoep.pl b/bin/call-analoep.pl
index 6cf093b9..52b1f2ea 100644
--- a/bin/call-analoep.pl
+++ b/bin/call-analoep.pl
@@ -24,6 +24,10 @@ my @opt = <<'=back' =~ /B<--(\S+)>/g;
 
 This help
 
+=item B<--onlytar!>
+
+Skip the run with --focus=dir
+
 =back
 
 =head1 DESCRIPTION
@@ -67,10 +71,14 @@ my @p = (
     { k => 12, m => 50 }, # as long a we have more than 12, we remove everything older 50
 );
 
-for my $p (@p) {
+PARAMCOMBI: for my $p (@p) {
     $p->{k} ||= 3;
     $p->{m} ||= 365;
     $p->{f} ||= "tar";
+    if ($Opt{onlytar} && $p->{f} ne 'tar') {
+        warn "Info: skipping run for $p->{f} due 'onlytar'\n";
+        next PARAMCOMBI;
+    }
     my @system = ($^X,
                   "$FindBin::Bin/analysis-oldreports-extinction-program.pl",
                   "--yes",
-- 
2.11.4.GIT