From: Eric Wong <e@80x24.org>
Date: Mon, 9 Feb 2015 22:33:50 +0000 (+0000)
Subject: view: generate links for common protocols in browsers
X-Git-Tag: v1.0.0~1083
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=e90a7953217879258cee069dab6a4b45df5c8d07;p=public-inbox.git

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.
---

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!<a\nhref="$1"\n>$1</a>!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!^((?:(?:&gt;[^\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!^((?:(?:&gt;[^\n]*)\n)+)!
 		my $cur = $1;
 		my @lines = split(/\n/, $cur);