Revision 6cac7ef5
Von Tamino Steinert vor etwa 1 Jahr hinzugefügt
| SL/Mailer.pm | ||
|---|---|---|
| 23 | 23 |
|
| 24 | 24 |
package Mailer; |
| 25 | 25 |
|
| 26 |
use IO::Socket::INET; |
|
| 27 |
use IO::Socket::SSL; |
|
| 28 |
use Mail::IMAPClient; |
|
| 26 | 29 |
use Email::Address; |
| 27 | 30 |
use Email::MIME::Creator; |
| 28 | 31 |
use Encode; |
| ... | ... | |
| 303 | 306 |
|
| 304 | 307 |
$error = $@ if !$ok; |
| 305 | 308 |
|
| 309 |
$self->_store_in_imap_sent_folder() or do {
|
|
| 310 |
$ok = 0; |
|
| 311 |
push @$error, $@; |
|
| 312 |
}; |
|
| 313 |
|
|
| 306 | 314 |
# create journal and link to record |
| 307 | 315 |
$self->{journalentry} = $self->_store_in_journal;
|
| 308 | 316 |
$self->_create_record_link if $self->{journalentry};
|
| ... | ... | |
| 316 | 324 |
return map { @{ $self->{addresses}->{$_} || [] } } qw(to cc bcc);
|
| 317 | 325 |
} |
| 318 | 326 |
|
| 327 |
sub _get_header_string {
|
|
| 328 |
my ($self) = @_; |
|
| 329 |
my $header_string = |
|
| 330 |
join "\r\n", |
|
| 331 |
(bundle_by { join(': ', @_) } 2, @{ $self->{headers} || [] });
|
|
| 332 |
return $header_string; |
|
| 333 |
} |
|
| 334 |
|
|
| 335 |
sub _store_in_imap_sent_folder {
|
|
| 336 |
my ($self) = @_; |
|
| 337 |
my $config = $::lx_office_conf{sent_emails_in_imap} || {};
|
|
| 338 |
return unless ($config->{enabled} && $config->{hostname});
|
|
| 339 |
|
|
| 340 |
my $socket; |
|
| 341 |
if ($config->{ssl}) {
|
|
| 342 |
$socket = IO::Socket::SSL->new( |
|
| 343 |
Proto => 'tcp', |
|
| 344 |
PeerAddr => $config->{hostname},
|
|
| 345 |
PeerPort => $config->{port} || 993,
|
|
| 346 |
); |
|
| 347 |
} else {
|
|
| 348 |
$socket = IO::Socket::INET->new( |
|
| 349 |
Proto => 'tcp', |
|
| 350 |
PeerAddr => $config->{hostname},
|
|
| 351 |
PeerPort => $config->{port} || 143,
|
|
| 352 |
); |
|
| 353 |
} |
|
| 354 |
if (!$socket) {
|
|
| 355 |
die "Failed to create socket for IMAP client: $@\n"; |
|
| 356 |
} |
|
| 357 |
|
|
| 358 |
# TODO: get email and password for each user |
|
| 359 |
my $imap = Mail::IMAPClient->new( |
|
| 360 |
Socket => $socket, |
|
| 361 |
User => $config->{username},
|
|
| 362 |
Password => $config->{password},
|
|
| 363 |
) or do {
|
|
| 364 |
die "Failed to create IMAP Client: $@\n" |
|
| 365 |
}; |
|
| 366 |
|
|
| 367 |
$imap->IsAuthenticated() or do {
|
|
| 368 |
die "IMAP Client login failed: " . $imap->LastError() . "\n"; |
|
| 369 |
}; |
|
| 370 |
|
|
| 371 |
my $separator = $imap->separator(); |
|
| 372 |
my $folder = $config->{folder} || 'INBOX/Sent';
|
|
| 373 |
$folder =~ s|/|${separator}|g;
|
|
| 374 |
|
|
| 375 |
my $header_string = $self->_get_header_string; |
|
| 376 |
my $email_string = $header_string. "\n" . $self->{message};
|
|
| 377 |
|
|
| 378 |
# TODO: doesn't stop with non ASCII-Chars |
|
| 379 |
# In test file it works like a charm !? |
|
| 380 |
$imap->append_string($folder, $email_string) or do {
|
|
| 381 |
$imap->logout(); |
|
| 382 |
die "IMAP Client append failed: " . $imap->LastError() . "\n"; |
|
| 383 |
}; |
|
| 384 |
|
|
| 385 |
$imap->logout(); |
|
| 386 |
return 1; |
|
| 387 |
} |
|
| 388 |
|
|
| 319 | 389 |
sub _store_in_journal {
|
| 320 | 390 |
my ($self, $status, $extended_status) = @_; |
| 321 | 391 |
|
| ... | ... | |
| 328 | 398 |
$extended_status //= $self->{driver}->extended_status if $self->{driver};
|
| 329 | 399 |
$extended_status //= 'unknown error'; |
| 330 | 400 |
|
| 331 |
my $headers = join "\r\n", (bundle_by { join(': ', @_) } 2, @{ $self->{headers} || [] });
|
|
| 401 |
my $headers = $self->_get_header_string;
|
|
| 332 | 402 |
|
| 333 | 403 |
my $jentry = SL::DB::EmailJournal->new( |
| 334 | 404 |
sender => SL::DB::Manager::Employee->current, |
Auch abrufbar als: Unified diff
Mail: Beim senden einer Mail diese in einem Ordner über IMAP ablegen