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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|
package JWebmail::Model::WriteMails;
use v5.18;
use warnings;
use utf8;
use Exporter 'import';
our @EXPORT_OK = qw(sendmail);
use Email::MIME;
our $Block_Writes = 0;
sub _build_mail {
my $mail = shift;
my $text_part = Email::MIME->create(
attributes => {
content_type => 'text/plain',
charset => 'utf-8',
encoding => '8bit',
},
body_str => $mail->{message},
);
my $attach;
$attach = Email::MIME->create(
attributes => {
content_type => $mail->{attach_type},
encoding => 'base64',
},
body => $mail->{attach}->asset->slurp,
) if $mail->{attach};
my $email = Email::MIME->create(
header_str => [
From => $mail->{from},
To => $mail->{to},
Subject => $mail->{subject},
'X-Mailer' => 'JWebmail',
],
parts => [$text_part, $attach || () ],
);
$email->header_str_set(CC => @{$mail->{cc}}) if $mail->{cc};
$email->header_str_set('Reply-To' => $mail->{reply}) if $mail->{reply};
return $email->as_string;
}
sub _send {
my ($mime, @recipients) = @_;
open(my $m, '|-', 'sendmail', '-i', @recipients)
or die 'Connecting to sendmail failed. Is it in your PATH?';
$m->print($mime->as_string);
close($m);
return $? >> 8;
}
sub sendmail {
my $mail = shift;
my $mime = _build_mail($mail);
my @recipients;
push @recipients, @{ $mail->{to} } if $mail->{to};
push @recipients, @{ $mail->{cc} } if $mail->{cc};
push @recipients, @{ $mail->{bcc} } if $mail->{bcc};
say $mime if $Block_Writes;
return 1 if $Block_Writes;
return _send($mime, @recipients);
}
1
__END__
=encoding utf-8
=head1 NAME
WriteMails - Build and send mails via a sendmail interface
=head1 SYNOPSIS
JWebmail::Model::WriteMails::sendmail {
from => ...,
to => ...,
subject => ...,
};
=head1 DESCRIPTION
Build and send mails.
=head1 FUNCTIONS
=head2 sendmail
Send the mail immediately.
=head3 from
The sender.
=head3 to
The recipient(s).
=head3 reply
The address the recipient is meant to reply to (optinal, if missing from is assumed).
=head3 cc
Secondary recipients, visible to other.
=head3 bcc
Secondary recipients, invisible to other.
=head3 subject
=head3 message
The message body. Should be plain text encoded as utf-8.
=head3 attach
Optinal attachment.
=head3 attach_type
The mime type of the attachment.
=cut
|
