Revision 96cb201a
Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt
| SL/BackgroundJob/CleanUpEmailSubfolders.pm | ||
|---|---|---|
|
|
||
|
use SL::IMAPClient;
|
||
|
|
||
|
sub clean_up_subfolders {
|
||
|
sub clean_up_record_subfolders {
|
||
|
my ($self) = @_;
|
||
|
my $imap_client = SL::IMAPClient->new();
|
||
|
|
||
| ... | ... | |
|
],
|
||
|
);
|
||
|
|
||
|
$imap_client->clean_up_subfolders($open_sales_orders);
|
||
|
$imap_client->clean_up_record_subfolders($open_sales_orders);
|
||
|
}
|
||
|
|
||
|
sub run {
|
||
|
my ($self, $job_obj) = @_;
|
||
|
$self->{job_obj} = $job_obj;
|
||
|
|
||
|
$self->clean_up_subfolders();
|
||
|
$self->clean_up_record_subfolders();
|
||
|
|
||
|
return;
|
||
|
}
|
||
| SL/IMAPClient.pm | ||
|---|---|---|
|
return;
|
||
|
}
|
||
|
|
||
|
sub clean_up_subfolders {
|
||
|
sub clean_up_record_subfolders {
|
||
|
my ($self, $active_records) = @_;
|
||
|
|
||
|
my $subfolder_strings =
|
||
| ... | ... | |
|
e.g. INBOX/1234 Testkunde/Angebot/123
|
||
|
If the folder already exists, nothing happens.
|
||
|
|
||
|
=item C<clean_up_subfolders>
|
||
|
=item C<clean_up_record_subfolders>
|
||
|
|
||
|
Gets a list of acitve records. Syncs all subfolders and add email files to
|
||
|
the records. Then deletes all subfolders which are not corresponding to an
|
||
Auch abrufbar als: Unified diff
IMAPClient: Funktion zum Aufräumen der Belegordner umbenannt
clean_up_subfolders → clean_up_record_subfolders