X-Git-Url: https://code.th-h.de/?p=usenet%2Fyapfaq.git;a=blobdiff_plain;f=yapfaq.pl;h=805c216455e3372e89721af8610c6b1597b313f0;hp=b5b59b753eb59ce4da707e62a897b5667ddadb18;hb=15dd22593eab787a70450c8bc82104b4d70c48cd;hpb=3b06ebf93a299c78b620c774be6a1742c51b1ae6 diff --git a/yapfaq.pl b/yapfaq.pl old mode 100644 new mode 100755 index b5b59b7..805c216 --- a/yapfaq.pl +++ b/yapfaq.pl @@ -196,10 +196,6 @@ sub readconfig{ 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-%y-%m-%d@'.hostfqdn.'>'; # set default if mid-format is invalid } - unless(defined($$Config[$i]{'charset'})) { - warn "$0: W: Your project \"$$Config[$i]{'name'}\" has no encoding defined - set to default (UTF-8).\n"; - $$Config[$i]{'charset'} = 'UTF-8'; - } } $Error .= "-" x 25 . 'program terminated' . "-" x 25 . "\n" if $Error; die $Error if $Error; @@ -300,7 +296,8 @@ sub postfaq { } # Set Charset - my $ContentType = sprintf('text/plain; charset=%s',$Charset); + $$Charset = 'UTF-8' if !$$Charset; + my $ContentType = sprintf('text/plain; charset=%s',$$Charset); # Test mode? if($Options{'t'} and $Options{'t'} !~ /console/i) {