Revision 45a06670
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