--- cf.schmorp.de/maps/perl/schmorp-neko.ext 2006/04/10 08:34:07 1.17 +++ cf.schmorp.de/maps/perl/schmorp-neko.ext 2006/08/02 16:59:48 1.18 @@ -115,7 +115,10 @@ $who->{neko_last_attack} = time; $who->{neko_attack}++ - or cf::LOG cf::llevDebug, sprintf "QBERT Neko-san was attacked by %s!\n", $who->name; + or do { + cf::LOG cf::llevDebug, my $n = sprintf "QBERT Neko-san was attacked by %s!\n", $who->name; + cf::ext::schmorp_irc::do_notice ($n); + }; $who->message ("Meoow! (Please do not hurt me)") if !($who->{neko_attack} & 15); @@ -135,5 +138,6 @@ my ($event, $ob, $who, $msg) = @_; cf::LOG cf::llevDebug, sprintf "QBERT [Neko-fon] %s: %s\n", $who->name, $msg; + cf::ext::schmorp_irc::do_notice (sprintf "[Neko-fon] %s: %s\n", $who->name, $msg); }