From: Thomas Hochstein <thh@inter.net>
Date: Sun, 19 Sep 2010 11:27:28 +0000 (+0200)
Subject: feedlog.pl: Fix annoying logging error.
X-Git-Tag: 0.01~23
X-Git-Url: https://code.th-h.de/?p=usenet%2Fnewsstats.git;a=commitdiff_plain;h=76ead5f97bbc730e39d50d188aa11eb6fc7dcffb

feedlog.pl: Fix annoying logging error.

warn() output to errlog was not activated by '-d' debug
switch, but on by default and just deactivated by '-d'.

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

diff --git a/feedlog.pl b/feedlog.pl
index 7986249..61311ac 100755
--- a/feedlog.pl
+++ b/feedlog.pl
@@ -77,7 +77,7 @@ while (<>) {
   };
   $DBQuery->finish;
   
-  warn sprintf("-----\nDay: %s\nDate: %s\nMID: %s\nTS: %s\nToken: %s\nSize: %s\nPeer: %s\nPath: %s\nNewsgroups: %s\nHeaders: %s\n",$Day, $Date, $Mid, $Timestamp, $Token, $Size, $Peer, $Path, $Newsgroups, $Headers) if !$Options{'d'};
+  warn sprintf("-----\nDay: %s\nDate: %s\nMID: %s\nTS: %s\nToken: %s\nSize: %s\nPeer: %s\nPath: %s\nNewsgroups: %s\nHeaders: %s\n",$Day, $Date, $Mid, $Timestamp, $Token, $Size, $Peer, $Path, $Newsgroups, $Headers) if $Options{'d'};
 }
 
 ### close handles