| … | |
… | |
| 29 | #d# 'irc_*' => sub { warn "IRC $_[1]->{trailing}\n"; 1 }, |
29 | #d# 'irc_*' => sub { warn "IRC $_[1]->{trailing}\n"; 1 }, |
| 30 | irc_privmsg => sub { |
30 | irc_privmsg => sub { |
| 31 | my ($con, $msg) = @_; |
31 | my ($con, $msg) = @_; |
| 32 | my $name = 'irc'; |
32 | my $name = 'irc'; |
| 33 | my $NOW = Time::HiRes::time; |
33 | my $NOW = Time::HiRes::time; |
|
|
34 | my $tmsg = $msg->{trailing}; |
|
|
35 | $tmsg =~ s/\x01[^\x01]*\x01//g; |
|
|
36 | if ($tmsg =~ m/\S/) { |
| 34 | $_->ob->message ( |
37 | $_->ob->message ( |
| 35 | "$name/".Net::IRC3::Util::prefix_nick ($msg)." chats: $msg->{trailing}", |
38 | "$name/".Net::IRC3::Util::prefix_nick ($msg)." chats: $tmsg", |
| 36 | cf::NDI_BLUE |
39 | cf::NDI_BLUE |
| 37 | ) for grep { $_->ob->{ext_ignore_shout}{$name} < $NOW && $_->listening >= 10 } cf::player::list; |
40 | ) for grep { $_->ob->{ext_ignore_shout}{$name} < $NOW && $_->listening >= 10 } cf::player::list; |
|
|
41 | } |
| 38 | 1; |
42 | 1; |
| 39 | }, |
43 | }, |
| 40 | # registered => sub { |
44 | # registered => sub { |
| 41 | # 1; |
45 | # 1; |
| 42 | # }, |
46 | # }, |
