ds2.1.1/bin/
ds2.1.1/extra/wolfpaw/
ds2.1.1/lib/cmds/admins/
ds2.1.1/lib/cmds/common/
ds2.1.1/lib/cmds/creators/include/
ds2.1.1/lib/cmds/creators/include/SCCS/
ds2.1.1/lib/daemon/services/
ds2.1.1/lib/doc/
ds2.1.1/lib/doc/efun/all/
ds2.1.1/lib/doc/efun/arrays/
ds2.1.1/lib/doc/efun/buffers/
ds2.1.1/lib/doc/efun/compile/
ds2.1.1/lib/doc/efun/floats/
ds2.1.1/lib/doc/efun/functions/
ds2.1.1/lib/doc/efun/general/
ds2.1.1/lib/doc/efun/mixed/
ds2.1.1/lib/doc/efun/numbers/
ds2.1.1/lib/doc/efun/parsing/
ds2.1.1/lib/doc/faq/
ds2.1.1/lib/doc/hbook/
ds2.1.1/lib/doc/help/classes/
ds2.1.1/lib/doc/lpc/basic/
ds2.1.1/lib/doc/lpc/concepts/
ds2.1.1/lib/doc/lpc/constructs/
ds2.1.1/lib/doc/lpc/etc/
ds2.1.1/lib/doc/lpc/intermediate/
ds2.1.1/lib/doc/lpc/types/
ds2.1.1/lib/doc/misc/
ds2.1.1/lib/doc/old/
ds2.1.1/lib/domains/Ylsrim/
ds2.1.1/lib/domains/Ylsrim/adm/
ds2.1.1/lib/domains/Ylsrim/armor/
ds2.1.1/lib/domains/Ylsrim/broken/
ds2.1.1/lib/domains/Ylsrim/fish/
ds2.1.1/lib/domains/Ylsrim/meal/
ds2.1.1/lib/domains/Ylsrim/npc/
ds2.1.1/lib/domains/Ylsrim/obj/
ds2.1.1/lib/domains/Ylsrim/virtual/
ds2.1.1/lib/domains/Ylsrim/weapon/
ds2.1.1/lib/domains/campus/adm/
ds2.1.1/lib/domains/campus/etc/
ds2.1.1/lib/domains/campus/meals/
ds2.1.1/lib/domains/campus/npc/
ds2.1.1/lib/domains/campus/txt/ai/charles/
ds2.1.1/lib/domains/campus/txt/ai/charles/bak2/
ds2.1.1/lib/domains/campus/txt/ai/charles/bak2/bak1/
ds2.1.1/lib/domains/campus/txt/ai/charly/
ds2.1.1/lib/domains/campus/txt/ai/charly/bak/
ds2.1.1/lib/domains/campus/txt/jenny/
ds2.1.1/lib/domains/default/creator/
ds2.1.1/lib/domains/default/doors/
ds2.1.1/lib/domains/default/etc/
ds2.1.1/lib/domains/default/weap/
ds2.1.1/lib/domains/town/doors/
ds2.1.1/lib/domains/town/txt/
ds2.1.1/lib/domains/town/txt/shame/
ds2.1.1/lib/domains/town/virtual/
ds2.1.1/lib/lib/comp/
ds2.1.1/lib/lib/lvs/
ds2.1.1/lib/lib/user/
ds2.1.1/lib/lib/virtual/
ds2.1.1/lib/log/
ds2.1.1/lib/obj/book_source/
ds2.1.1/lib/obj/include/
ds2.1.1/lib/realms/template/
ds2.1.1/lib/realms/template/area/armor/
ds2.1.1/lib/realms/template/area/npc/
ds2.1.1/lib/realms/template/area/obj/
ds2.1.1/lib/realms/template/area/room/
ds2.1.1/lib/realms/template/area/weap/
ds2.1.1/lib/realms/template/bak/
ds2.1.1/lib/realms/template/cmds/
ds2.1.1/lib/save/kills/o/
ds2.1.1/lib/secure/cfg/
ds2.1.1/lib/secure/cfg/classes/
ds2.1.1/lib/secure/cfg/races/SCCS/
ds2.1.1/lib/secure/cmds/creators/include/
ds2.1.1/lib/secure/cmds/players/
ds2.1.1/lib/secure/cmds/players/include/
ds2.1.1/lib/secure/daemon/include/
ds2.1.1/lib/secure/lib/
ds2.1.1/lib/secure/lib/include/
ds2.1.1/lib/secure/lib/net/
ds2.1.1/lib/secure/lib/net/include/
ds2.1.1/lib/secure/lib/std/
ds2.1.1/lib/secure/modules/
ds2.1.1/lib/secure/npc/
ds2.1.1/lib/secure/obj/include/
ds2.1.1/lib/secure/room/
ds2.1.1/lib/secure/save/
ds2.1.1/lib/secure/save/boards/
ds2.1.1/lib/secure/verbs/creators/
ds2.1.1/lib/shadows/
ds2.1.1/lib/spells/
ds2.1.1/lib/verbs/admins/include/
ds2.1.1/lib/verbs/common/
ds2.1.1/lib/verbs/common/include/
ds2.1.1/lib/verbs/creators/
ds2.1.1/lib/verbs/creators/include/
ds2.1.1/lib/verbs/players/include/SCCS/
ds2.1.1/lib/verbs/rooms/
ds2.1.1/lib/verbs/rooms/include/
ds2.1.1/lib/www/errors/
ds2.1.1/lib/www/images/
ds2.1.1/v22.2b14/
ds2.1.1/v22.2b14/ChangeLog.old/
ds2.1.1/v22.2b14/Win32/
ds2.1.1/v22.2b14/compat/
ds2.1.1/v22.2b14/compat/simuls/
ds2.1.1/v22.2b14/include/
ds2.1.1/v22.2b14/testsuite/
ds2.1.1/v22.2b14/testsuite/clone/
ds2.1.1/v22.2b14/testsuite/command/
ds2.1.1/v22.2b14/testsuite/data/
ds2.1.1/v22.2b14/testsuite/etc/
ds2.1.1/v22.2b14/testsuite/include/
ds2.1.1/v22.2b14/testsuite/inherit/
ds2.1.1/v22.2b14/testsuite/inherit/master/
ds2.1.1/v22.2b14/testsuite/log/
ds2.1.1/v22.2b14/testsuite/single/
ds2.1.1/v22.2b14/testsuite/single/tests/compiler/
ds2.1.1/v22.2b14/testsuite/single/tests/efuns/
ds2.1.1/v22.2b14/testsuite/single/tests/operators/
ds2.1.1/v22.2b14/testsuite/u/
ds2.1.1/v22.2b14/tmp/
ds2.1.1/win32/
/*    /daemon/postal/localpost.c
 *    from Foundation II
 *    filter for mails coming in from outside and inside
 *    created by Descartes of Borg 940503
 */

