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
|
# --
# Kernel/System/Email/SMTP.pm - the global email send module
# Copyright (C) 2001-2004 Martin Edenhofer <martin+code@otrs.org>
# --
# $Id: SMTP.pm,v 1.9 2004/12/04 18:27:40 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 Net::SMTP;
use vars qw($VERSION);
$VERSION = '$Revision: 1.9 $';
$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)) {
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},
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;
}
}
$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;
|
