/*    /lib/remote.c
 *    from the Foundation II LPC Library
 *    handles security for cre access via the remote creator protocol
 *    created by Descartes of Borg 950505
 */

#include <lib.h>

inherit LIB_DAEMON;

private static string Directory, Home;

static void create() {
    daemon::create();
    SetNoClean(1);
    Directory = Home = "/" +
        implode(explode(file_name(this_object()), "/")[0..<3], "/");
    if( strsrch(Directory, REALMS_DIRS) ) call_out( (: Destruct :), 0 );
}

string eventWriteFile(string file, string str) {
    file = absolute_path(Directory, file);
    if( base_name(this_object()) == LIB_REMOTE ) 
        return "50 Failed to write file: " + file;
    if( file_size(file) > -1 && !rm(file) ) 
        return "50 Failed to write file: " + file;
    if( !write_file(file, str) ) return "50 Failed to write file: " + file;
    else return "110 File " + file + " written.";
}

string eventReadFile(string file) {
    string tmp;

    if( base_name(this_object()) == LIB_REMOTE ) return "";
    file = absolute_path(Directory, file);
    if( !(tmp = read_file(file)) ) return "";
    else return tmp;
}

string eventCommand(string cmd, string arg) {
    string *files;
    object ob;
    string tmp;

    if( base_name(this_object()) == LIB_REMOTE ) return 0;
    switch(cmd) {
        case "ls":
            if( !arg || arg == "" ) arg = Directory;
        switch(file_size(arg)) {
            case -2:
                if( arg[<1] != '/' ) arg += "/";
                files = ({ arg });
                files += map(get_dir(arg), 
                        (: (file_size($(arg) + $1) == -2) ? $1 + "/" : $1 :));
                return implode(files, "\t");
            case -1:
                return 0;
            default:
                return arg;
        }
        case "mkdir":
            arg = absolute_path(Directory, arg);
        if( file_size(arg) != -1 ) return 0;
        if( !mkdir(arg) ) return 0;
        else return "Directory created.";
        case "cd":
            arg = absolute_path(Directory, arg);
        if( !arg || arg == "" ) Directory = Home;
        else if( !((int)master()->valid_read(arg, this_object(), "cd")) )
            return 0;
        else Directory = arg;
        return Directory;
        case "rm":
            arg = absolute_path(Directory, arg);
        if( !rm(arg) ) return 0;
        else return arg + " deleted.";
        case "rmdir":
            arg = absolute_path(Directory, arg);
        if( !rmdir(arg) ) return 0;
        else return arg + " deleted.";
        case "mv":
            files = explode(arg, " ");
        if( sizeof(files) != 2 ) return 0;
        files[0] = absolute_path(Directory, files[0]);
        files[1] = absolute_path(Directory, files[1]);
        if( !rename(files[0], files[1]) ) return 0;
        else return files[0] + " renamed to " + files[1] + ".";
        case "update":
            arg = absolute_path(Directory, arg);
        if( arg[<2..] == ".c" ) arg = arg[0..<3];
        if( ob = find_object(arg) ) {
            if( !((int)ob->eventDestruct()) ) 
                return "Failed to destruct original object.";
        }
        tmp = catch(call_other(arg, "???"));
        if( tmp ) 
            return "Error in loading object: " + replace_string(tmp, "\n", "\t");
        else return arg + ": successfully loaded.";
    }
    return 0;
}