diff options
author | Eric Wong <e@80x24.org> | 2016-12-06 23:15:02 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2016-12-06 23:15:02 +0000 |
commit | 52e44dc8f9e01678f309818c8ca2bc65b8285738 (patch) | |
tree | b971609ef6fd3665d7d68352600d22ffe5b05cf8 /lib | |
parent | 130d0c4e33c5c73dc69e270fc698735d49e0f159 (diff) | |
download | public-inbox-52e44dc8f9e01678f309818c8ca2bc65b8285738.tar.gz |
This reverts commit 130d0c4e33c5c73dc69e270fc698735d49e0f159.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/PublicInbox/Linkify.pm | 15 |
1 files changed, 4 insertions, 11 deletions
diff --git a/lib/PublicInbox/Linkify.pm b/lib/PublicInbox/Linkify.pm index cc0f7e3a..ea7fd71f 100644 --- a/lib/PublicInbox/Linkify.pm +++ b/lib/PublicInbox/Linkify.pm @@ -15,7 +15,7 @@ use warnings; use Digest::SHA qw/sha1_hex/; my $SALT = rand; -my $LINK_RE = qr{(\()?\b((?:ftps?|https?|nntps?|gopher):// +my $LINK_RE = qr{\b((?:ftps?|https?|nntps?|gopher):// [\@:\w\.-]+/ (?:[a-z0-9\-\._~!\$\&\';\(\)\*\+,;=:@/%]*) (?:\?[a-z0-9\-\._~!\$\&\';\(\)\*\+,;=:@/%]+)? @@ -27,22 +27,15 @@ sub new { bless {}, shift } sub linkify_1 { my ($self, $s) = @_; $s =~ s!$LINK_RE! - my $beg = $1 || ''; - my $url = $2; + my $url = $1; my $end = ''; - # Markdown compatibility: - if ($beg eq '(') { - $url =~ s/\)\z//; - $end = ')'; - } - # it's fairly common to end URLs in messages with # '.', ',' or ';' to denote the end of a statement; # assume the intent was to end the statement/sentence # in English if ($url =~ s/([\.,;])\z//) { - $end = $1 . $end; + $end = $1; } # salt this, as this could be exploited to show @@ -52,7 +45,7 @@ sub linkify_1 { # only escape ampersands, others do not match LINK_RE $url =~ s/&/&/g; $self->{$key} = $url; - $beg . 'PI-LINK-'. $key . $end; + 'PI-LINK-'. $key . $end; !ge; $s; } |