/*    /adm/daemon/banish.c
 *    from Dead Souls
 *    maintains information on legitimate character creation
 *    created by Descartes of Borg 940115
 */

#include <lib.h>
#include <privs.h>
#include <config.h> 
#include <objects.h>
#include <daemons.h> 
#include <save.h> 

inherit LIB_DAEMON;

string *__Names, *__Sites, *__WatchNames, *__WatchSites; 
string *__Allowed, *__Guests, *__IllegalSubStrings; 
mapping __TmpBanish;

static private int valid_access(object ob);
void register_site(string str);
void temporary_register(string str, int time);
string query_temp_sites();
void manual_temp_unregister(string str);
void clean_temp_sites();
void unregister_site(string str);
string *query_register();
void banish_name(string str);
void unbanish_name(string str);
string *query_banished();
void watch_site(string str);
void unwatch_site(string str);
string *query_watched_sites();
void watch_name(string str);
void unwatch_name(string str);
string *query_watched_names();
void allow_name(string str);
void unallow_name(string str);
string *query_allowed();
void set_illegal_substring(string str);
void remove_illegal_substring(string str);
string *query_illegal_substrings();
void add_guest(string str);
void remove_guest(string str);
string *query_guests();
static private void save_banish();
static private void restore_banish();
int GetGuest(string str);
int valid_name(string str);
int eventConnect(string nom, string ip);
static private int match_ip(string ip, string *sites);

void create() { 
    daemon::create();
    SetNoClean(1);
    __Names = ({}); 
    __Sites = ({}); 
    __WatchNames = ({}); 
    __WatchSites = ({}); 
    __Allowed = ({}); 
    __Guests = ({}); 
    __IllegalSubStrings = ({}); 
    __TmpBanish=([]);
    if(file_exists(SAVE_BANISH+__SAVE_EXTENSION__))
	restore_banish();
    if(!__TmpBanish) __TmpBanish = ([]);
    clean_temp_sites();
} 

static private int valid_access(object ob) { 
    return (int)master()->valid_apply( ({ "ASSIST" }) );
} 

int valid_cap_name(string cap, string nom) {
    int i;

    if(convert_name(cap) != nom) return 0;
    if((i = strlen(cap)) > MAX_USER_CAP_NAME_LENGTH) return 0;
    if(strsrch(cap, "'-") != -1) return 0;
    if(strsrch(cap, "' ") != -1) return 0;
    if(strsrch(cap, "''") != -1) return 0;
    if(strsrch(cap, "-'") != -1) return 0;
    if(strsrch(cap, "- ") != -1) return 0;
    if(strsrch(cap, "--") != -1) return 0;
    if(strsrch(cap, " '") != -1) return 0;
    if(strsrch(cap, " -") != -1) return 0;
    if(strsrch(cap, "  ") != -1) return 0;
    if(lower_case(cap[i-1..i-1]) != nom[strlen(nom)-1..strlen(nom)-1])
	return 0;
    return 1;
}

void register_site(string str) { 
    if(!valid_access(previous_object())) return; 
    if(member_array(str, keys(__TmpBanish))!=-1)
	map_delete(__TmpBanish,str);   
    __Sites = distinct_array(__Sites + ({ str }) ); 
    save_banish(); 
} 

void temporary_register(string str, int foo) {
    if(!valid_access(previous_object())) return;
    foo+=time();
    __TmpBanish+=([ str : foo ]);
    __Sites = distinct_array(__Sites + ({str}));
    save_banish();
}

string query_temp_site_info() {
    string info, *site;
    int i;

    if(!valid_access(previous_object())) return "";
    for(i=0,info="";i<sizeof(site=keys(__TmpBanish));i++)
	info+= site[i]+" will expire at "+ctime(__TmpBanish[site[i]])+".\n";
    if(!info) info = "No sites are on temporary registration.";
    return info;
}

void manual_temp_unregister(string str) {

    if(!valid_access(previous_object())) return;
    if(member_array(str, keys(__TmpBanish))==-1) return;
    map_delete(__TmpBanish,str);
    __Sites -= ({str});
    save_banish();
}

void clean_temp_sites() {
    int *times,i;
    string *sites;


    times=values(__TmpBanish);
    sites=keys(__TmpBanish);

    for(i=0;i<sizeof(times);i++) {
	if(times[i]<time()) {
	    map_delete(__TmpBanish,sites[i]);
	    __Sites -= ({sites[i]});
	}
    }
    save_banish();
    call_out("clean_temp_sites", 900); 
}

void unregister_site(string str) { 
    if(!valid_access(previous_object())) return; 
    __Sites -= ({ str }); 
    save_banish(); 
} 

string *query_registered() { 
    if(!valid_access(previous_object())) return ({});
    return __Sites;
} 

void banish_name(string str) { 
    if(!valid_access(previous_object())) return;
    unguarded( (: log_file, "banish", 
	(string)this_player()->GetName() + " banished " + str + "." :) );
    __Names = distinct_array(__Names + ({ lower_case(str) })); 
    save_banish(); 
} 

