mirror of
https://git.freebsd.org/ports.git
synced 2025-05-14 00:01:52 -04:00
add1cc6abc
Recently exim changed msgid format, so tool does not work correctly anymore. I tried to contact upstream but no reply so far. Also some minor changes to make portlint happy
20 lines
1.1 KiB
Raku
20 lines
1.1 KiB
Raku
--- exilog_parse.pm.orig 2024-04-04 09:14:20 UTC
|
|
+++ exilog_parse.pm
|
|
@@ -260,7 +260,7 @@ sub parse_reject_line {
|
|
# and one with message ID (post-DATA). Try the latter first.
|
|
|
|
m/()()()()/;
|
|
- $subj =~ m/(\d{4}-\d\d-\d\d) (\d\d:\d\d:\d\d( [-+]\d{4})?) ([A-Za-z0-9]{6}-[A-Za-z0-9]{6}-[A-Za-z0-9]{2}) (H=.*)$/;
|
|
+ $subj =~ m/(\d{4}-\d\d-\d\d) (\d\d:\d\d:\d\d( [-+]\d{4})?) ([A-Za-z0-9]{6}-[A-Za-z0-9]{6,11}-[A-Za-z0-9]{2,4}) (H=.*)$/;
|
|
my ($date,$tod,$msgid,$line) = ($1,$2,$4,$5);
|
|
if ($date && $tod && $msgid && $line) {
|
|
# line with message id
|
|
@@ -297,7 +297,7 @@ sub parse_message_line {
|
|
return 0 if ($subj =~ /retry time not reached for any host$/);
|
|
|
|
# Grab date, time and message id
|
|
- $subj =~ m/(\d{4}-\d\d-\d\d) (\d\d:\d\d:\d\d( [-+]\d{4})?) ([A-Za-z0-9]{6}-[A-Za-z0-9]{6}-[A-Za-z0-9]{2}) (([^ ]+).*)$/;
|
|
+ $subj =~ m/(\d{4}-\d\d-\d\d) (\d\d:\d\d:\d\d( [-+]\d{4})?) ([A-Za-z0-9]{6}-[A-Za-z0-9]{6,11}-[A-Za-z0-9]{2,4}) (([^ ]+).*)$/;
|
|
my ($date,$tod,$msgid,$line,$type) = ($1,$2,$4,$5,$6);
|
|
$line =~ s/^ +// if (defined($line));
|
|
unless ($date && $tod && $msgid && $line && $type) {
|