git://git.exim.org
/
exim.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b689ba9
)
exiqgrep: add -a to use all recipients (including delivered)
author
mg
<mg@fork.pl>
Mon, 21 Apr 2014 22:41:34 +0000
(
00:41
+0200)
committer
mg
<mg@fork.pl>
Mon, 21 Apr 2014 22:41:34 +0000
(
00:41
+0200)
doc/doc-docbook/spec.xfpt
patch
|
blob
|
history
src/src/exiqgrep.src
patch
|
blob
|
history
diff --git
a/doc/doc-docbook/spec.xfpt
b/doc/doc-docbook/spec.xfpt
index 68ebf8ad6dd883d77c4e827153daad0d9968de7f..3542557c4b7776092b7f5f147508fdfc732ac12b 100644
(file)
--- a/
doc/doc-docbook/spec.xfpt
+++ b/
doc/doc-docbook/spec.xfpt
@@
-34656,9
+34656,13
@@
This utility is a Perl script contributed by Matt Hubbard. It runs
.code
exim -bpu
.endd
.code
exim -bpu
.endd
-to obtain a queue listing with undelivered recipients only, and then greps the
-output to select messages that match given criteria. The following selection
-options are available:
+or (in case &*-a*& switch is specified)
+.code
+exim -bp
+.endd
+
+to obtain a queue listing, and then greps the output to select messages
+that match given criteria. The following selection options are available:
.vlist
.vitem &*-f*&&~<&'regex'&>
.vlist
.vitem &*-f*&&~<&'regex'&>
@@
-34705,6
+34709,9
@@
Brief format &-- one line per message.
.vitem &*-R*&
Display messages in reverse order.
.vitem &*-R*&
Display messages in reverse order.
+
+.vitem &*-a*&
+Include delivered recipients in queue listing.
.endlist
There is one more option, &%-h%&, which outputs a list of options.
.endlist
There is one more option, &%-h%&, which outputs a list of options.
diff --git
a/src/src/exiqgrep.src
b/src/src/exiqgrep.src
index e05589073142f823cd2b179cf06a14b2a545b3c0..05c1b9ed06ef9ee43212ef9ef1e39798ce71a495 100644
(file)
--- a/
src/src/exiqgrep.src
+++ b/
src/src/exiqgrep.src
@@
-43,8
+43,9
@@
if ($^O eq 'darwin') { # aka MacOS X
$base = 62;
};
$base = 62;
};
-getopts('hf:r:y:o:s:zxlibRc',\%opt);
+getopts('hf:r:y:o:s:zxlibRc
a
',\%opt);
if ($opt{h}) { &help; exit;}
if ($opt{h}) { &help; exit;}
+if ($opt{a}) { $eargs = '-bp'; }
# Read message queue output into hash
&collect();
# Read message queue output into hash
&collect();
@@
-78,6
+79,7
@@
Display options:
-i Message IDs only
-b Brief Format
-R Reverse order
-i Message IDs only
-b Brief Format
-R Reverse order
+ -a All recipients (including delivered)
EOF
}
EOF
}