X-Git-Url: https://code.th-h.de/?p=usenet%2Fnewsstats.git;a=blobdiff_plain;f=bin%2Fparsedb.pl;fp=bin%2Fparsedb.pl;h=a5b2ce883794c5698f5e23cd92dfda2f6f90fd4d;hp=b4c20566ede19eb318ff5d90168b39bb778ca540;hb=6deb7dbaa46e4c04a7fe372bd4faf04f2b679d31;hpb=48c8d4bb8e0585ce26e63d1332e6efb20babdf6f

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