From 8f067a2ffbcd6ee90bf1e5e1d50996ea7677436d Mon Sep 17 00:00:00 2001 From: Thomas Hochstein Date: Wed, 14 Apr 2010 23:17:16 +0200 Subject: [PATCH] Fix: Consistency check for MID-Format fixed (regexp). Signed-off-by: Thomas Hochstein Fix. --- yapfaq.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/yapfaq.pl b/yapfaq.pl index d4e381e..df69b78 100644 --- a/yapfaq.pl +++ b/yapfaq.pl @@ -215,7 +215,7 @@ sub readconfig{ warn "$0: W: The Expires for your project \"$$Config[$i]{'name'}\" is invalid - set to 3 month.\n"; $$Config[$i]{'expires'} = '3m'; # set default (3 month) if expires is unset or invalid } - unless(!$$Config[$i]{'mid-format'} || $$Config[$i]{'mid-format'} =~ /^<\S+\@\S{2,}\.\S{2,}>$/) { + unless(!$$Config[$i]{'mid-format'} || $$Config[$i]{'mid-format'} =~ /^<\S+\@(\S+\.)?\S{2,}\.\S{2,}>/) { warn "$0: W: The Message-ID format for your project \"$$Config[$i]{'name'}\" seems to be invalid - set to default.\n"; $$Config[$i]{'mid-format'} = '<%n-%d.%m.%y@'.hostfqdn.'>'; # set default if mid-format is invalid }