From: Thomas Hochstein <thh@inter.net>
Date: Fri, 26 Feb 2010 07:28:06 +0000 (+0100)
Subject: Fix: Test mode must not update status information.
X-Git-Tag: v0.6.1~1
X-Git-Url: https://code.th-h.de/?p=usenet%2Fyapfaq.git;a=commitdiff_plain;h=5ddba442dab41b5b28d060320a9e2363a768a9a5

Fix: Test mode must not update status information.

Also fix runtime warning concerning expires.

Signed-off-by: Thomas Hochstein <thh@inter.net>
---

diff --git a/yapfaq.pl b/yapfaq.pl
index 8e607e2..a6dc986 100644
--- a/yapfaq.pl
+++ b/yapfaq.pl
@@ -151,7 +151,7 @@ sub readconfig{
     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*$/) {
+    unless(!$$Config[$i]{'expires'} || $$Config[$i]{'expires'} =~ /^\s*\d+\s*[dwmy]\s*$/) {
       $$Config[$i]{'expires'} = '3m'; # set default: 3 month
 	  warn "$0: W: The Expires for your project \"$$Config[$i]{'name'}\" is invalid - set to 3 month.\n";
     }
@@ -266,6 +266,9 @@ sub postfaq {
   }
   post(\@Article);
 
+  # Test mode?
+  return if($Options{'t'});
+
   if($Options{'v'}) {
     print "$$ActName: Save status information.\n";
   }