--- deliantra/server/ext/chatlog.ext	2007/03/02 00:29:08	1.1
+++ deliantra/server/ext/chatlog.ext	2007/06/11 22:18:03	1.6
@@ -1,29 +1,26 @@
-#! perl
+#! perl # depends=irc
 
 cf::object::attachment "log_say",
    on_say => sub {
       my ($self, $pl, $msg) = @_;
       
       my $name = $self->name;
-      
-      ext::schmorp_irc::do_notice (sprintf "[$name-fon] %s: %s\n", $pl->ob->name, $msg);
+      ext::irc::do_notice (sprintf "[$name-fon] %s: %s\n", $pl->ob->name, $msg);
    },
 ;
 
 cf::player::attachment "log_told",
    on_tell => sub {
       my ($self, $other, $msg) = @_;
-      
-      #my $name = $self->name;
-      
-      ext::schmorp_irc::do_notice ("[$self->$other]: $msg\n");
+
+      my $name = $self->ob->name;
+      ext::irc::do_notice ("[$name->$other]: $msg\n");
    },
    on_told => sub {
       my ($self, $pl, $msg) = @_;
       
-      my $name = $self->name;
-      
-      ext::schmorp_irc::do_notice (sprintf "[%s->$name] %s: %s\n", $pl->ob->name, $msg);
+      my $name = $self->ob->name;
+      ext::irc::do_notice (sprintf "[%s->$name]: %s\n", $pl->ob->name, $msg);
    },
 ;