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
Copyright updates:
[exim.git]
/
src
/
src
/
eximstats.src
diff --git
a/src/src/eximstats.src
b/src/src/eximstats.src
index 5e1a0847b58fe8424c630c03e5f298da87a89c8e..232b3d13533b6d2549aca3daa121afbd4abdacc6 100644
(file)
--- a/
src/src/eximstats.src
+++ b/
src/src/eximstats.src
@@
-1,7
+1,9
@@
#!PERL_COMMAND
#!PERL_COMMAND
+# Copyright (c) The Exim Maintainers 2023
# Copyright (c) 2001-2017 University of Cambridge.
# See the file NOTICE for conditions of use and distribution.
# Copyright (c) 2001-2017 University of Cambridge.
# See the file NOTICE for conditions of use and distribution.
+# SPDX-License-Identifier: GPL-2.0-or-later
# Perl script to generate statistics from one or more Exim log files.
# Perl script to generate statistics from one or more Exim log files.
@@
-557,7
+559,7
@@
use File::Basename;
# use Time::Local; # PH/FANF
use POSIX;
# use Time::Local; # PH/FANF
use POSIX;
-if (@ARGV and
$ARGV[0] eq '--version'
) {
+if (@ARGV and
($ARGV[0] eq '--version' || $ARGV[0] eq '-v')
) {
print basename($0) . ": $0\n",
"build: EXIM_RELEASE_VERSIONEXIM_VARIANT_VERSION\n",
"perl(runtime): $]\n";
print basename($0) . ": $0\n",
"build: EXIM_RELEASE_VERSIONEXIM_VARIANT_VERSION\n",
"perl(runtime): $]\n";
@@
-1898,7
+1900,11
@@
sub generate_parser {
next if ($length < 38 + $extra);
}
next if ($length < 38 + $extra);
}
- $id = substr($_, 20 + $extra, 16);
+ # $id = substr($_, 20 + $extra, 16); # old ID was 16 chars
+ $id = substr($_, 20 + $extra, 23); # new IS is 23 chars
+ $id =~ s/(\S+).*/$1/;
+ $extra += length($id) - 16;
+
$flag = substr($_, 37 + $extra, 2);
if ($flag !~ /^([<>=*-]+|SA)$/ && /rejected|refused|dropped/) {
$flag = substr($_, 37 + $extra, 2);
if ($flag !~ /^([<>=*-]+|SA)$/ && /rejected|refused|dropped/) {