diff options
Diffstat (limited to 'plugin')
| -rw-r--r-- | plugin/tittilate.pm | 4 | ||||
| -rw-r--r-- | plugin/url_title.pm | 5 |
2 files changed, 2 insertions, 7 deletions
diff --git a/plugin/tittilate.pm b/plugin/tittilate.pm index b7994c3..d9d8a49 100644 --- a/plugin/tittilate.pm +++ b/plugin/tittilate.pm @@ -4,7 +4,6 @@ package plugin::tittilate; use strict; use warnings; -use IRC::Utils qw(strip_color strip_formatting); my %config; @@ -16,8 +15,7 @@ sub configure { } sub message { - my ($self, $me, $who, $where, $what) = @_; - $what = strip_color(strip_formatting($what)); + my ($self, $me, $who, $where, $raw_what, $what) = @_; my $gathered = ""; my @expressions = (keys %{$config{triggers}}); my $expression = join '|', @expressions; 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; } |