diff options
author | Philip Hazel <ph10@hermes.cam.ac.uk> | 2007-03-13 11:26:49 +0000 |
---|---|---|
committer | Philip Hazel <ph10@hermes.cam.ac.uk> | 2007-03-13 11:26:49 +0000 |
commit | 79749a79c6e24778bcd27236a2846f39ccf18b2a (patch) | |
tree | e8fd87b95cc54ff7a7d832d986075bea44b596b7 /src | |
parent | b2d5182ba3c9c24a92edc47d9e4f8bae41c6ca0a (diff) |
Use "not accepted" rather than "not completed" for non-accepted messages
shown by exigrep.
Diffstat (limited to 'src')
-rw-r--r-- | src/src/exigrep.src | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/src/src/exigrep.src b/src/src/exigrep.src index aa03eb489..6024b425f 100644 --- a/src/src/exigrep.src +++ b/src/src/exigrep.src @@ -1,5 +1,5 @@ #! PERL_COMMAND -w -# $Cambridge: exim/src/src/exigrep.src,v 1.7 2007/03/13 11:06:48 ph10 Exp $ +# $Cambridge: exim/src/src/exigrep.src,v 1.8 2007/03/13 11:26:49 ph10 Exp $ use strict; @@ -172,8 +172,16 @@ if (@ARGV) else { do_line() while (<STDIN>); } -# At the end of processing all the input, print any uncompleted data +# At the end of processing all the input, print any uncompleted messages. If +# there is no <= line, we are dealing with a message that was rejected or +# abandoned. -for (keys %id_list) { print "+++ $_ not completed +++\n$saved{$_}\n"; } +for (keys %id_list) + { + if ($saved{$_} =~ /\s<=\s/) + { print "+++ $_ has not completed +++\n$saved{$_}\n"; } + else + { print "+++ $_ was not accepted +++\n$saved{$_}\n"; } + } # End of exigrep |