| … | |
… | |
| 135 | } |
135 | } |
| 136 | |
136 | |
| 137 | sub on_say { |
137 | sub on_say { |
| 138 | my ($self, $pl, $msg) = @_; |
138 | my ($self, $pl, $msg) = @_; |
| 139 | |
139 | |
| 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", $pl->ob->name, $msg); |
140 | ext::schmorp_irc::do_notice (sprintf "[Neko-fon] %s: %s\n", $pl->ob->name, $msg); |
| 142 | } |
141 | } |
| 143 | |
142 | |
| 144 | cf::register_attachment "Nekosan", package => __PACKAGE__; |
143 | cf::register_attachment "Nekosan", package => __PACKAGE__; |
| 145 | |
144 | |
