/* /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;
}
