From: unknown <sysadmin@gnu.org>
Date: Thu, 11 Mar 2010 14:48:51 +0000 (-0600)
Subject: Import version as of 2010-03-11 for upload-ftp-v1.1.pl
X-Git-Tag: 20200730__import~32
X-Git-Url: https://vcs.fsf.org/?a=commitdiff_plain;h=724ff3551ed830457bca6e714853e6a8e0bd55b2;p=gatekeeper.git

Import version as of 2010-03-11 for upload-ftp-v1.1.pl
---

diff --git a/upload-ftp-v1.1.pl b/upload-ftp-v1.1.pl
index 4bdca33..aaaebcd 100755
--- a/upload-ftp-v1.1.pl
+++ b/upload-ftp-v1.1.pl
@@ -95,6 +95,7 @@ use Date::Manip;
 use Sys::Syslog qw(:DEFAULT setlogsock);
 use Getopt::Long;
 use Text::Wrap;
+use Email::MessageID;
 umask (022);
 
 $ENV{"LC_ALL"} = "C";  # do not think about multibyte characters
@@ -1159,6 +1160,8 @@ sub mail {
     			ftp_syslog('warning', "($log_style) Error uploading package: $msg");
     			ftp_syslog('info', "($log_style) Subject: generic failure");
       }
+      my $mid = Email::MessageID->new;
+      $smtp->datasend("Message-ID: $mid");
       $smtp->datasend ("\n\n");
       ftp_syslog('info', "($log_style) Body: $msg");