git://git.exim.org
/
exim.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
TLS: PIPELINING under OpenSSL
[exim.git]
/
src
/
src
/
exiqgrep.src
diff --git
a/src/src/exiqgrep.src
b/src/src/exiqgrep.src
index 94b17f58bbcf2b999591167178446727f06f4a43..d900e99337a49be8709277bae1eb0d203f34aa22 100644
(file)
--- a/
src/src/exiqgrep.src
+++ b/
src/src/exiqgrep.src
@@
-18,6
+18,7
@@
# Version 1.2
use strict;
# Version 1.2
use strict;
+BEGIN { pop @INC if $INC[-1] eq '.' };
use Getopt::Std;
# Have this variable point to your exim binary.
use Getopt::Std;
# Have this variable point to your exim binary.
@@
-44,9
+45,10
@@
if ($^O eq 'darwin') { # aka MacOS X
};
getopts('hf:r:y:o:s:C:zxlibRca',\%opt);
};
getopts('hf:r:y:o:s:C:zxlibRca',\%opt);
+if ($ARGV[0]) { &help; exit;}
if ($opt{h}) { &help; exit;}
if ($opt{a}) { $eargs = '-bp'; }
if ($opt{h}) { &help; exit;}
if ($opt{a}) { $eargs = '-bp'; }
-if ($opt{C}) { $eargs .= ' -C '.$opt{C}; }
+if ($opt{C}
&& -e $opt{C} && -f $opt{C} && -R $opt{C}
) { $eargs .= ' -C '.$opt{C}; }
# Read message queue output into hash
&collect();
# Read message queue output into hash
&collect();
@@
-86,7
+88,7
@@
EOF
}
sub collect() {
}
sub collect() {
- open(QUEUE,"$exim $eargs |") or die("Error open
n
ing pipe: $!\n");
+ open(QUEUE,"$exim $eargs |") or die("Error opening pipe: $!\n");
while(<QUEUE>) {
chomp();
my $line = $_;
while(<QUEUE>) {
chomp();
my $line = $_;