From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 7 Nov 2007 09:18:10 +0000 (+0000)
Subject: Verhindern, dass zwei von Lx-Office erzeugte Mails identische message IDs haben können.
X-Git-Tag: release-2.6.0beta1~420
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=ba36bef4c0fa070e603e89e39daac2f6d2a402d5;p=kivitendo-erp.git

Verhindern, dass zwei von Lx-Office erzeugte Mails identische message IDs haben können.
---

diff --git a/SL/Mailer.pm b/SL/Mailer.pm
index 35cc57a75..234b6a784 100644
--- a/SL/Mailer.pm
+++ b/SL/Mailer.pm
@@ -33,6 +33,8 @@ package Mailer;
 use SL::Common;
 use SL::Template;
 
+my $num_sent = 0;
+
 sub new {
   $main::lxdebug->enter_sub();
 
@@ -94,7 +96,8 @@ sub send {
 
   local (*IN, *OUT);
 
-  my $boundary =  time();
+  $num_sent++;
+  my $boundary = time() . "-$$-${num_sent}";
   $boundary    =  "LxOffice-$self->{version}-$boundary";
   my $domain   =  $self->{from};
   $domain      =~ s/(.*?\@|>)//g;