/*    /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;
}