Fix warnings when maillog contains IPv6 addresses

PR:		249146
Submitted by:	Éric Masson <emss@free.fr>
Obtained from:	https://bugzilla.redhat.com/show_bug.cgi?id=1384871
This commit is contained in:
Florian Smeets 2020-09-16 20:00:11 +00:00
parent 41c3180892
commit 7a41ab86ea
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=548796
2 changed files with 12 additions and 0 deletions

View File

@ -3,6 +3,7 @@
PORTNAME= pflogsumm
PORTVERSION= 1.1.5
PORTREVISION= 1
PORTEPOCH= 1
CATEGORIES= mail
MASTER_SITES= http://jimsun.LinxNet.com/downloads/ \

View File

@ -0,0 +1,11 @@
--- pflogsumm.pl.orig 2020-09-06 10:15:06.176055000 +0200
+++ pflogsumm.pl 2020-09-06 10:15:43.839326000 +0200
@@ -1536,7 +1536,7 @@
# split domain/ipaddr into separates
# newer versions of Postfix have them "dom.ain[i.p.add.ress]"
# older versions of Postfix have them "dom.ain/i.p.add.ress"
- unless((($domain, $ipAddr) = /^([^\[]+)\[((?:\d{1,3}\.){3}\d{1,3})\]/) == 2 ||
+ unless((($domain, $ipAddr) = /^([^\[]+)\[((?:\d{1,3}\.){3}\d{1,3}|[0-9a-f:]+)\]/o) == 2 ||
(($domain, $ipAddr) = /^([^\/]+)\/([0-9a-f.:]+)/i) == 2) {
# more exhaustive method
($domain, $ipAddr) = /^([^\[\(\/]+)[\[\(\/]([^\]\)]+)[\]\)]?:?\s*$/;