[exim-cvs] exipick: support for named queues

Top Page
Delete this message
Reply to this message
Author: Exim Git Commits Mailing List
Date:  
To: exim-cvs
Subject: [exim-cvs] exipick: support for named queues
Gitweb: https://git.exim.org/exim.git/commitdiff/a6d70503b545f85e8d990b543721f84eaf3efa59
Commit:     a6d70503b545f85e8d990b543721f84eaf3efa59
Parent:     b2fedb773ca5b29f143368045d430d7032aed1df
Author:     Heiko Schlittermann (HS12-RIPE) <hs@???>
AuthorDate: Wed Oct 16 23:54:21 2019 +0200
Committer:  Heiko Schlittermann (HS12-RIPE) <hs@???>
CommitDate: Wed Oct 16 23:57:24 2019 +0200


    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 7959d75..86a010c 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 > <seconds>' (exiqgrep)


Display messages matching any criteria

+=item --queue <name>
+
+Name of the queue (default: ''). See "named queues" in the spec.
+
=item -R

Same as --reverse (exiqgrep)