/* -*- LPC -*- */
/*
* $Locker: $
* $Id: dbxwhere.c,v 1.1 1998/01/06 05:25:41 ceres Exp $
* $Log: dbxwhere.c,v $
* Revision 1.1 1998/01/06 05:25:41 ceres
* Initial revision
*
*/
/* Beek - 10/4/94 */
inherit "/cmds/base";
mixed cmd(string str) {
mapping error;
object ob;
if (str) {
str = this_player()->expand_nickname(str);
ob = find_player(str);
if (!ob) {
write("No such player.\n");
return 1;
}
} else
ob = this_player();
if (error = (mapping)ob->get_last_error()) {
printf("%s\n", master()->standard_trace(error, 1));
} else write("No error.\n");
return 1;
}
