Revision f08d0b9d
Von Tamino Steinert vor etwa 1 Jahr hinzugefügt
SL/BackgroundJob/ImportPurchaseInvoiceEmails.pm | ||
---|---|---|
|
||
sub sync_email_folder {
|
||
my ($self) = @_;
|
||
my $folder = $self->{job_obj}->data_as_hash->{folder};
|
||
|
||
my $imap_client = SL::IMAPClient->new(%{$::lx_office_conf{purchase_invoice_emails_imap}});
|
||
|
||
my $email_import = $imap_client->update_emails_from_folder(
|
||
$folder,
|
||
my $email_import = $self->{imap_client}->update_emails_from_folder(
|
||
$self->{folder},
|
||
{
|
||
email_journal => {
|
||
extended_status => 'purchase_invoice_import',
|
||
},
|
||
}
|
||
);
|
||
$self->{email_import} = $email_import;
|
||
return unless $email_import;
|
||
|
||
return "Created email import: " . $email_import->id;
|
||
... | ... | |
|
||
sub clean_up_imported_emails {
|
||
my ($self) = @_;
|
||
my $folder = $self->{job_obj}->data_as_hash->{folder};
|
||
|
||
my $imap_client = SL::IMAPClient->new(%{$::lx_office_conf{purchase_invoice_emails_imap}});
|
||
|
||
$imap_client->clean_up_imported_emails_from_folder($folder);
|
||
$self->{imap_client}->clean_up_imported_emails_from_folder($self->{folder});
|
||
|
||
return "Cleaned imported emails";
|
||
}
|
||
... | ... | |
sub run {
|
||
my ($self, $job_obj) = @_;
|
||
$self->{job_obj} = $job_obj;
|
||
$self->{imap_client} = SL::IMAPClient->new(%{$::lx_office_conf{purchase_invoice_emails_imap}});
|
||
$self->{folder} = $self->{job_obj}->data_as_hash->{folder};
|
||
|
||
my @results;
|
||
push @results, $self->delete_email_imports();
|
Auch abrufbar als: Unified diff
ImportPurchaseInvoiceEmails: Email Client und Ordner im Objekt speichern