diff options
Diffstat (limited to 'extensions/Profanivore/Extension.pm')
| -rw-r--r-- | extensions/Profanivore/Extension.pm | 247 |
1 files changed, 122 insertions, 125 deletions
diff --git a/extensions/Profanivore/Extension.pm b/extensions/Profanivore/Extension.pm index 013f92fee..4682b3d1d 100644 --- a/extensions/Profanivore/Extension.pm +++ b/extensions/Profanivore/Extension.pm @@ -35,153 +35,150 @@ use Bugzilla::Util qw(is_7bit_clean); our $VERSION = '0.01'; sub bug_format_comment { - my ($self, $args) = @_; - my $regexes = $args->{'regexes'}; - my $comment = $args->{'comment'}; - - # Censor profanities if the comment author is not reasonably trusted. - # However, allow people to see their own profanities, which might stop - # them immediately noticing and trying to go around the filter. (I.e. - # it tries to stop an arms race starting.) - if ($comment && - !$comment->author->in_group('editbugs') && - $comment->author->id != Bugzilla->user->id) - { - push (@$regexes, { - match => RE_profanity('-i'), - replace => \&_replace_profanity - }); - } + my ($self, $args) = @_; + my $regexes = $args->{'regexes'}; + my $comment = $args->{'comment'}; + + # Censor profanities if the comment author is not reasonably trusted. + # However, allow people to see their own profanities, which might stop + # them immediately noticing and trying to go around the filter. (I.e. + # it tries to stop an arms race starting.) + if ( $comment + && !$comment->author->in_group('editbugs') + && $comment->author->id != Bugzilla->user->id) + { + push(@$regexes, {match => RE_profanity('-i'), replace => \&_replace_profanity}); + } } sub _replace_profanity { - # We don't have access to the actual profanity. - return "****"; + + # We don't have access to the actual profanity. + return "****"; } sub mailer_before_send { - my ($self, $args) = @_; - my $email = $args->{'email'}; - - my $author = $email->header("X-Bugzilla-Who"); - my $recipient = $email->header("To"); - - if ($author && $recipient && lc($author) ne lc($recipient)) { - my $email_suffix = Bugzilla->params->{'emailsuffix'}; - if ($email_suffix ne '') { - $recipient =~ s/\Q$email_suffix\E$//; - $author =~ s/\Q$email_suffix\E$//; - } - - $author = new Bugzilla::User({ name => $author }); - - if ($author && - $author->id && - !$author->in_group('editbugs')) - { - # Multipart emails - if (scalar $email->parts > 1) { - $email->walk_parts(sub { - my ($part) = @_; - return if $part->parts > 1; # Top-level - # do not filter attachments such as patches, etc. - if ($part->header('Content-Disposition') - && $part->header('Content-Disposition') =~ /attachment/) - { - return; - } - _fix_encoding($part); - my $body = $part->body_str; - my $new_body; - if ($part->content_type =~ /^text\/html/) { - $new_body = _filter_html($body); - if ($new_body ne $body) { - # HTML::Tree removes unnecessary whitespace, - # resulting in very long lines. We need to use - # quoted-printable encoding to avoid exceeding - # email's maximum line length. - $part->encoding_set('quoted-printable'); - } - } - elsif ($part->content_type =~ /^text\/plain/) { - $new_body = _filter_text($body); - } - if ($new_body && $new_body ne $body) { - $part->body_str_set($new_body); - } - }); - } - # Single part email - else { - _fix_encoding($email); - $email->body_str_set(_filter_text($email->body_str)); + my ($self, $args) = @_; + my $email = $args->{'email'}; + + my $author = $email->header("X-Bugzilla-Who"); + my $recipient = $email->header("To"); + + if ($author && $recipient && lc($author) ne lc($recipient)) { + my $email_suffix = Bugzilla->params->{'emailsuffix'}; + if ($email_suffix ne '') { + $recipient =~ s/\Q$email_suffix\E$//; + $author =~ s/\Q$email_suffix\E$//; + } + + $author = new Bugzilla::User({name => $author}); + + if ($author && $author->id && !$author->in_group('editbugs')) { + + # Multipart emails + if (scalar $email->parts > 1) { + $email->walk_parts(sub { + my ($part) = @_; + return if $part->parts > 1; # Top-level + # do not filter attachments such as patches, etc. + if ( $part->header('Content-Disposition') + && $part->header('Content-Disposition') =~ /attachment/) + { + return; + } + _fix_encoding($part); + my $body = $part->body_str; + my $new_body; + if ($part->content_type =~ /^text\/html/) { + $new_body = _filter_html($body); + if ($new_body ne $body) { + + # HTML::Tree removes unnecessary whitespace, + # resulting in very long lines. We need to use + # quoted-printable encoding to avoid exceeding + # email's maximum line length. + $part->encoding_set('quoted-printable'); } - } + } + elsif ($part->content_type =~ /^text\/plain/) { + $new_body = _filter_text($body); + } + if ($new_body && $new_body ne $body) { + $part->body_str_set($new_body); + } + }); + } + + # Single part email + else { + _fix_encoding($email); + $email->body_str_set(_filter_text($email->body_str)); + } } + } } sub _fix_encoding { - my $part = shift; - - # don't touch the top-level part of multi-part mail - return if $part->parts > 1; - - # nothing to do if the part already has a charset - my $ct = parse_content_type($part->content_type); - my $charset = $ct->{attributes}{charset} - ? $ct->{attributes}{charset} - : ''; - return unless !$charset || $charset eq 'us-ascii'; - - if (Bugzilla->params->{utf8}) { - $part->charset_set('UTF-8'); - my $raw = $part->body_raw; - if (utf8::is_utf8($raw)) { - utf8::encode($raw); - $part->body_set($raw); - } + my $part = shift; + + # don't touch the top-level part of multi-part mail + return if $part->parts > 1; + + # nothing to do if the part already has a charset + my $ct = parse_content_type($part->content_type); + my $charset = $ct->{attributes}{charset} ? $ct->{attributes}{charset} : ''; + return unless !$charset || $charset eq 'us-ascii'; + + if (Bugzilla->params->{utf8}) { + $part->charset_set('UTF-8'); + my $raw = $part->body_raw; + if (utf8::is_utf8($raw)) { + utf8::encode($raw); + $part->body_set($raw); } - $part->encoding_set('quoted-printable'); + } + $part->encoding_set('quoted-printable'); } sub _filter_text { - my $text = shift; - my $offensive = RE_profanity('-i'); - $text =~ s/$offensive/****/g; - return $text; + my $text = shift; + my $offensive = RE_profanity('-i'); + $text =~ s/$offensive/****/g; + return $text; } sub _filter_html { - my $html = shift; - my $tree = HTML::Tree->new->parse_content($html); - my $comments_div = $tree->look_down( _tag => 'div', id => 'comments' ); - return $html if !$comments_div; - my @comments = $comments_div->look_down( _tag => 'pre' ); - my $dirty = 0; - foreach my $comment (@comments) { - _filter_html_node($comment, \$dirty); - } - if ($dirty) { - $html = $tree->as_HTML; - $tree->delete; - } - return $html; + my $html = shift; + my $tree = HTML::Tree->new->parse_content($html); + my $comments_div = $tree->look_down(_tag => 'div', id => 'comments'); + return $html if !$comments_div; + my @comments = $comments_div->look_down(_tag => 'pre'); + my $dirty = 0; + foreach my $comment (@comments) { + _filter_html_node($comment, \$dirty); + } + if ($dirty) { + $html = $tree->as_HTML; + $tree->delete; + } + return $html; } sub _filter_html_node { - my ($node, $dirty) = @_; - my $content = [ $node->content_list ]; - foreach my $item_r ($node->content_refs_list) { - if (ref $$item_r) { - _filter_html_node($$item_r); - } else { - my $new_text = _filter_text($$item_r); - if ($new_text ne $$item_r) { - $$item_r = $new_text; - $$dirty = 1; - } - } + my ($node, $dirty) = @_; + my $content = [$node->content_list]; + foreach my $item_r ($node->content_refs_list) { + if (ref $$item_r) { + _filter_html_node($$item_r); + } + else { + my $new_text = _filter_text($$item_r); + if ($new_text ne $$item_r) { + $$item_r = $new_text; + $$dirty = 1; + } } + } } __PACKAGE__->NAME; |