1 |
36 |
ahitrov@rambler.ru |
<%args> |
2 |
|
|
|
3 |
|
|
$email => undef |
4 |
65 |
ahitrov@rambler.ru |
$etype => 'mixed' |
5 |
36 |
ahitrov@rambler.ru |
|
6 |
|
|
</%args> |
7 |
|
|
<%init> |
8 |
|
|
|
9 |
|
|
return unless ref $email; |
10 |
|
|
|
11 |
|
|
use MIME::Lite; |
12 |
|
|
use MIME::Base64; |
13 |
|
|
|
14 |
|
|
my $subject = $email->{subject}; |
15 |
|
|
$subject = MIME::Base64::encode($subject); |
16 |
|
|
$subject =~ s/\s+$//si; |
17 |
|
|
$subject = '=?utf-8?B?'.$subject.'?='; |
18 |
|
|
|
19 |
|
|
my $emailfrom; |
20 |
|
|
my ($from, $efrom) = $email->{from} =~ /^(.*?)<(.*?)>/ ? ($1, $2) : $email->{from} =~ /<(.*?)>/ ? ('',$1) : ('',$email->{from}); |
21 |
|
|
if ( $from ) { |
22 |
|
|
$from = MIME::Base64::encode($from); |
23 |
|
|
$from =~ s/\s+$//si; |
24 |
|
|
$from = '=?utf-8?B?'.$from.'?='; |
25 |
|
|
$emailfrom = $from.' <'.$efrom.'>'; |
26 |
|
|
} else { |
27 |
|
|
$emailfrom = $efrom; |
28 |
|
|
} |
29 |
|
|
|
30 |
|
|
my $emailto; |
31 |
|
|
my ($to, $eto) = $email->{to} =~ /^(.*?)<(.*?)>/ ? ($1, $2) : $email->{to} =~ /<(.*?)>/ ? ('',$1) : ('',$email->{to}); |
32 |
|
|
if ( $to ) { |
33 |
|
|
$to = MIME::Base64::encode($to); |
34 |
|
|
$to =~ s/\s+$//si; |
35 |
|
|
$to = '=?utf-8?B?'.$to.'?='; |
36 |
|
|
$emailto = $to.' <'.$eto.'>'; |
37 |
|
|
} else { |
38 |
|
|
$emailto = $eto; |
39 |
|
|
} |
40 |
|
|
my $ccmail; |
41 |
|
|
if ( exists $email->{cc} && ref $email->{cc} eq 'ARRAY' ) { |
42 |
|
|
foreach my $cc ( @{ $email->{cc} } ) { |
43 |
|
|
my ($cce, $ecce) = $cc =~ /^(.*?)<(.*?)>/ ? ($1, $2) : $cc =~ /<(.*?)>/ ? ('',$1) : ('',$cc); |
44 |
|
|
$cc = $ecce; |
45 |
|
|
} |
46 |
|
|
$ccmail = join ', ', @{$email->{cc}}; |
47 |
|
|
} elsif ( exists $email->{cc} && $email->{cc} ) { |
48 |
|
|
my ($cce, $ecce) = $email->{cc} =~ /^(.*?)<(.*?)>/ ? ($1, $2) : $email->{cc} =~ /<(.*?)>/ ? ('',$1) : ('',$email->{cc}); |
49 |
|
|
$ccmail = $ecce; |
50 |
|
|
} |
51 |
|
|
|
52 |
|
|
|
53 |
|
|
my $body = $email->{body}; |
54 |
|
|
warn Dumper($email); |
55 |
|
|
my $dt = Contenido::DateTime->new; |
56 |
|
|
$dt->set_locale('en_EN'); |
57 |
|
|
my $pdate = $dt->strftime("%a, %d %b %Y %H:%M:%S %z"); |
58 |
|
|
my $msg = MIME::Lite->new( |
59 |
|
|
To => $emailto, |
60 |
|
|
From => $emailfrom, |
61 |
|
|
$ccmail ? ( Cc => $ccmail ) : (), |
62 |
|
|
Subject => $subject, |
63 |
65 |
ahitrov@rambler.ru |
# Encoding=> 'binary', |
64 |
36 |
ahitrov@rambler.ru |
Date => $pdate, |
65 |
65 |
ahitrov@rambler.ru |
Type => ($etype eq 'mixed' ? 'multipart/mixed' : $etype eq 'related' ? 'multipart/related;type="multipart/alternative";charset="koi8-r"' : $etype), |
66 |
36 |
ahitrov@rambler.ru |
); |
67 |
|
|
$msg->attach( |
68 |
|
|
'Type' => 'text/html;charset="utf-8"', |
69 |
|
|
'Data' => $body, |
70 |
|
|
'Disposition' => '', |
71 |
|
|
); |
72 |
|
|
|
73 |
|
|
$msg->send(); |
74 |
|
|
|
75 |
|
|
</%init> |