/*    /adm/simul_efun/log_file.c
 *    from Dead Souls Mudlib 3.2
 *    a simul_efun for logging to the log dir
 *    created by Descartes of Borg 940121
 */

#include <dirs.h>
#include <privs.h>

void log_file(string fl, string msg) {
    string prefix = path_prefix(fl);
    if(!stringp(fl)) error("Bad argument 1 to log_file().\n");
    if(!stringp(msg)) msg = identify(msg);
    if(strsrch(fl, "..") != -1) error("Illegal file reference.\n");
    if(fl[0..0] == "/" && !directory_exists(prefix)){
        fl = last_string_element(fl,"/");
    }
    if(fl[0..0] != "/"){
        if(living(previous_object(0)) || previous_object(0) == master())
            fl = DIR_LOGS + "/" + fl;
        else if(master()->valid_apply(({ PRIV_CMDS, PRIV_MUDLIB }))) 
            fl = DIR_LOGS+"/"+fl;
        else if(previous_object() && query_privs(previous_object()) &&
                member_array(PRIV_SECURE,explode(query_privs(previous_object()),":"))
                != -1) fl = DIR_LOGS+"/"+fl;
        else fl = DIR_LOGS+"/open/"+fl;
    }

    master()->master_log_file(fl, msg);
}