skylib_fluffos_v3/
skylib_fluffos_v3/bin/
skylib_fluffos_v3/bin/db/
skylib_fluffos_v3/fluffos-2.9-ds2.04/
skylib_fluffos_v3/fluffos-2.9-ds2.04/ChangeLog.old/
skylib_fluffos_v3/fluffos-2.9-ds2.04/Win32/
skylib_fluffos_v3/fluffos-2.9-ds2.04/compat/
skylib_fluffos_v3/fluffos-2.9-ds2.04/compat/simuls/
skylib_fluffos_v3/fluffos-2.9-ds2.04/include/
skylib_fluffos_v3/fluffos-2.9-ds2.04/testsuite/
skylib_fluffos_v3/fluffos-2.9-ds2.04/testsuite/clone/
skylib_fluffos_v3/fluffos-2.9-ds2.04/testsuite/command/
skylib_fluffos_v3/fluffos-2.9-ds2.04/testsuite/data/
skylib_fluffos_v3/fluffos-2.9-ds2.04/testsuite/etc/
skylib_fluffos_v3/fluffos-2.9-ds2.04/testsuite/include/
skylib_fluffos_v3/fluffos-2.9-ds2.04/testsuite/inherit/
skylib_fluffos_v3/fluffos-2.9-ds2.04/testsuite/inherit/master/
skylib_fluffos_v3/fluffos-2.9-ds2.04/testsuite/log/
skylib_fluffos_v3/fluffos-2.9-ds2.04/testsuite/single/
skylib_fluffos_v3/fluffos-2.9-ds2.04/testsuite/single/tests/compiler/
skylib_fluffos_v3/fluffos-2.9-ds2.04/testsuite/single/tests/efuns/
skylib_fluffos_v3/fluffos-2.9-ds2.04/testsuite/single/tests/operators/
skylib_fluffos_v3/fluffos-2.9-ds2.04/testsuite/u/
skylib_fluffos_v3/fluffos-2.9-ds2.04/tmp/
skylib_fluffos_v3/fluffos-2.9-ds2.04/windows/
skylib_fluffos_v3/mudlib/
skylib_fluffos_v3/mudlib/cmds/
skylib_fluffos_v3/mudlib/cmds/admin/
skylib_fluffos_v3/mudlib/cmds/guild-race/
skylib_fluffos_v3/mudlib/cmds/living/broken/
skylib_fluffos_v3/mudlib/cmds/player/group_cmds/
skylib_fluffos_v3/mudlib/cmds/playtester/
skylib_fluffos_v3/mudlib/d/admin/
skylib_fluffos_v3/mudlib/d/admin/room/
skylib_fluffos_v3/mudlib/d/admin/room/we_care/
skylib_fluffos_v3/mudlib/d/admin/save/
skylib_fluffos_v3/mudlib/d/admin/text/
skylib_fluffos_v3/mudlib/d/learning/TinyTown/buildings/
skylib_fluffos_v3/mudlib/d/learning/TinyTown/map/
skylib_fluffos_v3/mudlib/d/learning/TinyTown/roads/
skylib_fluffos_v3/mudlib/d/learning/chars/
skylib_fluffos_v3/mudlib/d/learning/functions/
skylib_fluffos_v3/mudlib/d/learning/handlers/
skylib_fluffos_v3/mudlib/d/learning/help_topics/
skylib_fluffos_v3/mudlib/d/learning/help_topics/npcs/
skylib_fluffos_v3/mudlib/d/learning/help_topics/objects/
skylib_fluffos_v3/mudlib/d/learning/help_topics/rcs_demo/
skylib_fluffos_v3/mudlib/d/learning/help_topics/rcs_demo/RCS/
skylib_fluffos_v3/mudlib/d/learning/help_topics/rooms/
skylib_fluffos_v3/mudlib/d/learning/help_topics/rooms/crowd/
skylib_fluffos_v3/mudlib/d/learning/help_topics/rooms/situations/
skylib_fluffos_v3/mudlib/d/learning/save/
skylib_fluffos_v3/mudlib/d/learning/school/
skylib_fluffos_v3/mudlib/d/learning/school/add_sc/
skylib_fluffos_v3/mudlib/d/learning/school/characters/
skylib_fluffos_v3/mudlib/d/learning/school/general/
skylib_fluffos_v3/mudlib/d/learning/school/getting-started/
skylib_fluffos_v3/mudlib/d/learning/school/getting-started/basic_commands/
skylib_fluffos_v3/mudlib/d/learning/school/getting-started/edtutor/
skylib_fluffos_v3/mudlib/d/learning/school/getting-started/unix_tutor/
skylib_fluffos_v3/mudlib/d/learning/school/items/
skylib_fluffos_v3/mudlib/d/learning/school/npc_school/
skylib_fluffos_v3/mudlib/d/learning/school/room_school/
skylib_fluffos_v3/mudlib/d/learning/school/room_school/room_basic/
skylib_fluffos_v3/mudlib/d/learning/school/room_school/situations/
skylib_fluffos_v3/mudlib/d/learning/school/room_school/terrain_tutor/
skylib_fluffos_v3/mudlib/d/learning/text/
skylib_fluffos_v3/mudlib/d/liaison/
skylib_fluffos_v3/mudlib/d/mudlib/
skylib_fluffos_v3/mudlib/d/mudlib/changes/
skylib_fluffos_v3/mudlib/d/playtesters/
skylib_fluffos_v3/mudlib/d/playtesters/effects/
skylib_fluffos_v3/mudlib/d/playtesters/handlers/
skylib_fluffos_v3/mudlib/d/playtesters/items/
skylib_fluffos_v3/mudlib/d/sage/
skylib_fluffos_v3/mudlib/doc/
skylib_fluffos_v3/mudlib/doc/creator/
skylib_fluffos_v3/mudlib/doc/driver/
skylib_fluffos_v3/mudlib/doc/driver/efuns/arrays/
skylib_fluffos_v3/mudlib/doc/driver/efuns/buffers/
skylib_fluffos_v3/mudlib/doc/driver/efuns/calls/
skylib_fluffos_v3/mudlib/doc/driver/efuns/compile/
skylib_fluffos_v3/mudlib/doc/driver/efuns/filesystem/
skylib_fluffos_v3/mudlib/doc/driver/efuns/floats/
skylib_fluffos_v3/mudlib/doc/driver/efuns/functions/
skylib_fluffos_v3/mudlib/doc/driver/efuns/general/
skylib_fluffos_v3/mudlib/doc/driver/efuns/mappings/
skylib_fluffos_v3/mudlib/doc/driver/efuns/mixed/
skylib_fluffos_v3/mudlib/doc/driver/efuns/mudlib/
skylib_fluffos_v3/mudlib/doc/driver/efuns/numbers/
skylib_fluffos_v3/mudlib/doc/driver/efuns/parsing/
skylib_fluffos_v3/mudlib/doc/login/
skylib_fluffos_v3/mudlib/doc/lpc/basic_manual/
skylib_fluffos_v3/mudlib/doc/lpc/intermediate/
skylib_fluffos_v3/mudlib/doc/new/add_command/
skylib_fluffos_v3/mudlib/doc/new/events/
skylib_fluffos_v3/mudlib/doc/new/handlers/
skylib_fluffos_v3/mudlib/doc/new/living/race/
skylib_fluffos_v3/mudlib/doc/new/living/spells/
skylib_fluffos_v3/mudlib/doc/new/object/
skylib_fluffos_v3/mudlib/doc/new/player/
skylib_fluffos_v3/mudlib/doc/new/room/guild/
skylib_fluffos_v3/mudlib/doc/new/room/outside/
skylib_fluffos_v3/mudlib/doc/new/room/storeroom/
skylib_fluffos_v3/mudlib/doc/object/
skylib_fluffos_v3/mudlib/doc/playtesters/
skylib_fluffos_v3/mudlib/doc/policy/
skylib_fluffos_v3/mudlib/doc/weapons/
skylib_fluffos_v3/mudlib/global/
skylib_fluffos_v3/mudlib/global/creator/
skylib_fluffos_v3/mudlib/handlers/
skylib_fluffos_v3/mudlib/include/casino/
skylib_fluffos_v3/mudlib/include/cmds/
skylib_fluffos_v3/mudlib/include/effects/
skylib_fluffos_v3/mudlib/include/npc/
skylib_fluffos_v3/mudlib/include/room/
skylib_fluffos_v3/mudlib/include/shops/
skylib_fluffos_v3/mudlib/net/daemon/
skylib_fluffos_v3/mudlib/net/daemon/chars/
skylib_fluffos_v3/mudlib/net/inherit/
skylib_fluffos_v3/mudlib/net/obj/
skylib_fluffos_v3/mudlib/net/obj/BACKUPS/
skylib_fluffos_v3/mudlib/obj/amulets/
skylib_fluffos_v3/mudlib/obj/armours/plate/
skylib_fluffos_v3/mudlib/obj/b_day/
skylib_fluffos_v3/mudlib/obj/clothes/transport/horse/
skylib_fluffos_v3/mudlib/obj/faith/symbols/
skylib_fluffos_v3/mudlib/obj/fungi/
skylib_fluffos_v3/mudlib/obj/gatherables/
skylib_fluffos_v3/mudlib/obj/instruments/
skylib_fluffos_v3/mudlib/obj/media/
skylib_fluffos_v3/mudlib/obj/misc/player_shop/
skylib_fluffos_v3/mudlib/obj/monster/godmother/
skylib_fluffos_v3/mudlib/obj/monster/transport/
skylib_fluffos_v3/mudlib/obj/rings/
skylib_fluffos_v3/mudlib/obj/scabbards/
skylib_fluffos_v3/mudlib/obj/spells/
skylib_fluffos_v3/mudlib/obj/stationery/
skylib_fluffos_v3/mudlib/obj/stationery/envelopes/
skylib_fluffos_v3/mudlib/obj/toys/
skylib_fluffos_v3/mudlib/obj/vessels/
skylib_fluffos_v3/mudlib/obj/weapons/axes/
skylib_fluffos_v3/mudlib/obj/weapons/chains/
skylib_fluffos_v3/mudlib/obj/weapons/maces/BACKUPS/
skylib_fluffos_v3/mudlib/save/autodoc/
skylib_fluffos_v3/mudlib/save/book_handler/
skylib_fluffos_v3/mudlib/save/books/history/calarien/
skylib_fluffos_v3/mudlib/save/mail/
skylib_fluffos_v3/mudlib/save/new_soul/data/
skylib_fluffos_v3/mudlib/save/parcels/
skylib_fluffos_v3/mudlib/save/playerinfo/
skylib_fluffos_v3/mudlib/save/players/d/
skylib_fluffos_v3/mudlib/save/players/s/
skylib_fluffos_v3/mudlib/save/random_names/
skylib_fluffos_v3/mudlib/save/random_names/data/
skylib_fluffos_v3/mudlib/save/terrains/
skylib_fluffos_v3/mudlib/save/terrains/tutorial_desert/
skylib_fluffos_v3/mudlib/save/terrains/tutorial_grassy_field/
skylib_fluffos_v3/mudlib/save/terrains/tutorial_mountain/
skylib_fluffos_v3/mudlib/save/todo_lists/
skylib_fluffos_v3/mudlib/secure/
skylib_fluffos_v3/mudlib/secure/cmds/admin/
skylib_fluffos_v3/mudlib/secure/cmds/lord/
skylib_fluffos_v3/mudlib/secure/config/
skylib_fluffos_v3/mudlib/secure/handlers/autodoc/
skylib_fluffos_v3/mudlib/secure/handlers/intermud/
skylib_fluffos_v3/mudlib/secure/include/global/
skylib_fluffos_v3/mudlib/secure/save/
skylib_fluffos_v3/mudlib/secure/save/handlers/
skylib_fluffos_v3/mudlib/secure/std/
skylib_fluffos_v3/mudlib/secure/std/classes/
skylib_fluffos_v3/mudlib/secure/std/modules/
skylib_fluffos_v3/mudlib/std/creator/
skylib_fluffos_v3/mudlib/std/dom/
skylib_fluffos_v3/mudlib/std/effects/
skylib_fluffos_v3/mudlib/std/effects/external/
skylib_fluffos_v3/mudlib/std/effects/fighting/
skylib_fluffos_v3/mudlib/std/effects/magic/
skylib_fluffos_v3/mudlib/std/effects/magic/BACKUPS/
skylib_fluffos_v3/mudlib/std/effects/other/BACKUPS/
skylib_fluffos_v3/mudlib/std/effects/priest/
skylib_fluffos_v3/mudlib/std/effects/room/
skylib_fluffos_v3/mudlib/std/environ/
skylib_fluffos_v3/mudlib/std/guilds/
skylib_fluffos_v3/mudlib/std/guilds/old/
skylib_fluffos_v3/mudlib/std/languages/
skylib_fluffos_v3/mudlib/std/liquids/
skylib_fluffos_v3/mudlib/std/npc/
skylib_fluffos_v3/mudlib/std/npc/goals/
skylib_fluffos_v3/mudlib/std/npc/goals/basic/
skylib_fluffos_v3/mudlib/std/npc/goals/misc/
skylib_fluffos_v3/mudlib/std/npc/plans/
skylib_fluffos_v3/mudlib/std/npc/plans/basic/
skylib_fluffos_v3/mudlib/std/npc/types/
skylib_fluffos_v3/mudlib/std/npc/types/helper/
skylib_fluffos_v3/mudlib/std/npcs/
skylib_fluffos_v3/mudlib/std/outsides/
skylib_fluffos_v3/mudlib/std/races/shadows/
skylib_fluffos_v3/mudlib/std/room/basic/BACKUPS/
skylib_fluffos_v3/mudlib/std/room/basic/topography/
skylib_fluffos_v3/mudlib/std/room/controller/
skylib_fluffos_v3/mudlib/std/room/inherit/topography/
skylib_fluffos_v3/mudlib/std/room/topography/area/
skylib_fluffos_v3/mudlib/std/room/topography/iroom/
skylib_fluffos_v3/mudlib/std/room/topography/milestone/
skylib_fluffos_v3/mudlib/std/shadows/curses/
skylib_fluffos_v3/mudlib/std/shadows/disease/
skylib_fluffos_v3/mudlib/std/shadows/fighting/
skylib_fluffos_v3/mudlib/std/shadows/healing/
skylib_fluffos_v3/mudlib/std/shadows/magic/
skylib_fluffos_v3/mudlib/std/shadows/poison/
skylib_fluffos_v3/mudlib/std/shadows/room/
skylib_fluffos_v3/mudlib/std/shops/controllers/
skylib_fluffos_v3/mudlib/std/shops/objs/
skylib_fluffos_v3/mudlib/std/shops/player_shop/
skylib_fluffos_v3/mudlib/std/socket/
skylib_fluffos_v3/mudlib/std/soul/d/
skylib_fluffos_v3/mudlib/std/soul/e/
skylib_fluffos_v3/mudlib/std/soul/i/
skylib_fluffos_v3/mudlib/std/soul/j/
skylib_fluffos_v3/mudlib/std/soul/k/
skylib_fluffos_v3/mudlib/std/soul/l/
skylib_fluffos_v3/mudlib/std/soul/n/
skylib_fluffos_v3/mudlib/std/soul/o/
skylib_fluffos_v3/mudlib/std/soul/q/
skylib_fluffos_v3/mudlib/std/soul/r/
skylib_fluffos_v3/mudlib/std/soul/u/
skylib_fluffos_v3/mudlib/std/soul/v/
skylib_fluffos_v3/mudlib/std/soul/y/
skylib_fluffos_v3/mudlib/std/soul/z/
skylib_fluffos_v3/mudlib/std/stationery/
skylib_fluffos_v3/mudlib/w/
skylib_fluffos_v3/mudlib/w/default/
skylib_fluffos_v3/mudlib/w/default/armour/
skylib_fluffos_v3/mudlib/w/default/clothes/
skylib_fluffos_v3/mudlib/w/default/item/
skylib_fluffos_v3/mudlib/w/default/npc/
skylib_fluffos_v3/mudlib/w/default/room/
skylib_fluffos_v3/mudlib/w/default/weapon/
skylib_fluffos_v3/mudlib/www/
skylib_fluffos_v3/mudlib/www/java/
skylib_fluffos_v3/mudlib/www/secure/
skylib_fluffos_v3/mudlib/www/secure/lpc/advanced/
skylib_fluffos_v3/mudlib/www/secure/lpc/intermediate/
skylib_fluffos_v3/win32/
/**
 * This handler keeps track of who has a mailer at the moment and sends the
 * mail to there instead.  This also keeps track of the current mailing
 * lists in the system.
 * @author Pinkfish
 * @started 1991 sometime
 * @index mailing_list
 * @changed
 */

