Revision 1d513302
Von Tamino Steinert vor etwa 1 Jahr hinzugefügt
SL/BackgroundJob/CleanUpEmailSubfolders.pm | ||
---|---|---|
7 | 7 |
|
8 | 8 |
use SL::IMAPClient; |
9 | 9 |
|
10 |
sub clean_up_subfolders { |
|
10 |
sub clean_up_record_subfolders {
|
|
11 | 11 |
my ($self) = @_; |
12 | 12 |
my $imap_client = SL::IMAPClient->new(); |
13 | 13 |
|
... | ... | |
18 | 18 |
], |
19 | 19 |
); |
20 | 20 |
|
21 |
$imap_client->clean_up_subfolders($open_sales_orders); |
|
21 |
$imap_client->clean_up_record_subfolders($open_sales_orders);
|
|
22 | 22 |
} |
23 | 23 |
|
24 | 24 |
sub run { |
25 | 25 |
my ($self, $job_obj) = @_; |
26 | 26 |
$self->{job_obj} = $job_obj; |
27 | 27 |
|
28 |
$self->clean_up_subfolders(); |
|
28 |
$self->clean_up_record_subfolders();
|
|
29 | 29 |
|
30 | 30 |
return; |
31 | 31 |
} |
SL/IMAPClient.pm | ||
---|---|---|
341 | 341 |
return; |
342 | 342 |
} |
343 | 343 |
|
344 |
sub clean_up_subfolders { |
|
344 |
sub clean_up_record_subfolders {
|
|
345 | 345 |
my ($self, $active_records) = @_; |
346 | 346 |
|
347 | 347 |
my $subfolder_strings = |
... | ... | |
551 | 551 |
e.g. INBOX/1234 Testkunde/Angebot/123 |
552 | 552 |
If the folder already exists, nothing happens. |
553 | 553 |
|
554 |
=item C<clean_up_subfolders> |
|
554 |
=item C<clean_up_record_subfolders>
|
|
555 | 555 |
|
556 | 556 |
Gets a list of acitve records. Syncs all subfolders and add email files to |
557 | 557 |
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