From: Thomas Hochstein <thh@inter.net>
Date: Wed, 14 Apr 2010 21:17:16 +0000 (+0200)
Subject: Fix: Consistency check for MID-Format fixed (regexp).
X-Git-Tag: v0.8~5
X-Git-Url: https://code.th-h.de/?p=usenet%2Fyapfaq.git;a=commitdiff_plain;h=8f067a2ffbcd6ee90bf1e5e1d50996ea7677436d

Fix: Consistency check for MID-Format fixed (regexp).

Signed-off-by: Thomas Hochstein <thh@inter.net>

Fix.
---

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
     }