# It can be redistributed and/or modified under the same terms under
# which Perl itself is published.
-my $Version = "0.6-unreleased";
+my $Version = "0.6.2";
my $NNTPServer = "localhost";
my $NNTPUser = "";
my ($File, $Config, $Faq) = @_;
my ($LastEntry, $Error, $i) = ('','',0);
- if($Options{'v'}) {
- print "Reading configuration.\n";
- }
+ print "Reading configuration.\n" if($Options{'v'});
open FH, "<$$File" or die "$0: E: Can't open $$File: $!";
while (<FH>) {
unless($$Config[$i]{'posting-frequency'} =~ /^\s*\d+\s*[dwmy]\s*$/) {
$Error .= "E: The Posting-frequency for your project \"$$Config[$i]{'name'}\" is invalid.\n"
}
- unless($$Config[$i]{'expires'} =~ /^\s*\d+\s*[dwmy]\s*$/) {
- $$Config[$i]{'expires'} = '3m'; # set default: 3 month
+ unless(!$$Config[$i]{'expires'} || $$Config[$i]{'expires'} =~ /^\s*\d+\s*[dwmy]\s*$/) {
warn "$0: W: The Expires for your project \"$$Config[$i]{'name'}\" is invalid - set to 3 month.\n";
}
$Error .= "-" x 25 . "\n" if $Error;
my ($ActName,$File,$From,$Subject,$NG,$Fup2,$MIDF,$ExtraHeaders,$Sender,$TDY,$TDM,$TDD,$ReplyTo,$Supersedes,$Expire) = @_;
my (@Header,@Body,$MID,$InRealBody,$LastModified);
- if($Options{'v'}) {
- print "$$ActName: Preparing to post.\n";
- }
+ print "$$ActName: Preparing to post.\n" if($Options{'v'});
#Prepare MID:
$$TDM = ($$TDM < 10 && $$TDM !~ /^0/) ? "0" . $$TDM : $$TDM;
my $wday = ("Sun","Mon","Tue","Wed","Thu","Fri","Sat")[$time[6]];
my $year = (1900 + $time[5]);
my $tz = $time[8] ? " +0200" : " +0100";
-
+
+ $$Expire = '3m' if !$$Expire; # set default if unset: 3 month
+
my ($expY,$expM,$expD) = calcdelta ($year,$month,$day,$$Expire);
my $expmonthN = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")[$expM-1];
my @Article = ($UsePGP)?@{signpgp(\@Header, \@Body)}:(@Header, "\n", @Body);
- if($Options{'v'}) {
- print "$$ActName: Posting article ...\n";
- }
+ print "$$ActName: Posting article ...\n" if($Options{'v'});
post(\@Article);
- if($Options{'v'}) {
- print "$$ActName: Save status information.\n";
- }
+ # Test mode?
+ return if($Options{'t'});
+
+ print "$$ActName: Save status information.\n" if($Options{'v'});
open (FH, ">$$File.cfg") or die "$0: E: Can't open $$File.cfg: $!";
print FH "##;; Lastpost: $day.$month.$year\n";