package SL::BackgroundJob::CleanUpEmailSubfolders;

use strict;
use warnings;

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

use SL::IMAPClient;

sub clean_up_record_subfolders {
  my ($self) = @_;
  my $imap_client = SL::IMAPClient->new(%{$::lx_office_conf{imap_client}});

  my $open_sales_orders = SL::DB::Manager::Order->get_all(
    query => [
      vendor_id => undef,
      closed => 0,
    ],
  );

  $imap_client->clean_up_record_subfolders(active_records => $open_sales_orders);
}

sub run {
  my ($self, $job_obj) = @_;
  $self->{job_obj} = $job_obj;

  $self->clean_up_record_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