From: Thomas Hochstein <thh@inter.net>
Date: Sat, 29 May 2021 07:47:17 +0000 (+0200)
Subject: Add MID to error message to make it more useful.
X-Git-Url: https://code.th-h.de/?p=usenet%2Fnewsstats.git;a=commitdiff_plain;h=6deb7dbaa46e4c04a7fe372bd4faf04f2b679d31;hp=48c8d4bb8e0585ce26e63d1332e6efb20babdf6f

Add MID to error message to make it more useful.

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

diff --git a/bin/parsedb.pl b/bin/parsedb.pl
index b4c2056..a5b2ce8 100755
--- a/bin/parsedb.pl
+++ b/bin/parsedb.pl
@@ -258,9 +258,9 @@ while (my $HeadersR = $DBQuery->fetchrow_hashref) {
                                        split(/ /,'? ' x scalar(@DBFields)))
                                 ));
   $DBWrite->execute(@SQLBindVars)
-      or &Bleat(2,sprintf("Can't write parsed data for %s to %s.%s: ".
+      or &Bleat(2,sprintf("Can't write parsed data for %s to %s.%s for %s: ".
                           "$DBI::errstr\n",$Period,
-                          $Conf{'DBDatabase'},$Conf{'DBTableParse'}));
+                          $Conf{'DBDatabase'},$Conf{'DBTableParse'}, $Headers{'mid'}));
     $DBWrite->finish;
   }
 };