--- deliantra/server/ext/schmorplog.ext	2010/04/12 05:57:53	1.27
+++ deliantra/server/ext/schmorplog.ext	2010/04/29 07:52:02	1.28
@@ -62,7 +62,7 @@
       undef $PLAYERSEEN{$name};
       $UPDATE_LOGINS->start;
 
-      warn "LOGIN: ", $pl->ob->name, " from ", $pl->ns->host;
+      cf::trace "LOGIN: ", $pl->ob->name, " from ", $pl->ns->host;
    },
    on_logout => sub {
       my ($pl, $cleanly) = @_;
@@ -71,20 +71,20 @@
 
       $UPDATE_LOGINS->start;
 
-      warn "LOGOUT: ", $pl->ob->name, " from ", $pl->ns->host, " ($cleanly)";
+      cf::trace "LOGOUT: ", $pl->ob->name, " from ", $pl->ns->host, " ($cleanly)";
    },
    on_birth => sub {
       my ($pl) = @_;
       $pl->ob->kv_set (schmorplog_birthdate => time);
       ext::irc::do_notice $pl->ob->name . " was just born";
 
-      warn "BIRTH: ", $pl->ob->name, " from ", $pl->ns->host;
+      cf::trace "BIRTH: ", $pl->ob->name, " from ", $pl->ns->host;
    },
    on_quit => sub {
       my ($pl) = @_;
       ext::irc::do_notice $pl->ob->name . " quit the game";
 
-      warn "QUIT: ", $pl->ob->name, " from ", $pl->ns->host;
+      cf::trace "QUIT: ", $pl->ob->name, " from ", $pl->ns->host;
    },
    on_death => sub {
       my ($pl) = @_;
@@ -169,7 +169,7 @@
    $msg =~ y/\x0a\x20-\x7f//cd;
    $msg =~ s/\s+$//;
 
-   warn sprintf "clientlog [%s/%s]: %s\n", $ns->host, $name, $msg;
+   cf::error sprintf "clientlog [%s/%s]: %s\n", $ns->host, $name, $msg;
 
    ()
 };