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 4bdca33e4a45dee84a32e6958288f10689025e78..aaaebcdd265c13d6bfbaea3c55892a013627814c 100755 (executable)
--- 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");