1 | #! perl |
1 | #! perl |
2 | |
2 | |
3 | use Time::HiRes; |
3 | use Time::HiRes; |
4 | use AnyEvent::IRC::Client; |
4 | use AnyEvent::IRC::Client; |
5 | use AnyEvent::IRC::Util; |
5 | use AnyEvent::IRC::Util qw/filter_colors/; |
6 | |
6 | |
7 | # requires: commands.ext |
7 | # requires: commands.ext |
8 | |
8 | |
9 | return unless exists $cf::CFG{irc_server}; |
9 | return unless exists $cf::CFG{irc_server}; |
10 | |
10 | |
… | |
… | |
81 | my ($con, $msg) = @_; |
81 | my ($con, $msg) = @_; |
82 | my $name = 'irc'; |
82 | my $name = 'irc'; |
83 | my $nick = AnyEvent::IRC::Util::prefix_nick ($msg); |
83 | my $nick = AnyEvent::IRC::Util::prefix_nick ($msg); |
84 | my $NOW = Time::HiRes::time; |
84 | my $NOW = Time::HiRes::time; |
85 | |
85 | |
86 | my $tmsg = $msg->{params}->[-1]; |
86 | my $tmsg = filter_colors ($msg->{params}->[-1]); |
87 | $tmsg =~ s/\x01[^\x01]*\x01//g; |
87 | $tmsg =~ s/\x01[^\x01]*\x01//g; |
88 | $tmsg =~ s/\015?\012/ /g; |
88 | $tmsg =~ s/\015?\012/ /g; |
89 | |
89 | |
90 | utf8::decode $tmsg; |
90 | utf8::decode $tmsg; |
91 | |
91 | |