From 687ea4dd1f543e358e3f4756cedb3264571ec65c Mon Sep 17 00:00:00 2001 From: Thomas Hochstein Date: Sat, 24 Jan 2026 15:49:36 +0100 Subject: [PATCH 1/4] Bump version. Signed-off-by: Thomas Hochstein --- ChangeLog | 3 +++ bin/yapfaq.pl | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 1a4a511..8ff00b0 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,6 @@ +yapfaq 1.0.1 (unreleased) + + yapfaq 1.0.0 (2025-01-23) * Complete rewrite. * Add POD. diff --git a/bin/yapfaq.pl b/bin/yapfaq.pl index 89ae88d..63dacfe 100755 --- a/bin/yapfaq.pl +++ b/bin/yapfaq.pl @@ -19,7 +19,7 @@ # It can be redistributed and/or modified under the same terms under # which Perl itself is published. -my $VERSION = "1.0.0"; +my $VERSION = "1.0.1-unreleased"; (my $NAME = $0) =~ s#^.*/##; use utf8; From be767b2fbe9d7597c01dae7d721962f7e2330b0e Mon Sep 17 00:00:00 2001 From: Thomas Hochstein Date: Fri, 23 Jan 2026 23:44:12 +0100 Subject: [PATCH 2/4] Fix attribution. Signed-off-by: Thomas Hochstein --- bin/yapfaq.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/bin/yapfaq.pl b/bin/yapfaq.pl index 63dacfe..d355dd3 100755 --- a/bin/yapfaq.pl +++ b/bin/yapfaq.pl @@ -264,7 +264,7 @@ sub AddDuration { ### ------------------------------------------------------------------ ### return a hash of all headers (ignoring duplicate headers) -# taken and modified from tinews.pl +# taken and modified from pgpverify.pl sub ParseHeaders { my @Headers = @_; my (%Header, $Label, $Value); From d770c7e3daf2b8a3cf1fc790d1cf3e9dc1a0a2ce Mon Sep 17 00:00:00 2001 From: Thomas Hochstein Date: Sat, 24 Jan 2026 15:45:20 +0100 Subject: [PATCH 3/4] Add %t placeholder for Message-ID. Feature parity with 0.9 Signed-off-by: Thomas Hochstein --- ChangeLog | 2 +- bin/yapfaq.pl | 14 +++++++++----- 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index 8ff00b0..2404154 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,5 @@ yapfaq 1.0.1 (unreleased) - +* Add %t placeholder for Message-ID (feature parity with 0.9). yapfaq 1.0.0 (2025-01-23) * Complete rewrite. diff --git a/bin/yapfaq.pl b/bin/yapfaq.pl index d355dd3..1e8af2c 100755 --- a/bin/yapfaq.pl +++ b/bin/yapfaq.pl @@ -464,15 +464,18 @@ sub BuildPosting { # %m current month # %d current day # %p PID + # %t timestamp (seconds since epoch) if (/^Message-ID: /i) { my $TDY = $TD->strftime('%Y'); my $TDM = $TD->strftime('%m'); my $TDD = $TD->strftime('%d'); + my $TimeStamp = time; $_ =~ s/\%n/$Project/g; $_ =~ s/\%y/$TDY/g; $_ =~ s/\%m/$TDM/g; $_ =~ s/\%d/$TDD/g; $_ =~ s/\%p/$$/g; + $_ =~ s/\%t/$TimeStamp/g; # add random part in test mode if ($OptTest) { my $random = sprintf("%08X", rand(0xFFFFFFFF)); @@ -747,11 +750,12 @@ curly brackets and spaces) is removed. If a I header is present, placeholders in that header will be replaced: I<%n> with the project name, I<%y> with the current year (YYYY), I<%m> with the current month (MM), I<%d> with the -current day (DD) and I<%p> with the current process ID (PID) of -B. If no I header is present, the I -will be generated with the hostname of the system B is -running on and I<%n-%y-%m-%d> as template for the left hand side. If -the I header in the headers file does not contain +current day (DD), I<%p> with the current process ID (PID) of +B and I<%t> with a timestamp timestamp (seconds since epoch). +If no I header is present, the I will be +generated with the hostname of the system B is running on and +I<%n-%y-%m-%d> as template for the left hand side. If the +I header in the headers file does not contain placeholders, the next repost will most probably fail. If an I header is present, it must contain a time period of From e1a5b7193a3afcd8cdef1159c8995f1a0c18b166 Mon Sep 17 00:00:00 2001 From: Thomas Hochstein Date: Sat, 24 Jan 2026 15:52:09 +0100 Subject: [PATCH 4/4] Remove debugging code. Signed-off-by: Thomas Hochstein --- ChangeLog | 1 + bin/yapfaq.pl | 2 -- 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 2404154..20fd80a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,6 @@ yapfaq 1.0.1 (unreleased) * Add %t placeholder for Message-ID (feature parity with 0.9). +* Remove debugging code. yapfaq 1.0.0 (2025-01-23) * Complete rewrite. diff --git a/bin/yapfaq.pl b/bin/yapfaq.pl index 1e8af2c..f88f014 100755 --- a/bin/yapfaq.pl +++ b/bin/yapfaq.pl @@ -32,8 +32,6 @@ use Path::Tiny; # CPAN use Getopt::Long qw(GetOptions); Getopt::Long::config ('bundling'); -use Data::Dumper; - # configuration ####################### # may be overwritten via ~/.yapfaqrc or command line my %Config;