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 | |
parent | 947c02157e300a7a1e3a5b2fc5c4ec96544d69e1 (diff) | |
download | idalius-e258d5a64d837681fbb870943c8a191d7ffd626c.tar.xz |
Strip formatting in idalius.pl once instead of each module
-rwxr-xr-x | idalius.pl | 4 | ||||
-rw-r--r-- | plugin/tittilate.pm | 4 | ||||
-rw-r--r-- | plugin/url_title.pm | 5 |
3 files changed, 5 insertions, 8 deletions
@@ -8,6 +8,7 @@ use POE::Kernel; use POE::Component::IRC; use POE::Component::IRC::Plugin::NickServID; use config_file; +use IRC::Utils qw(strip_color strip_formatting); use Module::Pluggable search_path => "plugin", instantiate => 'configure'; my $config_file = "bot.conf"; @@ -116,7 +117,8 @@ sub irc_public { return if (grep {$_ eq $nick} @{$config{ignore}}); for my $module (@plugin_list) { - my $output = $module->message($irc->nick_name, $who, $where, $what); + my $stripped_what = strip_color(strip_formatting($what)); + my $output = $module->message($irc->nick_name, $who, $where, $what, $stripped_what); $irc->yield(privmsg => $where => $output) if $output; } 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; } |