#include <lib.h>
#include <cfg.h>
#include <objects.h>
#include <daemons.h>
#include "localpost.h"

inherit LIB_DAEMON;

static private mapping __MudGroups;

void create() {
    daemon::create();
    SetNoClean(1);
    load_groups();
}

void load_groups() {
    mapping tmp;
    string *lines, *parts;
    string a, b;
    int i, maxi, x, j;

    maxi = sizeof(lines = filter(explode(read_file(CFG_ALIASES), "\n"),
	(: $1 && $1 != "" && $1[0] != '#' :)));
    for(i=0, tmp = ([]); i<maxi; i++) {
	if(sscanf(lines[i], "%s: %s", a, b) != 2) continue;
	if(b[0..0] == "|") {
	    x = sizeof(parts = explode(b[1..strlen(b)-1], ";"));
	    if(a == "include") {
		switch(sizeof(parts)) {
		case 2:
		    tmp += (mapping)call_other(parts[0],parts[1]);
		    break;
		case 3:
		    tmp+=(mapping)call_other(parts[0],parts[1],
		      parts[2]);
		    break;
		default:
		    tmp += (mapping)call_other(parts[0], parts[1],
		      parts[2], parts[3]);
		    break;
		}
	    }
	    else switch(sizeof(parts)) {
	    case 2: 
		tmp[a] = (string *)call_other(parts[0],parts[1]);
		break;
	    case 3:
		tmp[a] = (string *)call_other(parts[0],parts[1],
		  parts[2]);
		break;
	    default:
		tmp[a] = (string *)call_other(parts[0],parts[1],
		  parts[2], parts[3]);
	    }
	}
	else {
	    x = sizeof(parts = explode(b, " "));
	    if(a != "exclude") tmp[a] = ({});
	    for(j=0; j<x; j++) {
		if(a == "exclude" && tmp[parts[j]])
		    map_delete(tmp, parts[j]);
		else if(a == "exclude") continue;
		else if(tmp[parts[j]]) tmp[a]+=tmp[parts[j]];
		else tmp[a] += ({ parts[j] });
	    }
	}
    }
    i = sizeof(parts = keys(tmp));
    __MudGroups = ([]);
    while(i--) __MudGroups[lower_case(parts[i])] = tmp[parts[i]];
}

