Revision 3f689908
| SL/BackgroundJob/ImportRecordEmails.pm | ||
|---|---|---|
|
folder => $config->{folder},
|
||
|
email_journal_params => {
|
||
|
record_type => $config->{record_type},
|
||
|
}
|
||
|
},
|
||
|
skip_broken_mime_mails => $config->{skip_broken_mime_mails},
|
||
|
);
|
||
|
return "No emails to import." unless $email_import;
|
||
|
if ($config->{imported_imap_flag}) {
|
||
| ... | ... | |
|
not_processed_imap_flag => { type => SCALAR, optional => 1, },
|
||
|
email_import_ids_to_delete => { type => ARRAYREF, optional => 1, },
|
||
|
imported_imap_flag => { type => SCALAR, optional => 1, },
|
||
|
skip_broken_mime_mails => { type => SCALAR, optional => 1, },
|
||
|
# email config
|
||
|
hostname => { type => SCALAR, },
|
||
|
port => { type => SCALAR, optional => 1},
|
||
| SL/IMAPClient.pm | ||
|---|---|---|
|
type => HASHREF | UNDEF,
|
||
|
optional => 1,
|
||
|
},
|
||
|
skip_broken_mime_mails => {
|
||
|
type => SCALAR | UNDEF,
|
||
|
optional => 1,
|
||
|
},
|
||
|
});
|
||
|
my $folder_path = $params{folder} || $self->{base_folder};
|
||
|
|
||
| ... | ... | |
|
base_folder_path => $folder_path,
|
||
|
folder_strings => [$folder_string],
|
||
|
email_journal_params => $params{email_journal_params},
|
||
|
skip_broken_mime_mails => $params{skip_broken_mime_mails},
|
||
|
);
|
||
|
|
||
|
return $email_import;
|
||
| ... | ... | |
|
type => HASHREF | UNDEF,
|
||
|
optional => 1,
|
||
|
},
|
||
|
skip_broken_mime_mails => {
|
||
|
type => SCALAR | UNDEF,
|
||
|
optional => 1,
|
||
|
},
|
||
|
});
|
||
|
my $base_folder_path = $params{base_folder} || $self->{base_folder};
|
||
|
|
||
| ... | ... | |
|
base_folder_path => $base_folder_path,
|
||
|
folder_strings => \@subfolder_strings,
|
||
|
email_journal_params => $params{email_journal_params},
|
||
|
skip_broken_mime_mails => $params{skip_broken_mime_mails},
|
||
|
);
|
||
|
|
||
|
return $email_import;
|
||
| ... | ... | |
|
type => HASHREF | UNDEF,
|
||
|
optional => 1,
|
||
|
},
|
||
|
skip_broken_mime_mails => {
|
||
|
type => SCALAR | UNDEF,
|
||
|
optional => 1,
|
||
|
},
|
||
|
});
|
||
|
|
||
|
my $dbh = SL::DB->client->dbh;
|
||
|
|
||
|
my $email_import;
|
||
| ... | ... | |
|
|
||
|
Updates the emails for a folder. Checks which emails are missing and
|
||
|
fetches these from the IMAP server. Returns the created email import object.
|
||
|
Accepts some optional params, for instance <Cskip_broken_mime_mails> which
|
||
|
silently surpresses error message if a email is not MIME compatible.
|
||
|
This is useful if loads of emails needs to be imported and the importer
|
||
|
doesn´t really care about some not parseable mails.
|
||
|
|
||
|
=item C<update_emails_from_subfolders>
|
||
|
|
||
Auch abrufbar als: Unified diff
Neue Option skip nicht parsebare mails bei Import von E-mails