Revision adbc100a
Von Sven Schöling vor mehr als 8 Jahren hinzugefügt
| SL/Mailer.pm | ||
|---|---|---|
| 38 | 38 |
|
| 39 | 39 |
my $num_sent = 0; |
| 40 | 40 |
|
| 41 |
my %mail_delivery_modules = ( |
|
| 42 |
sendmail => 'SL::Mailer::Sendmail', |
|
| 43 |
smtp => 'SL::Mailer::SMTP', |
|
| 44 |
); |
|
| 45 |
|
|
| 41 | 46 |
sub new {
|
| 42 | 47 |
my ($type, %params) = @_; |
| 43 | 48 |
my $self = { %params };
|
| ... | ... | |
| 54 | 59 |
myconfig => \%::myconfig, |
| 55 | 60 |
); |
| 56 | 61 |
|
| 57 |
my $module = ($::lx_office_conf{mail_delivery}->{method} || 'smtp') ne 'smtp' ? 'SL::Mailer::Sendmail' : 'SL::Mailer::SMTP';
|
|
| 62 |
my $module = $mail_delivery_modules{ $::lx_office_conf{mail_delivery}->{method} };
|
|
| 58 | 63 |
eval "require $module" or return undef; |
| 59 | 64 |
|
| 60 | 65 |
return $module->new(%params); |
Auch abrufbar als: Unified diff
config: maildelivery.method kann jetzt auch Mailversand unterdrücken