Revision 77cb45b9
SL/IMAPClient.pm | ||
---|---|---|
type => SCALAR | UNDEF,
|
||
optional => 1,
|
||
},
|
||
not_imported_imap_flag => {
|
||
type => SCALAR | UNDEF,
|
||
optional => 1,
|
||
},
|
||
});
|
||
my $folder_path = $params{folder} || $self->{base_folder};
|
||
|
||
... | ... | |
folder_strings => [$folder_string],
|
||
email_journal_params => $params{email_journal_params},
|
||
skip_broken_mime_mails => $params{skip_broken_mime_mails},
|
||
not_imported_imap_flag => $params{not_imported_imap_flag},
|
||
);
|
||
|
||
return $email_import;
|
||
... | ... | |
type => SCALAR | UNDEF,
|
||
optional => 1,
|
||
},
|
||
not_imported_imap_flag => {
|
||
type => SCALAR | UNDEF,
|
||
optional => 1,
|
||
},
|
||
|
||
});
|
||
my $dbh = SL::DB->client->dbh;
|
||
|
||
... | ... | |
);
|
||
$email_journal->save();
|
||
} catch {
|
||
my ($headers, $body) = split /\n\n/, $new_email_string;
|
||
my @subjects = grep {/^subject: +/i} (split /\n/, $headers);
|
||
die t8("Error while attempting to parse email.\nUID: #1\n#2\nError reported: #3", $new_uid, @subjects[0], $_)
|
||
unless $params{skip_broken_mime_mails};
|
||
|
||
$self->{imap_client}->set_flag($params{not_imported_imap_flag}, [$new_uid])
|
||
if $params{not_imported_imap_flag};
|
||
|
||
my ($headers, $body) = split /\n\n/, $new_email_string;
|
||
my @subjects = grep {/^subject: +/i} (split /\n/, $headers);
|
||
|
||
die t8("Error while attempting to parse email.\nUID: '#1'\n'#2'\nError reported: '#3'", $new_uid, @subjects[0], $_)
|
||
unless $params{skip_broken_mime_mails};
|
||
}
|
||
}
|
||
}
|
Auch abrufbar als: Unified diff
BJ IRE Neues Imap-Flag falls E-Mail nicht geparst werden kann