#include <mail.h>
#include <mail_track.h>

#define MAILTOOL "/secure/cmds/creator/mailtool"

nosave mapping our_mailers;
mapping mailing_lists;

private void save_me() {
   unguarded( (: save_object, "/save/mail_track" :) );
} /* save_me() */

/** @ignore yes */
void create() {
    int i;
    string list, member;

    seteuid("Root");

    unguarded( (: restore_object, "/save/mail_track" :) );

    if( !mapp(mailing_lists) ) {
        mailing_lists = ([ ]);
    } else {
        foreach( list in keys(mailing_lists) ) {
            foreach( member in mailing_lists[list]->members ) {
                if( !PLAYER_H->test_user( member ) ) {
                    mailing_lists[list]->members -= ({ member });
                    i = 1;
                }
            }
            if( !sizeof( mailing_lists[list]->members ) )
                map_delete( mailing_lists, list );
        }
        if( i )
            save_me();
    }

    our_mailers = ([ ]);

} /* create() */

/**
 * This method adds in a mailer for a specific player into the current
 * list of mailers.
 * @param ob the mailer for the player
 * @param str the player the mailer is for
 * @return return 1 if successful
 */
int add_mailer( object ob, string str ) {
    if( !stringp(str) || !objectp(ob) )
        return 0;

    if( our_mailers[str] && our_mailers[str] != ob )
        our_mailers[str]->dest_me();

    our_mailers[str] = ob;
    return 1;

} /* add_mailer() */

