thh/yapfaq
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Activity

Add --simulation mode, show next due date.

Browse source 
Signed-off-by: Thomas Hochstein <thh@thh.name>
This commit is contained in:
Thomas Hochstein 2026-01-20 08:54:30 +01:00
parent 81119ec2d5
commit 9c83c0efff
2 changed files with 21 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
ChangeLog
View file

@ -2,6 +2,8 @@ yapfaq 1.0.0 (unreleased)
* Complete rewrite. * Complete rewrite.
* Add POD. * Add POD.
* Fix file handling (UTF8 mode). * Fix file handling (UTF8 mode).
* Show next posting date if posting is not due.
* Add --simulation mode.
yapfaq 0.10 (unreleased) yapfaq 0.10 (unreleased)
* Add: Charset definition. * Add: Charset definition.

23
bin/yapfaq.pl
View file

@ -88,12 +88,13 @@ $Config{'nntp-server'} = $ENV{'NNTPSERVER'} if ($ENV{'NNTPSERVER'});
$Config{'nntp-port'} = $ENV{'NNTPPORT'} if ($ENV{'NNTPPORT'}); $Config{'nntp-port'} = $ENV{'NNTPPORT'} if ($ENV{'NNTPPORT'});
### read commandline options ### read commandline options
my ($OptProject,$OptForce,$OptTest,$OptNewsgroup,$OptOutput); my ($OptProject,$OptForce,$OptTest,$OptNewsgroup,$OptOutput,$OptSimulation);
GetOptions ('p|project=s' => \$OptProject, GetOptions ('p|project=s' => \$OptProject,
'f|force' => \$OptForce, 'f|force' => \$OptForce,
't|test' => \$OptTest, 't|test' => \$OptTest,
'n|newsgroup=s' => \$OptNewsgroup, 'n|newsgroup=s' => \$OptNewsgroup,
'o|output' => \$OptOutput, 'o|output' => \$OptOutput,
's|simulation' => \$OptSimulation,
'datadir=s' => \$Config{'datadir'}, 'datadir=s' => \$Config{'datadir'},
'nntp-server=s' => \$Config{'nntp-server'}, 'nntp-server=s' => \$Config{'nntp-server'},
'nntp-port=s' => \$Config{'nntp-port'}, 'nntp-port=s' => \$Config{'nntp-port'},
@ -107,6 +108,12 @@ GetOptions ('p|project=s' => \$OptProject,
'h|help' => \&ShowPOD, 'h|help' => \&ShowPOD,
'V|version' => \&ShowVersion) or &ShowUsage; 'V|version' => \&ShowVersion) or &ShowUsage;
# -s implies -t and -v
if ($OptSimulation) {
$OptTest = 1;
$Config{'verbose'} = 1;
}
### create list of @Projects from $Config{'datadir'} unless -p is set ### create list of @Projects from $Config{'datadir'} unless -p is set
my @Projects; my @Projects;
if (!$OptProject) { if (!$OptProject) {
@ -135,6 +142,7 @@ foreach (@Projects) {
# @Posting will be empty ('') if not due # @Posting will be empty ('') if not due
my @Posting = &BuildPosting($_); my @Posting = &BuildPosting($_);
next if !$#Posting; next if !$#Posting;
next if $OptSimulation;
# save Message-ID # save Message-ID
my $LastMID; my $LastMID;
@ -505,13 +513,15 @@ sub BuildPosting {
# default to 1 month if no (valid) Posting-Frequency is set # default to 1 month if no (valid) Posting-Frequency is set
$PostingFrequency = '1m' if $PostingFrequency !~ /^\d+[dwmy]$/; $PostingFrequency = '1m' if $PostingFrequency !~ /^\d+[dwmy]$/;
my $NextPosted = &AddDuration(&ParseDate($LastPosted),$PostingFrequency) if $LastPosted;
# check if posting is due # check if posting is due
print "- Posting has been forced.\n" if $Config{'debug'} && $OptForce; print "- Posting has been forced.\n" if $Config{'debug'} && $OptForce;
if ($OptForce or (!$LastPosted) or ($LastPosted && &AddDuration(&ParseDate($LastPosted),$PostingFrequency) <= DateTime->now)) { if ($OptForce or (!$LastPosted) or ($LastPosted && $NextPosted <= DateTime->now)) {
print "... is due and will be posted.\n" if $Config{'verbose'} or $Config{'debug'}; print "... is due and will be posted.\n" if $Config{'verbose'} or $Config{'debug'};
} else { } else {
print "... is not due.\n" if $Config{'verbose'} or $Config{'debug'}; printf ("... is not due (next post at %s).\n", $NextPosted->strftime('%Y-%m-%d'))
if $Config{'verbose'} or $Config{'debug'};
return ''; return '';
} }
@ -578,7 +588,7 @@ yapfaq - Post FAQs to Usenet I<(yet another postfaq)>
=head1 SYNOPSIS =head1 SYNOPSIS
B<yapfaq> [B<-Vhcfto>] [B<-p> I<project name>[B<-n> I<newsgroup>] [OPTIONS] B<yapfaq> [B<-cfhotsV>] [B<-p> I<project name>[B<-n> I<newsgroup>] [OPTIONS]
=head1 REQUIREMENTS =head1 REQUIREMENTS
@ -840,6 +850,11 @@ projects.
Display this man page and exit. Display this man page and exit.
=item B<-s>, B<--simulation>
Simulation mode. Don't post, just show which projects would be due.
Implies B<--test> and B<--verbose>.
=item B<-t>, B<--test> =item B<-t>, B<--test>
Test mode. Don't update project status (time and Message-ID of last Test mode. Don't update project status (time and Message-ID of last