From a6d70503b545f85e8d990b543721f84eaf3efa59 Mon Sep 17 00:00:00 2001 From: "Heiko Schlittermann (HS12-RIPE)" Date: Wed, 16 Oct 2019 23:54:21 +0200 Subject: [PATCH] exipick: support for named queues --- src/src/exipick.src | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/src/exipick.src b/src/src/exipick.src index 7959d754c..86a010c86 100644 --- a/src/src/exipick.src +++ b/src/src/exipick.src @@ -48,6 +48,7 @@ GetOptions( 'spool=s' => \$G::spool, # exim spool dir 'C|Config=s' => \$G::config, # use alternative Exim configuration file 'input-dir=s' => \$G::input_dir, # name of the "input" dir + 'queue=s' => \$G::queue, # name of the queue 'finput' => \$G::finput, # same as "--input-dir Finput" 'bp' => \$G::mailq_bp, # List the queue (noop - default) 'bpa' => \$G::mailq_bpa, # ... with generated address as well @@ -128,7 +129,8 @@ $G::caseless = $G::caseful ? 0 : 1; # nocase by default, case if both $spool = defined $G::spool ? $G::spool : do { chomp($_ = `$exim @{[defined $G::config ? "-C $G::config" : '']} -n -bP spool_directory`) and $_ or $spool }; -my $input_dir = $G::input_dir || ($G::finput ? "Finput" : "input"); +my $input_dir = (defined $G::queue ? "$G::queue/" : '') + . (defined $G::input_dir || ($G::finput ? "Finput" : "input")); my $count_only = 1 if ($G::mailq_bpc || $G::qgrep_c); my $unsorted = 1 if ($G::mailq_bpr || $G::mailq_bpra || $G::mailq_bpru || $G::unsorted); @@ -1426,6 +1428,10 @@ Same as '$message_age > ' (exiqgrep) Display messages matching any criteria +=item --queue + +Name of the queue (default: ''). See "named queues" in the spec. + =item -R Same as --reverse (exiqgrep) -- 2.25.1