From 6deb7dbaa46e4c04a7fe372bd4faf04f2b679d31 Mon Sep 17 00:00:00 2001
From: Thomas Hochstein <thh@inter.net>
Date: Sat, 29 May 2021 09:47:17 +0200
Subject: [PATCH] Add MID to error message to make it more useful.

Signed-off-by: Thomas Hochstein <thh@inter.net>
---
 bin/parsedb.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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;
   }
 };