Revision ba36bef4
Von Moritz Bunkus vor etwa 17 Jahren hinzugefügt
| SL/Mailer.pm | ||
|---|---|---|
| 33 | 33 |
use SL::Common; |
| 34 | 34 |
use SL::Template; |
| 35 | 35 |
|
| 36 |
my $num_sent = 0; |
|
| 37 |
|
|
| 36 | 38 |
sub new {
|
| 37 | 39 |
$main::lxdebug->enter_sub(); |
| 38 | 40 |
|
| ... | ... | |
| 94 | 96 |
|
| 95 | 97 |
local (*IN, *OUT); |
| 96 | 98 |
|
| 97 |
my $boundary = time(); |
|
| 99 |
$num_sent++; |
|
| 100 |
my $boundary = time() . "-$$-${num_sent}";
|
|
| 98 | 101 |
$boundary = "LxOffice-$self->{version}-$boundary";
|
| 99 | 102 |
my $domain = $self->{from};
|
| 100 | 103 |
$domain =~ s/(.*?\@|>)//g; |
Auch abrufbar als: Unified diff
Verhindern, dass zwei von Lx-Office erzeugte Mails identische message IDs haben können.