From e90a7953217879258cee069dab6a4b45df5c8d07 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Mon, 9 Feb 2015 22:33:50 +0000 Subject: view: generate links for common protocols in browsers SpamAssassin queries URI blacklists, so it's probably OK to enable this without being used as a linkfarm. --- lib/PublicInbox/View.pm | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'lib') diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm index b09c3ba1..3bb38537 100644 --- a/lib/PublicInbox/View.pm +++ b/lib/PublicInbox/View.pm @@ -218,10 +218,17 @@ sub add_filename_line { "$pad " . ascii_html($fn) . " $pad\n"; } +my $LINK_RE = qr!\b((?:ftp|https?|nntp)://[@\w\+\&\?\.\%\;/#=-]+)!; + +sub linkify { + $_[0] =~ s!$LINK_RE!$1!g; +} + sub add_text_body_short { my ($enc, $part, $part_nr, $full_pfx) = @_; my $n = 0; my $s = ascii_html($enc->decode($part->body)); + linkify($s); $s =~ s!^((?:(?:>[^\n]*)\n)+)! my $cur = $1; my @lines = split(/\n/, $cur); @@ -255,6 +262,7 @@ sub add_text_body_full { my ($enc, $part, $part_nr) = @_; my $n = 0; my $s = ascii_html($enc->decode($part->body)); + linkify($s); $s =~ s!^((?:(?:>[^\n]*)\n)+)! my $cur = $1; my @lines = split(/\n/, $cur); -- cgit v1.2.3-24-ge0c7