Revision 17a3d6a3
Von Tamino Steinert vor 11 Monaten hinzugefügt
| SL/IMAPClient.pm | ||
|---|---|---|
| 194 | 194 |
my ($part) = @_; |
| 195 | 195 |
my $filename = $part->filename; |
| 196 | 196 |
if ($filename) {
|
| 197 |
my $content_type = $part->content_type; |
|
| 197 |
my $mime_type = $part->content_type; |
|
| 198 |
$mime_type =~ s/;.*//; # clean up mime_type |
|
| 198 | 199 |
my $content = $part->body; |
| 199 | 200 |
my $attachment = SL::DB::EmailJournalAttachment->new( |
| 200 | 201 |
name => $filename, |
| 201 | 202 |
content => $content, |
| 202 |
mime_type => $content_type,
|
|
| 203 |
mime_type => $mime_type,
|
|
| 203 | 204 |
); |
| 204 | 205 |
push @attachments, $attachment; |
| 205 | 206 |
} |
Auch abrufbar als: Unified diff
IMAPClient: FIX: säubere den MIME-Type von Anhängen