Alter requeue logic for MSDiskStore.pm (#568)

This commit is contained in:
Shawn Iverson 2021-11-14 20:20:33 -05:00 committed by GitHub
parent 02faca0545
commit cdbb39a32f
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
3 changed files with 9 additions and 8 deletions

View file

@ -1 +1 @@
5.4.2-1
5.4.2-2

View file

@ -1,3 +1,8 @@
11/14/2021 Changes in v5.4.2-2 (beta)
==================================
- Eliminate queue id change in MSDiskStore.pm
11/14/2021 Changes in v5.4.2-1 (beta)
==================================

View file

@ -335,14 +335,10 @@ sub WriteHeader {
MailScanner::Lock::unlockclose($Tf);
undef $Tf; # Try to ensure Tf is completely closed, flushed, everything
my $hdoutfile;
my $hddirbase;
($hddirbase, $hdoutfile) =
MailScanner::Sendmail::HDOutFileName($tfile);
rename "$tfile", "$hddirbase/$hdoutfile"
rename "$tfile", $Outq . '/' . $message->{id}
or MailScanner::Log::DieLog("Cannot rename clean %s to %s, %s",
$tfile, $hdoutfile, $!);
MailScanner::Log::InfoLog("Requeue: %s to %s", $message->{id},$hdoutfile);
$tfile, $message->{id}, $!);
MailScanner::Log::InfoLog("Requeue: %s to %s", $message->{id},$message->{id});
}
# Return the size of the message (Header+body)