#! perl

sub on_login {
   my ($ob, $host) = @_;

   cf::LOG cf::llevDebug, sprintf "QBERT %s logged in\n",
      $ob->name, $host;
}

sub on_logout {
   my ($ob, $host) = @_;

   cf::LOG cf::llevDebug, sprintf "QBERT %s left\n",
      $ob->name, $host;
}

sub on_shout {
   my ($ob, $msg) = @_;

   cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n",
      $ob->name, $msg;
}

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

   cf::LOG cf::llevDebug, sprintf "QBERT %s died a quick and not very horrible death\n",
      $ob;
}