#! perl

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

   $pl->ob->set_ob_key_value (schmorplog_last_login => time);

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

   cf::ext::schmorp_irc::do_notice (sprintf "%s logged in", $pl->ob->name);

   0
}

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

   $pl->ob->set_ob_key_value (schmorplog_last_logout => time);

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

   cf::ext::schmorp_irc::do_notice (sprintf "%s left", $pl->ob->name);

   0
}

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

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

   0
}

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

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

   cf::ext::schmorp_irc::do_notice (sprintf "%s died a quick and not very horrible death", $ob->name);

   0
}

sub on_player_load {
   my ($ob, $path) = @_;

   $ob->set_ob_key_value (schmorplog_last_load => time);

   0
}

sub on_player_save {
   my ($ob, $path) = @_;

   $ob->set_ob_key_value (schmorplog_last_save => time);

   0
}