/*    /daemon/services.c
 *    from the Dead Souls LPC Library
 *    handles intermud services
 *    created by Descartes of Borg 950523
 *    Version: @(#) services.c 1.3@(#)
 *    Last modified: 96/12/14
 */

#ifndef __PACKAGE_SOCKETS__
#error You should not try to load /daemon/services.c without the sockets package
#else

#include <lib.h>
#include <save.h>
#include NETWORK_H

inherit LIB_DAEMON;

mapping GetServices();

#include "/daemon/services/channel.c"
#include "/daemon/services/emoteto.c"
#include "/daemon/services/error.c"
#include "/daemon/services/finger.c"
#include "/daemon/services/locate.c"
#include "/daemon/services/tell.c"
#include "/daemon/services/who.c"
#include "/daemon/services/auth.c"

static void create() {
    SetSaveFile(SAVE_SERVICES);
    daemon::create();
    SetNoClean(1);
#ifdef SERVICE_UCACHE
    call_out((: eventCompactUcache :), 3600);
#endif
    eventSave();
}

int eventDestruct() {
    eventSave();
    return daemon::eventDestruct();
}

mapping GetServices() {
    string *ports = ({ "ftp", "http", "oob", "nntp", "rcp", "smtp" });
    mapping ret = ([
#ifdef SERVICE_AUTH
            "auth" : 1,
#endif
#ifdef SERVICE_CHANNEL
            "channel" : 1,
#endif
#ifdef SERVICE_EMOTETO
            "emoteto" : 1,
#endif
#ifdef SERVICE_FILE
            "file" : 1,
#endif
#ifdef SERVICE_FINGER
            "finger" : 1,
#endif
#ifdef SERVICE_LOCATE
            "locate" : 1,
#endif
#ifdef SERVICE_MAIL
            "mail" : 1,
#endif
#ifdef SERVICE_NEWS
            "news" : 1,
#endif
#ifdef SERVICE_TELL
            "tell" : 1,
#endif
#ifdef SERVICE_UCACHE
            "ucache" : 1,
#endif
#ifdef SERVICE_WHO
            "who" : 1,
#endif
            ]);

    foreach(string port in ports){
        if(member_array(port, keys(INET_D->GetServices())) != -1){
            ret[port] = INET_D->GetServicePort(port);
        }
    }

    if(ret["oob"]) ret["mail"] = 1;
    return ret;
}

#endif /* __PACKAGE_SOCKETS__ */