Bug 53608

more filtering


git-svn-id: svn://svn.office.custis.ru/3rdparty/bugzilla.org/trunk@348 6955db30-a419-402b-8a0d-67ecbb4d7f56

extensions/custis/code/emailin-filter_html.pl

@@ -0,0 +1,15 @@
+#!/usr/bin/perl -wT
+
+use strict;
+
+for (${Bugzilla->hook_args->{body}})
+{
+    s/<a[^<>]*>.*?<\/a\s*>/custis_rmlf($&)/geso;
+}
+
+sub custis_rmlf
+{
+    my ($t) = @_;
+    $t =~ s/[\n\r]+/ /giso;
+    return $t;
+}