/**
 * This method finds the mailer associated with a particular player.
 * @param str the player whose mailer to find.
 * @return the mailer object associated with the player
 * @see add_mailer()
 * @see delete_mailer()
 */
object find_mailer( string str ) { return our_mailers[str]; }

/**
 * This method removes a mailer from the current list of mailers.
 * It removes the mailer based on the object itself.
 * @param ob the mailer object to remove
 * @return 0 if unable to remove
 * @see add_mailer()
 * @see find_mailer()
 */
int delete_mailer( object ob ) {
    string key;
    object mailer;

    foreach( key, mailer in our_mailers )
        if( !mailer || mailer == ob )
            map_delete( our_mailers, key );

} /* delete_mailer() */

/** @ignore yes */
void we_are_done( object me ) {
    if( objectp(me) )
        me->dest_me();
} /* we_are_done() */

/**
 * This is the main mail function.  It tries to start up a mailer with
 * the default address and subject.  If there is no default address then
 * the mailer uses its menu mode, otherwise it sends one mail and then
 * leaves.
 * @param str 0 or "" for no default address
 * @param sub the default subject
 */
int mail( string str, string sub ) {
    object mailer;

    mailer = clone_object(MAILER);
    mailer->set_do_this_last( ({ TO, "we_are_done", mailer }) );
    mailer->read_mail( str, sub );

    return 2;

} /* mail() */

