| … | |
… | |
| 132 | } |
132 | } |
| 133 | |
133 | |
| 134 | cf::override; |
134 | cf::override; |
| 135 | } |
135 | } |
| 136 | |
136 | |
| 137 | sub on_listen { |
137 | sub on_say { |
| 138 | my ($event, $ob, $who, $msg) = @_; |
138 | my ($self, $pl, $msg) = @_; |
| 139 | |
139 | |
| 140 | cf::LOG cf::llevDebug, sprintf "QBERT [Neko-fon] %s: %s\n", $who->name, $msg; |
140 | cf::LOG cf::llevDebug, sprintf "QBERT [Neko-fon] %s: %s\n", $pl->ob->name, $msg; |
| 141 | ext::schmorp_irc::do_notice (sprintf "[Neko-fon] %s: %s\n", $who->name, $msg); |
141 | ext::schmorp_irc::do_notice (sprintf "[Neko-fon] %s: %s\n", $pl->ob->name, $msg); |
| 142 | } |
142 | } |
| 143 | |
143 | |
| 144 | cf::register_attachment "Nekosan", package => __PACKAGE__; |
144 | cf::register_attachment "Nekosan", package => __PACKAGE__; |
| 145 | |
145 | |
