Add MID to error message to make it more useful.

Signed-off-by: Thomas Hochstein <thh@inter.net>
This commit is contained in:
Thomas Hochstein 2021-05-29 09:47:17 +02:00
parent 48c8d4bb8e
commit 6deb7dbaa4

View file

@ -258,9 +258,9 @@ while (my $HeadersR = $DBQuery->fetchrow_hashref) {
split(/ /,'? ' x scalar(@DBFields))) split(/ /,'? ' x scalar(@DBFields)))
)); ));
$DBWrite->execute(@SQLBindVars) $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, "$DBI::errstr\n",$Period,
$Conf{'DBDatabase'},$Conf{'DBTableParse'})); $Conf{'DBDatabase'},$Conf{'DBTableParse'}, $Headers{'mid'}));
$DBWrite->finish; $DBWrite->finish;
} }
}; };