/**
 * This method returns the current mailing lists available on the
 * handler.
 * @return the array of available mailing lists
 */
string *query_mailing_lists() {
    return keys(mailing_lists) + ({"lords", "seniors"})+
           DOMAIN_H->query_domains();
} /* query_mailing_lists() */

/**
 * This method returns whether or not this is a controlled list.
 * It is possibly to add/remove members only from controlled lists,
 * ie. not domain or project lists.
 * @param list the list to check
 * @return 1 if this is a controlled list, 0 if not
 */
int query_controlled_list( string list ) {
    return classp( mailing_lists[list] );
} /* query_controlled_list() */

/**
 * This method checks to see if the specified list exists or not.
 * @return 1 if the list exists, 0 if not
 * @param list the list name to check
 * @see query_mailing_lists()
 * @see query_members()
 * @see query_member()
 */
int query_list( string list ) {
    return member_array( list, query_mailing_lists() ) != -1;
} /* query_list() */

/**
 * This returns the current members of the specified mailing list.
 * @return the members of the mailing list
 * @param list the mailing list to get the members of
 * @see query_mailing_lists()
 * @see query_list()
 * @see query_member()
 */
string *query_members( string list ) {
    switch( list ) {
      case "playtesters" :
        return (string *)PLAYTESTERS_H->query_playtesters()+
               (string *)DOMAIN_H->query_members("playtesters");
      case "seniors" :
        return (string *)DOMAIN_H->query_seniors();
      case "lords" :
        return (string *)DOMAIN_H->query_leaders();
      default :
    }

    if( DOMAIN_H->query_domain(list) )
        return (string *)DOMAIN_H->query_members(list);

//    if( PROJECT_H->query_project(list) )
//        return (string *)PROJECT_H->query_members(list);

    if( mailing_lists[list] )
        return copy(mailing_lists[list]->members);

    return ({ });

} /* query_members() */

