#include <std.h>

inherit DAEMON;

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

    if(!adminp(previous_object())) return 0;
    who = filter_array(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, "superuser") &&
          !member_group(previous_object(), "superuser")) continue;
        write(capitalize((string)who[i]->query_name())+" is being snooped by "+capitalize((string)snooper->query_name())+".\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
  );
}