X-Git-Url: https://code.th-h.de/?p=usenet%2Fyapfaq.git;a=blobdiff_plain;f=yapfaq.pl;h=5bc79191b4f8941ec1a1ba54fcc04bbf0907ffd4;hp=bde4d500fe8b55752a0ded57978616818dfd228c;hb=0b68926d7c23ec18aa9ed3df177c6e85abce8eb0;hpb=8f65a0a519c87dca312c005c227c913261c895e4 diff --git a/yapfaq.pl b/yapfaq.pl index bde4d50..5bc7919 100644 --- a/yapfaq.pl +++ b/yapfaq.pl @@ -1,6 +1,6 @@ #! /usr/bin/perl -W # -# yapfaq Version 0.8.1 by Thomas Hochstein +# yapfaq Version 0.91 by Thomas Hochstein # (Original author: Marc Brockschmidt) # # This script posts any project described in its config-file. Most people @@ -12,7 +12,7 @@ # It can be redistributed and/or modified under the same terms under # which Perl itself is published. -our $VERSION = "0.9-prelease"; +our $VERSION = "0.91"; # Please do not change this setting! # You may override the default .rc file (.yapfaqrc) by using "-c .rc file" @@ -36,7 +36,6 @@ 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; $Getopt::Std::STANDARD_HELP_VERSION = 1; my ($TDY, $TDM, $TDD) = Today(); #TD: Today's date @@ -301,7 +300,8 @@ sub postfaq { $$NG = $Options{'t'}; $MID =~ s/@/-$Timestamp-test@/g; $$ExtraHeaders .= "\n" if $$ExtraHeaders; - $$ExtraHeaders .= "X-Supersedes: $$Supersedes\nX-yapfaq-Remark: This is only a test message."; + $$ExtraHeaders .= "X-Supersedes: $$Supersedes\n" if $$Supersedes; + $$ExtraHeaders .= "X-yapfaq-Remark: This is only a test message."; undef $$Supersedes; } @@ -748,6 +748,19 @@ to or load another configuration file defining (an)other FAQ(s). =back +=head1 INSTALLATION + +Just copy the contents of the tarball in some directory and get started. + +You can post your first test with + + yapfaq -c .yapfaqrc.sample + +or copy F<.yapfaqrc.sample> to F<.yapfaqrc> and F +to F, edit those files and get really started! + +=back + =head1 EXAMPLES Post all FAQs that are due for posting: