git://git.exim.org
/
users
/
jgh
/
exim.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
$local_part_verified
[users/jgh/exim.git]
/
src
/
src
/
exiqgrep.src
diff --git
a/src/src/exiqgrep.src
b/src/src/exiqgrep.src
index d900e99337a49be8709277bae1eb0d203f34aa22..c8762df479da01279db8d73d9a4a1ad3a57ecd93 100644
(file)
--- a/
src/src/exiqgrep.src
+++ b/
src/src/exiqgrep.src
@@
-19,7
+19,9
@@
use strict;
BEGIN { pop @INC if $INC[-1] eq '.' };
use strict;
BEGIN { pop @INC if $INC[-1] eq '.' };
+
use Getopt::Std;
use Getopt::Std;
+use File::Basename;
# Have this variable point to your exim binary.
my $exim = 'BIN_DIRECTORY/exim';
# Have this variable point to your exim binary.
my $exim = 'BIN_DIRECTORY/exim';
@@
-44,11
+46,19
@@
if ($^O eq 'darwin') { # aka MacOS X
$base = 62;
};
$base = 62;
};
-getopts('hf:r:y:o:s:C:zxlibRca',\%opt);
+if ($ARGV[0] eq '--version') {
+ print basename($0) . ": $0\n",
+ "build: EXIM_RELEASE_VERSIONEXIM_VARIANT_VERSION\n",
+ "perl(runtime): $]\n";
+ exit 0;
+}
+
+getopts('hf:r:y:o:s:C:zxlibRcaG:',\%opt);
if ($ARGV[0]) { &help; exit;}
if ($opt{h}) { &help; exit;}
if ($opt{a}) { $eargs = '-bp'; }
if ($opt{C} && -e $opt{C} && -f $opt{C} && -R $opt{C}) { $eargs .= ' -C '.$opt{C}; }
if ($ARGV[0]) { &help; exit;}
if ($opt{h}) { &help; exit;}
if ($opt{a}) { $eargs = '-bp'; }
if ($opt{C} && -e $opt{C} && -f $opt{C} && -R $opt{C}) { $eargs .= ' -C '.$opt{C}; }
+if ($opt{G}) { $eargs .= ' -qG'.$opt{G}; }
# Read message queue output into hash
&collect();
# Read message queue output into hash
&collect();
@@
-74,6
+84,7
@@
Selection criteria:
-o <seconds> Message older than
-z Frozen messages only (exclude non-frozen)
-x Non-frozen messages only (exclude frozen)
-o <seconds> Message older than
-z Frozen messages only (exclude non-frozen)
-x Non-frozen messages only (exclude frozen)
+ -G <queuename> Match in given queue only
[ NB: for regexps, provided string sits in /<string>/ ]
[ NB: for regexps, provided string sits in /<string>/ ]