#include <lib.h>

inherit LIB_DAEMON;

int cmd(string str) {
    object *who;
    object snooper;
    int i, max;

    if(!archp(previous_object())) return 0;
    who = filter(users(), "filter_snoopers", this_object());
    if(!(max = sizeof(who))) {
        write("No one is snooping anyone.\n");
        return 1;
    }
    for (i = 0; i < sizeof(who); i++) {
	snooper = query_snoop(who[i]);
        if(member_group(snooper, "SECURE") &&
          !member_group(previous_object(), "SECURE")) continue;
        write(capitalize((string)who[i]->GetKeyName())+" is being snooped by "+capitalize((string)snooper->GetKeyName())+".\n");
    }
    return 1;
}

int filter_snoopers(object ob) {
    object tmp;

    tmp = query_snoop(ob);
    return !(!tmp);
}

void help() {
  write( @EndText
Syntax: snoopers
Effect: Lists users on with who they are snooping.
See also: snoop, snoopable
EndText
  );
}