Revision 2402df8b
Von Tamino Steinert vor fast 2 Jahren hinzugefügt
| SL/BackgroundJob/SyncEmailFolder.pm | ||
|---|---|---|
|
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
|
||
| SL/BackgroundJob/SyncEmailInbox.pm | ||
|---|---|---|
|
package SL::BackgroundJob::SyncEmailInbox;
|
||
|
|
||
|
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
|
||
Auch abrufbar als: Unified diff
BJ: Email Ordner synchronisieren umbenannt zu SyncEmailFolder
Dies trifft die Aufgabe besser.