1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
# NOTE: Derived from blib/lib/Mail/Internet.pm.
# Changes made here will be lost when autosplit again.
# See AutoSplit.pm.
package Mail::Internet;
#line 524 "blib/lib/Mail/Internet.pm (autosplit into blib/lib/auto/Mail/Internet/_prephdr.al)"
sub _prephdr {
use Mail::Util;
my $hdr = shift;
$hdr->delete('From '); # Just in case :-)
# An original message should not have any Received lines
$hdr->delete('Received');
$hdr->replace('X-Mailer', "Perl5 Mail::Internet v".$Mail::Internet::VERSION)
unless $hdr->count('X-Mailer');
my $name = eval {local $SIG{__DIE__}; (getpwuid($>))[6]} || $ENV{NAME} ||"";
while($name =~ s/\([^\(\)]*\)//) { 1; }
if($name =~ /[^\w\s]/) {
$name =~ s/"/\"/g;
$name = '"' . $name . '"';
}
my $from = sprintf "%s <%s>", $name, Mail::Util::mailaddress();
$from =~ s/\s{2,}/ /g;
my $tag;
foreach $tag (qw(From Sender)) { # Sender is deprecated
$hdr->add($tag,$from)
unless($hdr->get($tag));
}
}
# end of Mail::Internet::_prephdr
1;
|
