From: Primacy <jmrobins@wired.uvm.edu>
Subject: [Circle] CODE: WHOIS command

If anyone is interested, here is some code for a whois command.
Thanks to Ron Hensley <ron@peace.dmv.com> for the bug fixes.

----- act.informative.c ----
ACMD(do_whois)
{
  struct char_data *victim = 0;
  struct char_file_u tmp_store;

  skip_spaces(&argument);

  if (!*argument) {
      send_to_char("Do a WhoIS on which player?\r\n", ch);
    } else {
      CREATE(victim, struct char_data, 1);
      clear_char(victim);
      if (load_char(argument, &tmp_store) > -1) {
        store_to_char(&tmp_store, victim);
        sprintf(buf, "Level %d %s\r\n", GET_LEVEL(victim),
                class_abbrevs[(int) GET_CLASS(victim)]);
        send_to_char(buf, ch);
      } else {
        send_to_char("There is no such player.\r\n", ch);
      }

      free(victim);
    }

}

---- interpreter.c ----
ACMD(do_whois)

{ "whois",  POS_DEAD, do_whois, 0, 0 },