| 1 | #! perl |
1 | #! perl |
| 2 | |
2 | |
| 3 | use Time::HiRes; |
|
|
| 4 | use AnyEvent::IRC::Client; |
3 | use AnyEvent::IRC::Client; |
| 5 | use AnyEvent::IRC::Util qw/filter_colors/; |
4 | use AnyEvent::IRC::Util qw/filter_colors/; |
| 6 | |
5 | |
| 7 | # requires: commands.ext |
6 | # requires: commands.ext |
| 8 | |
7 | |
| … | |
… | |
| 103 | $CON->reg_cb ( |
102 | $CON->reg_cb ( |
| 104 | irc_privmsg => sub { |
103 | irc_privmsg => sub { |
| 105 | my ($con, $msg) = @_; |
104 | my ($con, $msg) = @_; |
| 106 | my $name = 'irc'; |
105 | my $name = 'irc'; |
| 107 | my $nick = AnyEvent::IRC::Util::prefix_nick ($msg); |
106 | my $nick = AnyEvent::IRC::Util::prefix_nick ($msg); |
| 108 | my $NOW = Time::HiRes::time; |
107 | my $NOW = EV::time; |
| 109 | |
108 | |
| 110 | my $tmsg = filter_colors ($msg->{params}->[-1]); |
109 | my $tmsg = filter_colors ($msg->{params}->[-1]); |
| 111 | $tmsg =~ s/\x01[^\x01]*\x01//g; |
110 | $tmsg =~ s/\x01[^\x01]*\x01//g; |
| 112 | $tmsg =~ s/\015?\012/ /g; |
111 | $tmsg =~ s/\015?\012/ /g; |
| 113 | |
112 | |