/**
 * This method checks to see if the given player is in the selected
 * mailing list.
 * @param list_name the mailing list name
 * @param name the name of the player in the list
 * @return 1 if the player is a member, 0 if not
 * @see query_mailing_lists()
 * @see query_list()
 * @see query_members()
 */
int query_member( string list_name, string name ) {
    class mailing_list list;

    list = mailing_lists[list_name];

    if( classp(list) )
        return member_array( name, list->members ) != -1;

    if( list_name == "playtesters")
        return (int)playtesterp( name, 1 ) ||
               (int)DOMAIN_H->query_leader("playtesters", name );

    if( DOMAIN_H->query_domain(list) )
        return (int)DOMAIN_H->query_member( list_name, name );

//    if( PROJECT_H->query_project(list) )
//        return (int)PROJECT_H->query_member( list_name, name );

    if( list_name == "seniors")
        return (int)seniorp(name);

    if( list_name == "lords")
        return (int)lordp(name);

} /* query_member() */

/**
 * This method returns all the current controllers of the mailing list.
 * Controllers can add and remove members from a list.
 * @param list the mailing list to query the controllers for
 * @return the array of controllers
 */
string *query_controllers( string list ) {
    if( DOMAIN_H->query_domain(list) )
        return (string*)DOMAIN_H->query_leaders(list);

//    if( PROJECT_H->query_project(list) )
//        return (string*)PROJECT_H->query_leaders(list);

    if( mailing_lists[list] )
        return copy(mailing_lists[list]->controllers);

    return ({ });

} /* query_controllers() */

