ES2 MUD LIB :: 東方故事二(ES2) 天朝帝國 mudlib 瀏覽展示

/*  purge.c

    Copyright (C) 1994-2000 Annihilator 

    This program is a part of ES2 mudlib. Permission is granted to use,
    modify, copy or distribute this program provided this copyright notice
    remains intact and subject to the restriction that this program MAY
    NOT be used in any way for monetary gain.

    Details of terms and conditions is available in the Copyright.ES2 file.
    If you don't receive this file along with this program, write to the
    primary author of ES2 mudlib: Annihilator 
*/

#define SYNTAX "指令格式﹕purge [<未上線天數>] | <使用者姓名> because <原因>\n"
#define SAVE_EXTENSION ".o"

#include 
#include 

inherit F_CLEAN_UP;

private int do_purge_players(int day);

int
main(object me, string arg)
{
    string name, reason;
    int day;
    object ob, link_ob;

    SECURED_ARCH_COMMAND;

    if( !arg ) return notify_fail(SYNTAX);

    if( sscanf(arg, "%d", day) && day >= 100) return do_purge_players(day);

    if( day>0 && strsrch(arg, "!")>-1 )    return do_purge_players(day);
    
    if( sscanf(arg, "%s because %s", name, reason)!=2 )
        return notify_fail(SYNTAX);

    seteuid(getuid());
    if( file_size(DATA_DIR + "login/" + name[0..0] + "/" + name + SAVE_EXTENSION)<0 )
        return notify_fail("沒有這位使用者。\n");

    ob = find_player(name);    // return include link dead player
    if( ob ) {
        link_ob = ob->link();
        // show message to users by dragoon
        message("system", HIY"\n"+ob->name()+"("+ob->query("id")+")的檔案因 "
            +reason+" 被"+me->name()+"刪除了。\n\n"NOR, users());
        if( link_ob ) {
            destruct(link_ob);
        }
        destruct(ob);
    }

    rm(DATA_DIR + "login/" + name[0..0] + "/" + name + SAVE_EXTENSION);
    rm(DATA_DIR + "user/" + name[0..0] + "/" + name + SAVE_EXTENSION);
    rm(DATA_DIR + "user/" + name[0..0] + "/" + name + SAVE_EXTENSION + ".backup");
    write( "使用者 " + capitalize(name) + " 刪除掉了。\n");
    log_file("static/PURGE", sprintf("[%s] %s purged %s because %s.\n",
        ctime(time())[0..15], geteuid(this_player(1)), name, reason));

    return 1;
}

private int
do_purge_players(int day)
{
    int i, j, ppl_cnt, count;
    string *dir, *ppls, name;
    mixed info;

    seteuid(getuid());
    message("system", "\n*** 整理玩家儲存檔中﹐請稍候.... ***\n", users());
    write("處理中﹕");
    count = 0;
    ppl_cnt = 0;
    dir = get_dir(DATA_DIR + "login/");
    for(i=0; i         reset_eval_cost();
        write(dir[i]);
        ppls = get_dir(DATA_DIR + "login/" + dir[i] + "/");
        ppl_cnt += sizeof(ppls);
        for(j=0; j             if( sscanf(ppls[j], "%*s.backup")==1 ) continue;
            if( sscanf(ppls[j], "%s.o", name)==1 )
                if( (string)SECURITY_D->get_status(name)!="(player)" )
                    continue;
            info = stat(DATA_DIR + "login/" + dir[i] + "/" + ppls[j]);
            if( (time()-(int)info[1])/86400 >= day ) {
                rm(DATA_DIR + "login/" + dir[i] + "/" + ppls[j]);
                rm(DATA_DIR + "user/" + dir[i] + "/" + ppls[j]);
                rm(DATA_DIR + "user/" + dir[i] + "/" + ppls[j] + ".backup");
                count ++;
            }
        }
    }
    write("\n\n原來總共有 " + ppl_cnt + " 位使用者。\n");
    write( count + " 個超過 " + day + " 天未上線的使用者被清除掉了。\n");
    write("現在總共有 " + (ppl_cnt - count) + " 位使用者。\n");
    log_file("static/PURGE", sprintf("[%s] %s cleaned up %d characters who didn't login for more than %d days\n"
        "\t\tResulting statistics: %d characters remaining.\n",
        ctime(time())[0..15], geteuid(this_player(1)), count, day, ppl_cnt - count));


    return 1;
}

int help(object me)
{
write(@HELP
指令格式﹕purge [<未上線天數>] | <使用者姓名> because <原因>

清除一個使用者(不管其是否在線上)之所有檔案, 或清除超過一定天數不曾上線者。
rules 暫定最小之未上線天數為 100, 欲 purge  小於此天數時, 請於天數後加 "!"
例:
purge 120
purge 90 !
purge annihilator because 太混
HELP
    );
    return 1;
}