void unbanish_name(string str) { 
    if(!valid_access(previous_object())) return; 
    __Names -= ({ lower_case(str) }); 
    save_banish(); 
} 

string *query_banished() { 
    if(!valid_access(previous_object())) return ({}); 
    return __Names; 
} 

void watch_site(string str) { 
    if(!valid_access(previous_object())) return; 
    __WatchSites = distinct_array(__WatchSites + ({ str })); 
    save_banish(); 
} 

void unwatch_site(string str) { 
    if(!valid_access(previous_object())) return; 
    __WatchSites -= ({ str }); 
    save_banish(); 
} 

string *query_watched_sites() { 
    if(!valid_access(previous_object())) return ({}); 
    return __WatchSites; 
} 

void watch_name(string str) { 
    if(!valid_access(previous_object())) return; 
    __WatchNames = distinct_array(__WatchNames + ({ lower_case(str) })); 
    save_banish(); 
} 

void unwatch_name(string str) { 
    if(!valid_access(previous_object())) return; 
    __WatchNames -= ({ lower_case(str) }); 
    save_banish(); 
} 

string *query_watched_names() { 
    if(!valid_access(previous_object())) return ({}); 
    return __WatchNames; 
} 

void allow_name(string str) { 
    if(!valid_access(previous_object())) return; 
    __Allowed = distinct_array(__Allowed + ({ lower_case(str) })); 
    save_banish(); 
} 

void unallow_name(string str) { 
    if(!valid_access(previous_object())) return; 
    __Allowed -= ({ lower_case(str) }); 
    save_banish(); 
} 

string *query_allowed() { 
    if(!valid_access(previous_object())) return ({}); 
    return __Allowed; 
} 

void set_illegal_substring(string str) { 
    if(!valid_access(previous_object())) return; 
    __IllegalSubStrings = distinct_array(__IllegalSubStrings + 
      ({ lower_case(str) })); 
    save_banish(); 
} 

void remove_illegal_substring(string str) { 
    if(!valid_access(previous_object())) return; 
    __IllegalSubStrings -= ({ lower_case(str) }); 
    save_banish(); 
} 

string *query_illegal_substrings() {  
    if(!valid_access(previous_object())) return ({}); 
    else return __IllegalSubStrings; 
} 

void add_guest(string str) { 
    if(!valid_access(previous_object())) return; 
    __Guests = distinct_array(__Guests + ({ lower_case(str) })); 
    save_banish(); 
} 

void remove_guest(string str) { 
    if(!valid_access(previous_object())) return; 
    __Guests -= ({ lower_case(str) }); 
    save_banish(); 
} 

string *query_guests() { 
    if(!valid_access(previous_object())) return ({}); 
    else return __Guests; 
} 

static private void save_banish() { 
    save_object(SAVE_BANISH);
} 

static private void restore_banish() { 
    restore_object(SAVE_BANISH);
} 

int GetGuest(string str) { 
    if(base_name(previous_object()) != LIB_CONNECT ) return 0;
    else return (member_array(lower_case(str), __Guests) != -1); 
} 

int valid_name(string str) { 
    int i, x; 

    if(base_name(previous_object()) != LIB_CONNECT ) return 0;
    if(member_array(str, __Names) != -1) return 0; 
    i = sizeof(__IllegalSubStrings);
    while(i--) if(strsrch(str, __IllegalSubStrings[i]) != -1) return 0;
    if((x = strlen(str)) > MAX_USER_NAME_LENGTH) return 0; 
    if(x < MIN_USER_NAME_LENGTH) return 0; 
    for(i=0; i<x; i++)  
	if(str[i] < 'a' || str[i] > 'z') return 0; 
    return 1; 
} 

int eventConnect(string nom, string ip) {
    if(base_name(previous_object()) != LIB_CONNECT ) return 0;
    if(member_array(nom, __WatchNames) != -1) { 
	log_file("watch/names", sprintf("%s from %s at %s\n", nom, ip,
	    ctime(time()))); 
    } 
    if(match_ip(ip, __WatchSites)) { 
	log_file("watch/"+ip, sprintf("%s at %s\n", nom, ctime(time()))); 
    } 
    if(member_array(nom, __Allowed) != -1) { 
	log_file("watch/allowed", sprintf("%s from %s at %s\n", nom, ip,
	    ctime(time()))); 
	__Allowed -= ({ nom }); 
	save_banish(); 
	return 1; 
    }
    if(match_ip(ip, __Sites)) { 
	if(user_exists(nom)) { 
	    log_file("watch/"+ip, sprintf("%s allowed in from %s at %s\n",
		nom, ip, 
		ctime(time()))); 
	    return 1; 
	} 
	else { 
	    log_file("watch/"+ip, sprintf("%s failed from %s at %s\n"
		, nom,
		ip, 
		ctime(time()))); 
	    return 0; 
	} 
    } 
    return 1; 
} 

static private int match_ip(string ip, string *sites) { 
    foreach(string site in sites) {
	int i;

	if( site == ip ) return 1;
	i = strsrch(site, "*");
	if( i > 0 ) {
	    if( ip[0..(i-1)] == site[0..(i-1)] ) return 1;
	}
    }
    return 0;
}