--- deliantra/server/ext/schmorplog.ext	2008/05/03 13:29:14	1.20
+++ deliantra/server/ext/schmorplog.ext	2008/09/19 01:39:45	1.22
@@ -1,4 +1,4 @@
-#! perl # depends=irc
+#! perl # depends=irc mandatory
 
 # statistics-package
 
@@ -84,12 +84,17 @@
    },
    on_death => sub {
       my ($pl) = @_;
-      ext::irc::do_notice (sprintf "%s was killed by %s", $pl->ob->name, $pl->killer_name);
+
+      my $msg = $pl->expand_cfpod (sprintf "%s was killed by %s.", $pl->ob->name, $pl->killer_name);
+      ext::irc::do_notice ($msg);
 
       ++$pl->ob->{stats_death}{$pl->killer_name};
 
       $pl->ob->kv_set (schmorplog_death_count =>
          1 + $pl->ob->kv_get ("schmorplog_death_count"));
+
+      $_->send_msg ("" => $msg, cf::NDI_VERBATIM)
+         for cf::player::list;
    },
    on_load => sub {
       my ($pl, $path) = @_;
@@ -151,3 +156,17 @@
    $cmd = lc $cmd;
 };
 
+# log "crash" messages, i.e. client exit reasons
+cf::register_exticmd clientlog => sub {
+   my ($ns, $msg) = @_;
+
+   my $name = $ns->pl && $ns->pl->ob ? $ns->pl->ob->name : "<unknown>";
+
+   $msg =~ y/\x0a\x20-\x7f//cd;
+   $msg =~ s/\s+$//;
+
+   warn sprintf "clientlog [%s/%s]: %s\n", $ns->host, $name, $msg;
+
+   ()
+};
+