| 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 | |
