From 40847f71a0fdb2d321d76a97f3ab2d198b58f447 Mon Sep 17 00:00:00 2001 From: Thomas Hochstein Date: Thu, 8 Apr 2010 08:30:21 +0200 Subject: [PATCH] Add check for MID-Format and fallback to FQDN. Uses hostfqdn from Net::Domain. Signed-off-by: Thomas Hochstein --- yapfaq.pl | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/yapfaq.pl b/yapfaq.pl index 36816ab..a2042db 100644 --- a/yapfaq.pl +++ b/yapfaq.pl @@ -52,6 +52,7 @@ my @PGPorderheaders = ('from', 'newsgroups', 'subject', 'control', use strict; use Net::NNTP; +use Net::Domain qw(hostfqdn); use Date::Calc qw(Add_Delta_YM Add_Delta_Days Delta_Days Today); use Fcntl ':flock'; # import LOCK_* constants use Getopt::Std; @@ -152,6 +153,9 @@ sub readconfig{ unless(!$$Config[$i]{'expires'} || $$Config[$i]{'expires'} =~ /^\s*\d+\s*[dwmy]\s*$/) { warn "$0: W: The Expires for your project \"$$Config[$i]{'name'}\" is invalid - set to 3 month.\n"; } + unless(defined($$Config[$i]{'mid-format'}) && $$Config[$i]{'mid-format'} =~ /^<\S+\@\S{2,}\.\S{2,}>$/) { + warn "$0: W: The Expires for your project \"$$Config[$i]{'name'}\" seems to be invalid - set to default.\n"; + } $Error .= "-" x 25 . "\n" if $Error; } die $Error if $Error;