varargs string *send_post(mapping borg, mixed who) {
    mapping remote_mail, grps;
    string *rejects, *tmp, *tmpwho, *cles;
    string msg, a, b, tmpstr;
    int i, j, x;

    if(!who) who = distinct_array(borg["to"] + borg["cc"]);
    tmpstr = base_name(previous_object(0));
    if(tmpstr != OBJ_POST && tmpstr != REMOTEPOST_D && tmpstr != FOLDERS_D)
	return (pointerp(who) ? who : ({ who }));
    rejects = ({});
    grps = (mapping)OPTIONS_D->query_groups(borg["from"]);
    borg["id"] = (string)LETTERS_D->create_letter(borg["message"]);
    msg = borg["message"];
    map_delete(borg, "message");
    remote_mail = ([]);
    if(pointerp(who)) {
	i = sizeof(who);
	tmpwho = ({});
	x = (int)OPTIONS_D->query_option(borg["from"], "metoo");
	while(i--) {
	    if(pointerp(who[i] = map_groups(who[i], grps, borg["from"], x))) 
		tmpwho += who[i];
	    else tmpwho += ({ who[i] });
	}
	i = sizeof(who = tmpwho);
	while(i--) {
	    if(sscanf(who[i], "%s@%s", a, b) == 2) {
		if(!remote_mail[b]) remote_mail[b] = ({});
		remote_mail[b] += ({});
	    }
	    else if(!user_exists(who[i])) rejects += ({ who[i] });
	    else FOLDERS_D->add_post(who[i], "new", borg);
	}
	j = sizeof(cles = keys(remote_mail));
	while(j--) 
	    if(!((int)REMOTEPOST_D->send_post(borg+(["message":msg]), cles[j])))
		rejects += remote_mail[cles[j]];
	return rejects;
    }
    else if(pointerp(tmp = __MudGroups[who]) && (i = sizeof(tmp))) {
	while(i--) {
	    if(sscanf(tmp[i], "%s@%s", a, b) == 2) {
		if(!remote_mail[b]) remote_mail[b] = ({});
		remote_mail[b] += ({ tmp[i] });
	    }
	    else if(!user_exists(tmp[i])) rejects += ({ tmp[i] });
	    else FOLDERS_D->add_post(tmp[i], "new", borg);
	}
	i = sizeof(cles = keys(remote_mail));
	while(i--) 
	    if(!((int)REMOTEPOST_D->send_post(borg+(["message":msg]), cles[i])))
		rejects += remote_mail[cles[i]];
	return rejects;
    }
    else if(pointerp(tmp = (string *)OPTIONS_D->query_group(who)) &&
      (i = sizeof(tmp))) {
	while(i--) {
	    if(sscanf(tmp[i], "%s@%s", a, b) == 2) {
		if(!remote_mail[b]) remote_mail[b] = ({});
		remote_mail[b] += ({ tmp[i] });
	    }
	    else if(!user_exists(tmp[i])) rejects += ({ tmp[i] });
	    else FOLDERS_D->add_post(tmp[i], "new", borg);
	}
	i = sizeof(cles = keys(remote_mail));
	while(i--)
	    if(!((int)REMOTEPOST_D->send_post(borg+(["message":msg]),cles[i])))
		rejects += remote_mail[cles[i]];
	return rejects;
    }
    else {
	if(sscanf(who, "%s@%s", a, b) == 2) {
	    if(!((int)REMOTEPOST_D->send_post(borg+(["message":msg]),b)))
		return ({ who });
	}
	else if(!user_exists(who)) return ({ who });
	else FOLDERS_D->add_post(who, "new", borg);
	return ({});
    }
}

static private mixed map_groups(string str, mapping grps, string who, int x) {
    if(__MudGroups[str]) return (string *)__MudGroups[str] - ({ who });
    else if(grps[str] && sizeof(grps[str]))
	return (string *)grps[str] - ({ who });
    else return str;
}

string *query_mud_group(string str) { return copy(__MudGroups[str]); }

mapping query_mud_groups() { return copy(__MudGroups); }