#! perl

sub on_login {
   my ($event) = @_;

   cf::LOG cf::llevDebug, sprintf "QBERT %s logged in\n",
      $event->{activator}->name, $event->{message};
}

sub on_logout {
   my ($event) = @_;

   cf::LOG cf::llevDebug, sprintf "QBERT %s left\n",
      $event->{activator}->name, $event->{message};
}

sub on_shout {
   my ($event) = @_;

   cf::LOG cf::llevDebug, sprintf "QBERT %s: %s\n",
      $event->{activator}->name, $event->{message};
}

sub on_player_death {
   my ($event) = @_;

   cf::LOG cf::llevDebug, sprintf "QBERT %s died\n",
      $event->{who}->name;
}