X-Git-Url: https://code.th-h.de/?p=usenet%2Fyapfaq.git;a=blobdiff_plain;f=yapfaq.pl;h=a2042db628c106cb11887ab01ac1ceefb9a509c5;hp=36816ab82df9e3f810061323ab978d20f03d97a6;hb=40847f71a0fdb2d321d76a97f3ab2d198b58f447;hpb=366322b2c86c87e310a1193a3ce4d3590db31b1d

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;