path: root/util/reaper.c

/* $Id$ */
#define _UTIL_C_
#include "bbs.h"

time4_t now;

#undef MAX_GUEST_LIFE
#undef MAX_LIFE

// override max life
#define MAX_GUEST_LIFE     (365L * 24 * 60 * 60)
#define MAX_LIFE           (365L *10 * 24 * 60 * 60)

static int free_accs = 0;
int check_free(void *data, int n, userec_t *u)
{
    if (u->userid[0] == 0)
    free_accs++;
    return 0;
}

int check(void *data, int n, userec_t *u) {
    time4_t d;
    char buf[256];
    (void)data;

    if (u->userid[0] == 0 && u->userid[1])
    {
    // expired user, clean record!
    syslog(LOG_ERR, "reset record (%d)", n+1);
    memset(u, 0, sizeof(userec_t));
    passwd_update(n+1, u);
    return 0;
    }

    if(u->userid[0] != '\0') {
    if(!is_validuserid(u->userid)) {
        syslog(LOG_ERR, "bad userid(%d): %s", n, u->userid);
        u->userid[0] = '\0';
    } else {
        // test PASSWD synchronization
        /*
        int unum = searchuser(u->userid, u->userid);
        if (unum == 0)
        {
        strcpy(buf, ctime4(&u->lastlogin));
        syslog(LOG_NOTICE, "invalid user record (%d): %s (%s) %s", n+1, 
            u->userid, (u->userlevel & PERM_LOGINOK) ? "regok" : "unreg",
            buf
            );
        u->userid[0] = '\0';
        passwd_update(n+1, u);
        }
        return 0;
        */

        d = now - u->lastlogin;

        // ignore regged accounts now.
        if (u->userlevel & PERM_LOGINOK)
        return 0;
        if (u->userlevel & PERM_SYSOP)
        return 0;
        if (u->userlevel & PERM_XEMPT)
        return 0;

        // if((d > MAX_GUEST_LIFE && (u->userlevel & PERM_LOGINOK) == 0) 
        // || (d > MAX_LIFE && (u->userlevel & PERM_XEMPT) == 0)) {
        if(d > MAX_GUEST_LIFE) {
        /* expired */
        int unum;
        
        unum = searchuser(u->userid, u->userid);
        strcpy(buf, ctime4(&u->lastlogin));
        if (unum != n+1)
        {
            syslog(LOG_NOTICE, "out-of-sync user(%d/%d): %s %s", unum, n, 
                u->userid, buf);
        } 
        else if (unum != 0)
        {
            syslog(LOG_NOTICE, "kill user(%d): %s %s", unum, 
                // (u->userlevel & PERM_LOGINOK) ? "regok" : "guest",
                u->userid, buf);

            log_filef(FN_USIES, LOG_CREAT,
                "%s %s %-12s %s",
                Cdate(&now), "CLEAN(EXPIRE)", u->userid, buf);

            sprintf(buf, "mv home/%c/%s tmp/", u->userid[0], u->userid);
            if(system(buf))
            syslog(LOG_ERR, "can't move user home: %s", u->userid);
            u->userid[0] = '\0';
            setuserid(unum, u->userid);

            // flush into passwd
            memset(u, 0, sizeof(userec_t));
            passwd_update(unum, u);
        } else {
            /*
            static int changed = 0;

            if (changed ++ > 10)
            exit(0);
            */
    
            syslog(LOG_NOTICE, "clean user(%d): %s %s", n+1, 
                u->userid, buf);

            log_filef(FN_USIES, LOG_CREAT,
                "%s %s %-12s %s",
                Cdate(&now), "CLEAN(CLEAR)", u->userid, buf);
            u->userid[0] = '\0';
            memset(u, 0, sizeof(userec_t));
            passwd_update(n+1, u);
        }
        }
    }
    }
    return 0;
}

int check_last_login(void *data, int n, userec_t *u) {
    char buf[256];

    if (u->userid[0] == 0)
        return 0;

    // ignore all XEMPTY users
    if (u->userlevel & PERM_XEMPT)
        return 0;

    strcpy(buf, Cdate(&u->firstlogin));

    if (u->lastlogin > now + 86400 || u->lastlogin < 0) // should not be newer than now plus one day.
    {
        // invalid record
        printf("使用者 %-*s (登入%3d 次, %s%s, %s [%04X])\n 最後登入日期異常 [%04X]: %s",
                IDLEN, u->userid, u->numlogins,
                (u->userlevel & PERM_LOGINOK) ? "已過認證" : "未過認證",
                (u->userlevel & PERM_SYSOP) ? "[SYSOP]" : "",
                buf,
                (unsigned)u->firstlogin,
                (unsigned)u->lastlogin,
                ctime4(&u->lastlogin));
        // fix it
        u->lastlogin = u->firstlogin;

        if (u->lastlogin > now)
        {
            printf(" (首次登入日期也異常)");
            u->lastlogin = u->firstlogin = 0x362CFC7E;
        }

        printf(" 已修正登入日期為: %s\n", ctime4(&u->lastlogin));

        // flush
        passwd_update(n+1, u);
    }

    return 0;
}


int main(int argc, char **argv)
{
    now = time(NULL);
    openlog("reaper", LOG_PID | LOG_PERROR, SYSLOG_FACILITY);
    chdir(BBSHOME);

    attach_SHM();
    if(passwd_init())
    exit(1);
    passwd_apply(NULL, check);
    // passwd_apply(NULL, check_free);
    // printf("free accounts=%d\n", free_accs);
    
    return 0;
}