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.

1 files changed, 8 insertions, 0 deletions

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);