diff options
Diffstat (limited to 'plugin/url_title.pm')
| -rw-r--r-- | plugin/url_title.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/plugin/url_title.pm b/plugin/url_title.pm index 5364677..654b2ae 100644 --- a/plugin/url_title.pm +++ b/plugin/url_title.pm @@ -6,6 +6,7 @@ use strict; use warnings; use HTTP::Tiny; use HTML::HeadParser; +use IRC::Utils qw(strip_color strip_formatting); my %config; @@ -21,6 +22,8 @@ sub message my ($self, $me, $who, $where, $what) = @_; my $url; + $what = strip_color(strip_formatting($what)); + if ($what =~ /(https?:\/\/[^ ]+)/i) { $url = $1; } |