From e7a0cad41a7bd0d2d9e452bef2de92a8245eb786 Mon Sep 17 00:00:00 2001
From: Shawn Iverson <shawniverson@efa-project.org>
Date: Sun, 20 Feb 2022 15:06:23 -0500
Subject: [PATCH] Update 5.4.4-1 (#598)

* Version 5.4.4-1
---
 VERSION                                                |  2 +-
 changelog                                              | 10 ++++++++++
 .../usr/share/MailScanner/perl/MailScanner/MSMail.pm   |  2 +-
 .../share/MailScanner/perl/MailScanner/SweepOther.pm   |  4 ++--
 4 files changed, 14 insertions(+), 4 deletions(-)

diff --git a/VERSION b/VERSION
index 57ce52f7..0450a51d 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-5.4.3-2
+5.4.4-1
diff --git a/changelog b/changelog
index 8598f82f..8f71bf1d 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,13 @@
+02/20/2022 Changes in    v5.4.4-1
+==================================
+
+- Override Filetypes feature
+- Generalize detection of dat files
+- Improved handling of milterout queue files
+- Unfold Received header (postfix/sendmail)
+- Ensure HTTP::Date perl module is installed
+- Fix IP::Country::DB_File (Suse)
+
 01/04/2022 Changes in    v5.4.3-2
 ==================================
 
diff --git a/common/usr/share/MailScanner/perl/MailScanner/MSMail.pm b/common/usr/share/MailScanner/perl/MailScanner/MSMail.pm
index 13725af7..022d4dc7 100644
--- a/common/usr/share/MailScanner/perl/MailScanner/MSMail.pm
+++ b/common/usr/share/MailScanner/perl/MailScanner/MSMail.pm
@@ -953,7 +953,7 @@ sub new {
 
           # Should be only one queuedir in this setup
           $queuedirname = $queue;
-          $queuedir->$close;
+          $queuedir->close();
       }
 
       $queuehandle = new FileHandle();
diff --git a/common/usr/share/MailScanner/perl/MailScanner/SweepOther.pm b/common/usr/share/MailScanner/perl/MailScanner/SweepOther.pm
index dd2e4cbe..87c71bdc 100644
--- a/common/usr/share/MailScanner/perl/MailScanner/SweepOther.pm
+++ b/common/usr/share/MailScanner/perl/MailScanner/SweepOther.pm
@@ -695,7 +695,7 @@ sub CheckFileTypesRules {
       next if $attach eq "" && $safename eq "";
 
       if (MailScanner::Config::Value('overridefiletypes', $message) =~ /1/ && $message->{override}->{$safename} == 1) {
-        MailScanner::Log::InfoLog("Filetype Checks: Overriding checks for %s %s", $id, $safename);
+        MailScanner::Log::DebugLog("Debug: Filetype Checks: Overriding checks for %s %s", $id, $safename);
         next;
       }
 
@@ -910,7 +910,7 @@ sub CheckFileTypesRules {
       next if $attach eq "" && $safename eq "";
 
       if (MailScanner::Config::Value('overridefiletypes', $message) =~ /1/ && $message->{override}->{$safename} == 1) {
-        MailScanner::Log::InfoLog("Filetype Checks: Overriding checks for %s %s", $id, $safename);
+        MailScanner::Log::DebugLog("Debug: Filetype Checks: Overriding checks for %s %s", $id, $safename);
         next;
       }