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
|
# --
# Kernel/System/Email/SMTP.pm - the global email send module
# Copyright (C) 2001-2007 OTRS GmbH, http://otrs.org/
# --
# $Id: SMTP.pm,v 1.14 2007/08/22 09:35:23 martin Exp $
# --
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
# the enclosed file COPYING for license information (GPL). If you
# did not receive this file, see http://www.gnu.org/licenses/gpl.txt.
# --
package Kernel::System::Email::SMTP;
use strict;
use warnings;
use Net::SMTP;
use vars qw($VERSION);
$VERSION = '$Revision: 1.14 $';
$VERSION =~ s/^\$.*:\W(.*)\W.+?$/$1/;
sub new {
my $Type = shift;
my %Param = @_;
# allocate new hash for object
my $Self = {};
bless ($Self, $Type);
# get common opjects
foreach (keys %Param) {
$Self->{$_} = $Param{$_};
}
# check all needed objects
foreach (qw(ConfigObject LogObject EncodeObject)) {
die "Got no $_" if (!$Self->{$_});
}
# debug
$Self->{Debug} = $Param{Debug} || 0;
if ($Self->{Debug} > 2) {
# shown on STDERR
$Self->{SMTPDebug} = 1;
}
# smtp timeout in sec
$Self->{SMTPTimeout} = 30;
# get config data
$Self->{FQDN} = $Self->{ConfigObject}->Get('FQDN');
$Self->{MailHost} = $Self->{ConfigObject}->Get('SendmailModule::Host') ||
die "No SendmailModule::Host found in Kernel/Config.pm";
$Self->{SMTPPort} = $Self->{ConfigObject}->Get('SendmailModule::Port') || 'smtp(25)';
$Self->{User} = $Self->{ConfigObject}->Get('SendmailModule::AuthUser');
$Self->{Password} = $Self->{ConfigObject}->Get('SendmailModule::AuthPassword');
return $Self;
}
sub Send {
my $Self = shift;
my %Param = @_;
my $ToString = '';
# check needed stuff
foreach (qw(Header Body ToArray)) {
if (!$Param{$_}) {
$Self->{LogObject}->Log(Priority => 'error', Message => "Need $_!");
return;
}
}
if (!$Param{From}) {
$Param{From} = "";
}
# send mail
if ($Self->{SMTPObject} = Net::SMTP->new(
$Self->{MailHost},
Hello => $Self->{FQDN},
Port => $Self->{SMTPPort},
Timeout => $Self->{SMTPTimeout},
Debug => $Self->{SMTPDebug})) {
if ($Self->{User} && $Self->{Password}) {
if (!$Self->{SMTPObject}->auth($Self->{User}, $Self->{Password})) {
$Self->{LogObject}->Log(
Priority => 'error',
Message => "SMTP authentication failed! Enable debug for more info!",
);
$Self->{SMTPObject}->quit();
return;
}
}
if (!$Self->{SMTPObject}->mail($Param{From})) {
# log error
$Self->{LogObject}->Log(
Priority => 'error',
Message => "Can't use from: $Param{From}! Enable debug for more info!",
);
$Self->{SMTPObject}->quit;
return;
}
foreach (@{$Param{ToArray}}) {
$ToString .= "$_,";
if (!$Self->{SMTPObject}->to($_)) {
# log error
$Self->{LogObject}->Log(
Priority => 'error',
Message => "Can't send to: $_! Enable debug for more info!",
);
$Self->{SMTPObject}->quit;
return;
}
}
# encode utf8 header strings (of course, there should only be 7 bit in there!)
$Self->{EncodeObject}->EncodeOutput($Param{Header});
# encode utf8 body strings
$Self->{EncodeObject}->EncodeOutput($Param{Body});
# send data
$Self->{SMTPObject}->data();
$Self->{SMTPObject}->datasend(${$Param{Header}});
$Self->{SMTPObject}->datasend("\n");
$Self->{SMTPObject}->datasend(${$Param{Body}});
$Self->{SMTPObject}->dataend();
$Self->{SMTPObject}->quit;
# debug
if ($Self->{Debug} > 2) {
$Self->{LogObject}->Log(
Message => "Sent email to '$ToString' from '$Param{From}'.",
);
}
return 1;
}
else {
# log error
$Self->{LogObject}->Log(
Priority => 'error',
Message => "Can't connect to $Self->{MailHost}: $!!",
);
return;
}
}
1;
|
