Revision 0572a0b8
Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt
| SL/Mailer.pm | ||
|---|---|---|
| 25 | 25 |
|
| 26 | 26 |
use IO::Socket::INET; |
| 27 | 27 |
use IO::Socket::SSL; |
| 28 |
use Mail::IMAPClient; |
|
| 29 | 28 |
use Email::Address; |
| 30 | 29 |
use Email::MIME::Creator; |
| 31 | 30 |
use Encode; |
| ... | ... | |
| 41 | 40 |
use SL::Locale::String qw(t8); |
| 42 | 41 |
use SL::Template; |
| 43 | 42 |
use SL::Version; |
| 43 |
use SL::IMAPClient; |
|
| 44 | 44 |
|
| 45 | 45 |
use strict; |
| 46 | 46 |
|
| ... | ... | |
| 348 | 348 |
|| $::lx_office_conf{"sent_emails_in_imap/email/$user_email"}
|
| 349 | 349 |
|| $::lx_office_conf{sent_emails_in_imap}
|
| 350 | 350 |
|| {};
|
| 351 |
return unless ($config->{enabled} && $config->{hostname});
|
|
| 352 |
|
|
| 353 |
my $socket; |
|
| 354 |
if ($config->{ssl}) {
|
|
| 355 |
$socket = IO::Socket::SSL->new( |
|
| 356 |
Proto => 'tcp', |
|
| 357 |
PeerAddr => $config->{hostname},
|
|
| 358 |
PeerPort => $config->{port} || 993,
|
|
| 359 |
); |
|
| 360 |
} else {
|
|
| 361 |
$socket = IO::Socket::INET->new( |
|
| 362 |
Proto => 'tcp', |
|
| 363 |
PeerAddr => $config->{hostname},
|
|
| 364 |
PeerPort => $config->{port} || 143,
|
|
| 365 |
); |
|
| 366 |
} |
|
| 367 |
if (!$socket) {
|
|
| 368 |
die "Failed to create socket for IMAP client: $@\n"; |
|
| 369 |
} |
|
| 351 |
return unless ($config->{enabled});
|
|
| 370 | 352 |
|
| 371 |
my $imap = Mail::IMAPClient->new( |
|
| 372 |
Socket => $socket, |
|
| 373 |
User => $config->{username},
|
|
| 374 |
Password => $config->{password},
|
|
| 375 |
) or do {
|
|
| 376 |
die "Failed to create IMAP Client: $@\n" |
|
| 377 |
}; |
|
| 353 |
my $imap_client = SL::IMAPClient->new(%$config); |
|
| 378 | 354 |
|
| 379 |
$imap->IsAuthenticated() or do {
|
|
| 380 |
die "IMAP Client login failed: " . $imap->LastError() . "\n"; |
|
| 381 |
}; |
|
| 382 |
|
|
| 383 |
my $separator = $imap->separator(); |
|
| 384 |
my $folder = $config->{folder} || 'Sent/Kivitendo';
|
|
| 385 |
$folder =~ s|/|${separator}|g;
|
|
| 386 |
|
|
| 387 |
$imap->append_string($folder, $email_as_string) or do {
|
|
| 388 |
my $last_error = $imap->LastError(); |
|
| 389 |
$imap->logout(); |
|
| 390 |
die "IMAP Client append failed: $last_error\n"; |
|
| 391 |
}; |
|
| 355 |
$imap_client->store_email_in_email_folder( |
|
| 356 |
$email_as_string, |
|
| 357 |
$config->{folder} ||'Sent/Kivitendo'
|
|
| 358 |
); |
|
| 392 | 359 |
|
| 393 |
$imap->logout(); |
|
| 394 | 360 |
return 1; |
| 395 | 361 |
} |
| 396 | 362 |
|
Auch abrufbar als: Unified diff
Imap-Sent verschiebe IMAP-Logik nach IMAPClient