projekt kivitendo

package SL::BackgroundJob::SyncEmailFolder;

use strict;

use warnings;

use parent qw(SL::BackgroundJob::Base);

use SL::IMAPClient;

use SL::DB::Manager::EmailImport;

sub sync_email_folder {

  my ($self) = @_;

  my $folder = $self->{job_obj}->data_as_hash->{folder};

  my $imap_client = SL::IMAPClient->new();

  my $email_import = $imap_client->update_emails_from_folder($folder);

  return unless $email_import;

  $self->{job_obj}->set_data(last_email_import_id => $email_import->id)->save;

}

sub delete_email_imports {

  my ($self) = @_;

  my $job_obj = $self->{job_obj};

  my $email_import_ids_to_delete =

    $job_obj->data_as_hash->{email_import_ids_to_delete} || [];

  foreach my $email_import_id (@$email_import_ids_to_delete) {

    my $email_import = SL::DB::Manager::EmailImport->find_by(id => $email_import_id);

    next unless $email_import;

    $email_import->delete(cascade => 1);

  }

  $job_obj->set_data(email_import_ids_to_delete => [])->save;

}

sub run {

  my ($self, $job_obj) = @_;

  $self->{job_obj} = $job_obj;

  $self->delete_email_imports();

  $self->sync_email_folder();

  return;

}

1;

__END__

=encoding utf8

=head1 NAME

SL::BackgroundJob::SyncEmailFolder - Background job for syncing emails from a folder

=head1 SYNOPSIS

This background job is used to sync emails from a folder. It can be used to sync

emails from a folder on a regular basis for multiple folders. The folder to sync

is specified in the data field 'folder' of the background job, by default the

folder 'base_folder' from IMAP client is used. Sub folders are separated by a

forward slash, e.g. 'INBOX/Archive'. Subfolders are not synced.

=head1 BUGS

Nothing here yet.

=head1 AUTHOR

Tamino Steinert E<lt>tamino.steinert@tamino.stE<gt>

=cut