diff options
| author | David Phillips <david@sighup.nz> | 2017-07-14 19:21:07 +1200 |
|---|---|---|
| committer | David Phillips <david@sighup.nz> | 2017-07-14 19:21:07 +1200 |
| commit | e258d5a64d837681fbb870943c8a191d7ffd626c (patch) | |
| tree | 58f1bbfc606996120692b43405fc05504047a82a /plugin/url_title.pm | |
| parent | 947c02157e300a7a1e3a5b2fc5c4ec96544d69e1 (diff) | |
| download | idalius-e258d5a64d837681fbb870943c8a191d7ffd626c.tar.xz | |
Strip formatting in idalius.pl once instead of each module
Diffstat (limited to 'plugin/url_title.pm')
| -rw-r--r-- | plugin/url_title.pm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/plugin/url_title.pm b/plugin/url_title.pm index 654b2ae..f36ad6d 100644 --- a/plugin/url_title.pm +++ b/plugin/url_title.pm @@ -6,7 +6,6 @@ use strict; use warnings; use HTTP::Tiny; use HTML::HeadParser; -use IRC::Utils qw(strip_color strip_formatting); my %config; @@ -19,11 +18,9 @@ sub configure { sub message { - my ($self, $me, $who, $where, $what) = @_; + my ($self, $me, $who, $where, $raw_what, $what) = @_; my $url; - $what = strip_color(strip_formatting($what)); - if ($what =~ /(https?:\/\/[^ ]+)/i) { $url = $1; } |