/**
 * This method checks to see if the given player is a controller.
 * @param list_name the name of the list
 * @param name the name to check to see if they are a controller
 * @see query_controllers()
 * @see query_member()
 */
int query_controller( string list_name, string name ) {
    class mailing_list list;

    if( classp( list = mailing_lists[list_name] ) )
        return member_array( name, list->controllers ) != -1;

    return 0;

} /* query_controller() */

/**
 * This method determines the creator of the list.
 * @return the creator of the list
 * @param list_name the list to get the creator of
 * @see create_list()
 */
string query_creator( string list_name ) {
    class mailing_list list;

    if( classp( list = mailing_lists[list_name] ) )
        return list->creator;

    return 0;

} /* query_creator() */

/**
 * This method attempts to create a mailing list.
 * @return 1 if successful, 0 if not
 * @param list the name of the list to create
 * @param creator the creator of the list
 * @see query_creator()
 * @see query_members()
 * @see query_controllers()
 */
int create_list( string list, string creator ) {
    if( !PO || file_name(PO) != MAILTOOL )
        return 0;

    if( query_list(list) || PLAYER_H->test_user(list) )
        return 0;

    mailing_lists[list] = new( class mailing_list,
                               members     : ({ creator }),
                               controllers : ({ creator }),
                               creator     : creator );

    save_me();
    return 1;

} /* create_list() */

