Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision f08d0b9d

Von Tamino Steinert vor etwa 1 Jahr hinzugefügt

  • ID f08d0b9d844a270ed2d23edfbcfffd3fed595e6e
  • Vorgänger d3875936
  • Nachfolger c0f915d4

ImportPurchaseInvoiceEmails: Email Client und Ordner im Objekt speichern

Unterschiede anzeigen:

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