blob: b805db2fc4b63f6df85414e209073264be79f95c (
plain)
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
|
package Iurt::Mail;
use strict;
use MIME::Words qw(encode_mimewords);
use base qw(Exporter);
our @EXPORT = qw(
sendmail
);
sub sendmail {
my ($to, $cc, $subject, $text, $from, $debug) = @_;
do { print "Cannot find sender-email-address [$to]\n"; return } unless defined($to);
my $MAIL;
if (!$debug) { open $MAIL, "| /usr/sbin/sendmail -t" or return } else { open $MAIL, ">&STDOUT" or return }
my $sender = encode_mimewords($to);
$subject = encode_mimewords($subject);
print $MAIL "To: $sender\n";
if ($cc) { $cc = encode_mimewords($cc); print $MAIL "Cc: $cc\n" }
print $MAIL "From: $from\n";
print $MAIL "Subject: $subject\n";
print $MAIL "\n";
print $MAIL $text;
close($MAIL);
}
1
|
