[Rt-commit] rt branch, 3.8/improve-messagerfc822-handling, created. rt-3.8.9-3-g1b53018
Kevin Falcone
falcone at bestpractical.com
Thu Jun 2 09:53:05 EDT 2011
The branch, 3.8/improve-messagerfc822-handling has been created
at 1b53018bac23788f4d9d462baeec5b7038748899 (commit)
- Log -----------------------------------------------------------------
commit cffca97d26adbdf5e7c6a739b8282ba4529a1cd3
Author: Kevin Falcone <falcone at bestpractical.com>
Date: Wed Apr 21 16:10:43 2010 -0400
RT::I18N::IsTextualContentType thinks message/rfc822 parts have content
diff --git a/lib/RT/Transaction_Overlay.pm b/lib/RT/Transaction_Overlay.pm
index b8ea938..e44342b 100755
--- a/lib/RT/Transaction_Overlay.pm
+++ b/lib/RT/Transaction_Overlay.pm
@@ -427,7 +427,7 @@ sub ContentObj {
return undef unless ($Attachment);
# If it's a textual part, just return the body.
- if ( RT::I18N::IsTextualContentType($Attachment->ContentType) ) {
+ if ( _IsDisplayableTextualContentType($Attachment->ContentType) ) {
return ($Attachment);
}
@@ -456,7 +456,7 @@ sub ContentObj {
# If that fails, return the first textual part which has some content.
my $all_parts = $self->Attachments;
while ( my $part = $all_parts->Next ) {
- next unless RT::I18N::IsTextualContentType($part->ContentType)
+ next unless _IsDisplayableTextualContentType($part->ContentType)
&& $part->Content;
return $part;
}
@@ -466,6 +466,19 @@ sub ContentObj {
return (undef);
}
+=head2 _IsDisplayableTextualContentType
+
+We may need to pull this out to another module later, but for now, this
+is better than RT::I18N::IsTextualContentType because that believes that
+a message/rfc822 email is displayable, despite it having no content
+
+=cut
+
+sub _IsDisplayableTextualContentType {
+ my $type = shift;
+ ($type =~ m{^text/(?:plain|html)\b}i) ? 1 : 0;
+}
+
# }}}
# {{{ sub Subject
commit a2341e28a26b64450097a792065677d71dcc4355
Author: Kevin Falcone <falcone at bestpractical.com>
Date: Wed Apr 21 16:13:35 2010 -0400
Actually recurse into message/rfc822 parts looking for content
We want to become better about recursing into multipart/ too, but
this is better than the previous RT behavior which simply returned
blank content
diff --git a/lib/RT/Transaction_Overlay.pm b/lib/RT/Transaction_Overlay.pm
index e44342b..62736a7 100755
--- a/lib/RT/Transaction_Overlay.pm
+++ b/lib/RT/Transaction_Overlay.pm
@@ -426,6 +426,34 @@ sub ContentObj {
return undef unless ($Attachment);
+ my $Attachments = $self->Attachments;
+ while ( my $Attachment = $Attachments->Next ) {
+ if ( my $content = _FindPreferredContentObj( %args, Attachment => $Attachment ) ) {
+ return $content;
+ }
+ }
+
+ # If that fails, return the first top-level textual part which has some content.
+ # We probably really want this to become "recurse, looking for the other type of
+ # displayable". For now, this maintains backcompat
+ my $all_parts = $self->Attachments;
+ while ( my $part = $all_parts->Next ) {
+ next unless _IsDisplayableTextualContentType($part->ContentType)
+ && $part->Content;
+ return $part;
+ }
+
+ return;
+}
+
+
+sub _FindPreferredContentObj {
+ my %args = @_;
+ my $Attachment = $args{Attachment};
+
+ # If we don't have any content, return undef now.
+ return undef unless $Attachment;
+
# If it's a textual part, just return the body.
if ( _IsDisplayableTextualContentType($Attachment->ContentType) ) {
return ($Attachment);
@@ -437,7 +465,7 @@ sub ContentObj {
elsif ( $Attachment->ContentType =~ qr|^multipart/mixed|i ) {
my $kids = $Attachment->Children;
while (my $child = $kids->Next) {
- my $ret = $self->ContentObj(%args, Attachment => $child);
+ my $ret = _FindPreferredContentObj(%args, Attachment => $child);
return $ret if ($ret);
}
}
@@ -452,13 +480,17 @@ sub ContentObj {
return $first;
}
}
+ }
+
+ # If this is a message/rfc822 mail, we need to dig into it in order to find
+ # the actual textual content
- # If that fails, return the first textual part which has some content.
- my $all_parts = $self->Attachments;
- while ( my $part = $all_parts->Next ) {
- next unless _IsDisplayableTextualContentType($part->ContentType)
- && $part->Content;
- return $part;
+ elsif ( $Attachment->ContentType =~ '^message/rfc822' ) {
+ my $children = $Attachment->Children;
+ while ( my $child = $children->Next ) {
+ if ( my $content = _FindPreferredContentObj( %args, Attachment => $child ) ) {
+ return $content;
+ }
}
}
commit 1b53018bac23788f4d9d462baeec5b7038748899
Author: Kevin Falcone <falcone at bestpractical.com>
Date: Wed Jun 1 20:38:47 2011 -0400
Work with our new multipart handling
As part of our outlook handling code, we started recursing into
multipart/alternative. However, if you were multipart/multipart or
something else, and the code doesn't express a preference for text/plain
vs text/html we had a bail out to start at the top again looking for
textual. Instead, we'll look at the children of this multipart for
anything textual, since that seems to make more sense and leave the
"Search for something textual from the top" for later in the code path.
diff --git a/lib/RT/Transaction_Overlay.pm b/lib/RT/Transaction_Overlay.pm
index 62736a7..6d74310 100755
--- a/lib/RT/Transaction_Overlay.pm
+++ b/lib/RT/Transaction_Overlay.pm
@@ -479,6 +479,16 @@ sub _FindPreferredContentObj {
if ( my $first = $plain_parts->First ) {
return $first;
}
+ } else {
+ my $parts = $Attachment->Children;
+ $parts->LimitNotEmpty;
+
+ # If we actully found a part, return its content
+ while (my $part = $parts->Next) {
+ next unless _IsDisplayableTextualContentType($part->ContentType);
+ return $part;
+ }
+
}
}
-----------------------------------------------------------------------
More information about the Rt-commit
mailing list