Fix json extract for strings carrying commas. Bug 3006

[user/henk/code/exim.git] / src / src / eximstats.src

diff --git a/src/src/eximstats.src b/src/src/eximstats.src
index 5e1a0847b58fe8424c630c03e5f298da87a89c8e..3b89e6bd7d4767146677ba26709c4882f8bd188d 100644 (file)
--- a/src/src/eximstats.src
+++ b/src/src/eximstats.src
@@ -1898,7 +1898,11 @@ sub generate_parser {
       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/) {