/**
 * This method will delete a mailing list.
 * @param list the mailing list to delete
 * @see create_list()
 * @return 0 if failed and 1 on success
 */
int delete_list( string list ) {
    if( !PO || file_name(PO) != MAILTOOL )
        return 0;

    if( !mailing_lists[list] )
        return 0;

    map_delete( mailing_lists, list );
    save_me();
    return 1;

} /* delete_list() */

/**
 * This method adds a member to the specified mailing list.
 * @param list_name the mailing list to add a member to
 * @param mem the member to add
 * @return 1 if successful, 0 if not
 * @see remove_member()
 * @see delete_member()
 * @see query_member()
 */
int add_member( string list_name, string mem ) {
    class mailing_list list;

    if( !PO || file_name(PO) != MAILTOOL )
        return 0;

    if( !classp( list = mailing_lists[list_name] ) )
        return 0;

    if( member_array( mem, list->members ) != -1 )
        return 0;

    list->members += ({ mem });

    save_me();
    return 1;

} /* add_member() */

/**
 * This method removes a member from the specified mailing list.
 * If there are non members left in the mailing list, then the
 * list will be deleted.
 * @param list_name the mailing list to remove the member from
 * @param mem the members name to remove
 * @return 1 on success, 0 on failure
 * @see add_member()
 * @see query_member()
 * @see delete_member()
 */
int remove_member( string list_name, string mem ) {
    int i;
    class mailing_list list;

    if( !PO || file_name(PO) != MAILTOOL )
        return 0;

    if( !classp( list = mailing_lists[list_name] ) )
        return 0;

    if( ( i = member_array( mem, list->members ) ) == -1 )
        return 0;

    list->members = delete( list->members, i, 1 );

    if( ( i = member_array( mem, list->controllers)) != -1 )
        list->controllers = delete( list->controllers, i, 1 );

    if( !sizeof(list->members) )
        map_delete( mailing_lists, list_name );

    save_me();
    return 1;

} /* remove_member() */

/**
 * This method adds a controller to the specified mailing list.
 * @param list_name the controller to add
 * @param mem the controller to add
 * @see query_controllers()
 */
int add_controller( string list_name, string mem ) {
    class mailing_list list;

    if( !PO || file_name(PO) != MAILTOOL )
        return 0;

    if( !classp( list = mailing_lists[list_name] ) )
        return 0;

    if( member_array( mem, list->controllers ) != -1 )
        return 0;

    list->controllers += ({ mem });

    if( member_array( mem, list->members ) != -1 )
        list->members += ({ mem });

    save_me();
    return 1;

} /* add_controller() */

/**
 * This method removes a controller from the specified mailing list.
 * @param list_name the mailing list to remove the controller from
 * @param name the member to remove
 * @see add_controller()
 * @see query_controller()
 */
int remove_controller( string list_name, string name ) {
    int i;
    class mailing_list list;

    if( !PO || file_name(PO) != MAILTOOL )
        return 0;

    if( !classp( list = mailing_lists[list_name] ) )
        return 0;

    if( ( i = member_array( name, list->controllers ) ) == -1 )
        return 0;

    list->controllers = delete( list->controllers, i, 1 );

    save_me();
    return 1;

} /* remove_controller() */

/** @ignore yes */
mixed stats() {
    return ({
        ({"lists", sizeof( query_mailing_lists() ) }),
        ({"controlled lists", sizeof(mailing_lists) }),
    });
} /* stats() */