From 15dd22593eab787a70450c8bc82104b4d70c48cd Mon Sep 17 00:00:00 2001 From: Thomas Hochstein Date: Sat, 19 Aug 2017 16:21:14 +0200 Subject: [PATCH 1/2] Don't warn for missing optional encoding setting. Signed-off-by: Thomas Hochstein --- yapfaq.pl | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/yapfaq.pl b/yapfaq.pl index b5b59b7..805c216 100755 --- 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) { -- 2.20.1 From 4fe0c455eaea9a358746b5c1d6945ccc4d49c149 Mon Sep 17 00:00:00 2001 From: Thomas Hochstein Date: Sun, 23 Aug 2020 22:47:56 +0200 Subject: [PATCH 2/2] Change mail address. Signed-off-by: Thomas Hochstein --- ChangeLog | 2 ++ yapfaq.pl | 8 ++++---- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index a012a96..bd61686 100644 --- a/ChangeLog +++ b/ChangeLog @@ -5,6 +5,8 @@ yapfaq 0.10 (unreleased) * Mark yapfaq.pl executable. +* Change mail address. + Version 0.9.1 diff --git a/yapfaq.pl b/yapfaq.pl index 805c216..d4114d4 100755 --- a/yapfaq.pl +++ b/yapfaq.pl @@ -7,7 +7,7 @@ # will use it in combination with cron(8). # # Copyright (C) 2003 Marc Brockschmidt -# Copyright (c) 2010-2017 Thomas Hochstein +# Copyright (c) 2010-2017 Thomas Hochstein # # It can be redistributed and/or modified under the same terms under # which Perl itself is published. @@ -45,7 +45,7 @@ my %Options; getopts('Vhvpdt:f:c:s:', \%Options); # -V: print version / copyright information if ($Options{'V'}) { - print "$0 v $VERSION\nCopyright (c) 2003 Marc Brockschmidt \nCopyright (c) 2010-2017 Thomas Hochstein \n"; + print "$0 v $VERSION\nCopyright (c) 2003 Marc Brockschmidt \nCopyright (c) 2010-2017 Thomas Hochstein \n"; print "This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself.\n"; exit(0); } @@ -862,7 +862,7 @@ L. =head1 AUTHOR -Thomas Hochstein +Thomas Hochstein Original author (up to version 0.5b, dating from 2003): Marc Brockschmidt @@ -871,7 +871,7 @@ Marc Brockschmidt Copyright (c) 2003 Marc Brockschmidt -Copyright (c) 2010-2017 Thomas Hochstein +Copyright (c) 2010-2017 Thomas Hochstein This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself. -- 2.20.1