--- deliantra/maps/perl/schmorplog.ext	2006/03/25 04:47:56	1.4
+++ deliantra/maps/perl/schmorplog.ext	2006/03/28 16:08:19	1.5
@@ -1,29 +1,29 @@
 #! perl
 
 sub on_login {
-   my ($event) = @_;
+   my ($ob, $host) = @_;
 
    cf::LOG cf::llevDebug, sprintf "QBERT %s logged in\n",
-      $event->{activator}->name, $event->{message};
+      $ob->name, $host;
 }
 
 sub on_logout {
-   my ($event) = @_;
+   my ($ob, $host) = @_;
 
    cf::LOG cf::llevDebug, sprintf "QBERT %s left\n",
-      $event->{activator}->name, $event->{message};
+      $ob->name, $host;
 }
 
 sub on_shout {
-   my ($event) = @_;
+   my ($ob, $msg) = @_;
 
    cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n",
-      $event->{activator}->name, $event->{message};
+      $ob->name, $msg;
 }
 
 sub on_player_death {
-   my ($event) = @_;
+   my ($ob) = @_;
 
    cf::LOG cf::llevDebug, sprintf "QBERT %s died a quick and not very horrible death\n",
-      $event->{who}->name;
+      $ob;
 }