//	/bin/adm/_allow.c
//	from the Dead Souls mudlib
//	lets in selected players from sites on register
//	created by Shadowwolf@Dead Souls?

#include <lib.h>
#include <privs.h>
#include <daemons.h>

inherit LIB_DAEMON;

int cmd(string str) {
    string who, email;
    mixed res;

    if(!archp(previous_object())) return 0;
    if(!member_group(previous_object(), PRIV_SECURE)) {
	if(!member_group(previous_object(), "LAW")) {
	    notify_fail("Only law may allow new players in the game.\n");
	    return 0;
	}
    }
    if(!str) return 0;
    if(sscanf(lower_case(str), "%s %s", who, email) != 2) {
	notify_fail("Syntax: <allow [who] [email]>\n");
	return 0;
    }
    if(user_exists(who)) {
	notify_fail("A character by that name already exists.\n");
	return 0;
    }
    write(capitalize(who)+" is now allowed to create a character.\n");
    if(res = catch(call_other(BANISH_D, "allow_name", who)))
	write("Error in letting in "+who+": "+res+"\n");
    log_file("watch/players", capitalize(who)+": "+email+" ("+ctime(time())+")\n");
    return 1;
}

void help() {
    write("Syntax: <allow [who] [email] >\n\n");
    write("Members of law may allow people from sites on register to create\n");
    write("new characters with this command.  [who] is the character name,\n");
    write("[email] is the player's real life email address.\n");
    write("See also: noallow, wholetin, whobanished, whoregistered, whowatched\n");
}