kivitendo/SL/BackgroundJob/CleanUpEmailSubfolders.pm @ 59469062
| 0eebc84f | Tamino Steinert | package SL::BackgroundJob::CleanUpEmailSubfolders;
|
||
use strict;
|
||||
use warnings;
|
||||
use parent qw(SL::BackgroundJob::Base);
|
||||
use SL::IMAPClient;
|
||||
sub clean_up_subfolders {
|
||||
my ($self) = @_;
|
||||
my $imap_client = SL::IMAPClient->new();
|
||||
my $open_sales_orders = SL::DB::Manager::Order->get_all(
|
||||
query => [
|
||||
vendor_id => undef,
|
||||
closed => 0,
|
||||
],
|
||||
);
|
||||
| 399b215e | Tamino Steinert | $imap_client->clean_up_subfolders($open_sales_orders);
|
||
| 0eebc84f | Tamino Steinert | }
|
||
sub run {
|
||||
my ($self, $job_obj) = @_;
|
||||
$self->{job_obj} = $job_obj;
|
||||
$self->clean_up_subfolders();
|
||||
return;
|
||||
}
|
||||
1;
|
||||
__END__
|
||||
=encoding utf8
|
||||
=head1 NAME
|
||||
SL::BackgroundJob::CleanUpEmailSubfolders - Background job for removing all email
|
||||
subfolders except open records.
|
||||
=head1 SYNOPSIS
|
||||
This background job syncs all emails in subfolders and adds emails files to the
|
||||
corresponding record. After that is removes all subfolders except for open
|
||||
records.
|
||||
=head1 BUGS
|
||||
Nothing here yet.
|
||||
=head1 AUTHOR
|
||||
Tamino Steinert E<lt>tamino.steinert@tamino.stE<gt>
|
||||
=cut
|