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 | |
| parent | 947c02157e300a7a1e3a5b2fc5c4ec96544d69e1 (diff) | |
| download | idalius-e258d5a64d837681fbb870943c8a191d7ffd626c.tar.xz | |
Strip formatting in idalius.pl once instead of each module
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; } |