about summary refs log tree commit homepage
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2016-03-01 03:44:03 +0000
committerEric Wong <e@80x24.org>2016-03-01 03:44:25 +0000
commit704d1886ec4c34ffee0a37293970329418582211 (patch)
treed836a2c5183e1b35aea165effb281ca93bd1ec97
parent5e7e5e3b5cdee82c753197264b5b683177f26b2a (diff)
downloadpublic-inbox-704d1886ec4c34ffee0a37293970329418582211.tar.gz
This will allow us to more easily reuse it elsewhere.
-rw-r--r--MANIFEST1
-rw-r--r--lib/PublicInbox/Linkify.pm57
-rw-r--r--lib/PublicInbox/View.pm58
3 files changed, 69 insertions, 47 deletions
diff --git a/MANIFEST b/MANIFEST
index 857a3a76..5d790f9c 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -30,6 +30,7 @@ lib/PublicInbox/Git.pm
 lib/PublicInbox/GitHTTPBackend.pm
 lib/PublicInbox/HTTP.pm
 lib/PublicInbox/Hval.pm
+lib/PublicInbox/Linkify.pm
 lib/PublicInbox/Listener.pm
 lib/PublicInbox/MDA.pm
 lib/PublicInbox/MID.pm
diff --git a/lib/PublicInbox/Linkify.pm b/lib/PublicInbox/Linkify.pm
new file mode 100644
index 00000000..8f634f48
--- /dev/null
+++ b/lib/PublicInbox/Linkify.pm
@@ -0,0 +1,57 @@
+# Copyright (C) 2014-2016 all contributors <meta@public-inbox.org>
+# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
+
+# two-step linkification.
+# intended usage is in the following order:
+#
+#   linkify_1
+#   <escape unsafe chars for HTML>
+#   linkify_2
+#
+# Maybe this could be done more efficiently...
+package PublicInbox::Linkify;
+use strict;
+use warnings;
+use Digest::SHA qw/sha1_hex/;
+
+my $SALT = rand;
+my $LINK_RE = qr!\b((?:ftp|https?|nntp)://
+                 [\@:\w\.-]+/
+                 ?[\@\w\+\&\?\.\%\;/#=-]*)!x;
+
+sub new { bless {}, shift }
+
+sub linkify_1 {
+        my ($self, $s) = @_;
+        $s =~ s!$LINK_RE!
+                my $url = $1;
+                # salt this, as this could be exploited to show
+                # links in the HTML which don't show up in the raw mail.
+                my $key = sha1_hex($url . $SALT);
+
+                # only escape ampersands, others do not match LINK_RE
+                $url =~ s/&/&#38;/g;
+                $self->{$key} = $url;
+                'PI-LINK-'. $key;
+        !ge;
+        $s;
+}
+
+sub linkify_2 {
+        my ($self, $s) = @_;
+
+        # Added "PI-LINK-" prefix to avoid false-positives on git commits
+        $s =~ s!\bPI-LINK-([a-f0-9]{40})\b!
+                my $key = $1;
+                my $url = $self->{$key};
+                if (defined $url) {
+                        "<a\nhref=\"$url\">$url</a>";
+                } else {
+                        # false positive or somebody tried to mess with us
+                        $key;
+                }
+        !ge;
+        $s;
+}
+
+1;
diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm
index 61eb890f..4692b22f 100644
--- a/lib/PublicInbox/View.pm
+++ b/lib/PublicInbox/View.pm
@@ -12,9 +12,8 @@ use Encode qw/find_encoding/;
 use Encode::MIME::Header;
 use Email::MIME::ContentType qw/parse_content_type/;
 use PublicInbox::Hval;
+use PublicInbox::Linkify;
 use PublicInbox::MID qw/mid_clean id_compress mid2path/;
-use Digest::SHA qw/sha1_hex/;
-my $SALT = rand;
 require POSIX;
 
 # TODO: make these constants tunable
@@ -302,41 +301,6 @@ sub add_filename_line {
         "$pad " . ascii_html($fn) . " $pad\n";
 }
 
-my $LINK_RE = qr!\b((?:ftp|https?|nntp)://
-                 [\@:\w\.-]+/
-                 ?[\@\w\+\&\?\.\%\;/#=-]*)!x;
-
-sub linkify_1 {
-        my ($link_map, $s) = @_;
-        $s =~ s!$LINK_RE!
-                my $url = $1;
-                # salt this, as this could be exploited to show
-                # links in the HTML which don't show up in the raw mail.
-                my $key = sha1_hex($url . $SALT);
-                $link_map->{$key} = $url;
-                'PI-LINK-'. $key;
-        !ge;
-        $s;
-}
-
-sub linkify_2 {
-        my ($link_map, $s) = @_;
-
-        # Added "PI-LINK-" prefix to avoid false-positives on git commits
-        $s =~ s!\bPI-LINK-([a-f0-9]{40})\b!
-                my $key = $1;
-                my $url = $link_map->{$key};
-                if (defined $url) {
-                        $url = ascii_html($url);
-                        "<a\nhref=\"$url\">$url</a>";
-                } else {
-                        # false positive or somebody tried to mess with us
-                        $key;
-                }
-        !ge;
-        $s;
-}
-
 sub flush_quote {
         my ($quot, $n, $part_nr, $full_pfx, $final, $do_anchor) = @_;
 
@@ -346,11 +310,11 @@ sub flush_quote {
         if ($full_pfx) {
                 if (!$final && scalar(@$quot) <= MAX_INLINE_QUOTED) {
                         # show quote inline
-                        my %l;
-                        my $rv = join('', map { linkify_1(\%l, $_) } @$quot);
+                        my $l = PublicInbox::Linkify->new;
+                        my $rv = join('', map { $l->linkify_1($_) } @$quot);
                         @$quot = ();
                         $rv = ascii_html($rv);
-                        return linkify_2(\%l, $rv);
+                        return $l->linkify_2($rv);
                 }
 
                 # show a short snippet of quoted text and link to full version:
@@ -375,13 +339,13 @@ sub flush_quote {
         } else {
                 # show everything in the full version with anchor from
                 # short version (see above)
-                my %l;
-                my $rv .= join('', map { linkify_1(\%l, $_) } @$quot);
+                my $l = PublicInbox::Linkify->new;
+                my $rv .= join('', map { $l->linkify_1($_) } @$quot);
                 @$quot = ();
                 $rv = ascii_html($rv);
-                return linkify_2(\%l, $rv) unless $do_anchor;
+                return $l->linkify_2($rv) unless $do_anchor;
                 my $nr = ++$$n;
-                "<a\nid=q${part_nr}_$nr></a>" . linkify_2(\%l, $rv);
+                "<a\nid=q${part_nr}_$nr></a>" . $l->linkify_2($rv);
         }
 }
 
@@ -420,10 +384,10 @@ sub add_text_body {
                         }
 
                         # regular line, OK
-                        my %l;
-                        $cur = linkify_1(\%l, $cur);
+                        my $l = PublicInbox::Linkify->new;
+                        $cur = $l->linkify_1($cur);
                         $cur = ascii_html($cur);
-                        $s .= linkify_2(\%l, $cur);
+                        $s .= $l->linkify_2($cur);
                 } else {
                         push @quot, $cur;
                 }