--- deliantra/server/ext/chatlog.ext	2007/03/02 22:18:55	1.3
+++ deliantra/server/ext/chatlog.ext	2007/06/11 22:18:03	1.6
@@ -1,11 +1,11 @@
-#! 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);
    },
 ;
 
@@ -14,13 +14,13 @@
       my ($self, $other, $msg) = @_;
 
       my $name = $self->ob->name;
-      ext::schmorp_irc::do_notice ("[$name->$other]: $msg\n");
+      ext::irc::do_notice ("[$name->$other]: $msg\n");
    },
    on_told => sub {
       my ($self, $pl, $msg) = @_;
       
       my $name = $self->ob->name;
-      ext::schmorp_irc::do_notice (sprintf "[%s->$name] %s: %s\n", $pl->ob->name, $msg);
+      ext::irc::do_notice (sprintf "[%s->$name]: %s\n", $pl->ob->name, $msg);
    },
 ;