/* -*- LPC -*- */ /* * $Locker: $ * $Id: snoope_rs.c,v 1.1 1998/01/06 05:25:41 ceres Exp $ * $Log: snoope_rs.c,v $ * Revision 1.1 1998/01/06 05:25:41 ceres * Initial revision * */ /* snoopers command, trial out by Turrican for a commands daemon. */ #include <creator.h> mixed cmd(string str) { object *obs; int i; obs = (object *)PEOPLER->get_people(str); obs = filter_array(obs, "check_snoop", this_object()); if (!sizeof(obs)) { notify_fail("No one is being snooped by anyone.\n"); return 0; } for (i=0;i<sizeof(obs);i++) write(obs[i]->query_cap_name()+" is snooping "+ obs[i]->query_snoopee()->query_cap_name()+".\n"); return 1; } int check_snoop(object ob) { if((object)ob->query_snoopee()) return 1; else return 0; } void dest_me() { destruct(this_object()); } void clean_up() { dest_me(); } void reset() { dest_me(); }