/* /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
* modified by Dyraen@Rod for Rod.
*/
#define MASTER "/secure/master"
#define STD_REMOTE "/std/remote"
private static string Directory, Home;
int eventDestruct();
static void create() {
Directory = Home = "/" +
implode(explode(file_name(this_object()), "/")[0..<3], "/");
if( strsrch(Directory, "/w") ) call_out( "dest_me", 1 );
}
string absolute_path(string dir, string file) {
string *dirc, *filc;
int i;
if (!dir || !stringp(dir)) return Home;
if (!file || !stringp(file) || file == "") return Home;
dirc = explode(dir,"/");
filc = explode(file,"/");
if (file[0..0] == "/")
dirc = filc;
else if (file[0..0] == "~")
dirc = explode(Home,"/") + filc[1..<1];
else
for (i=0;i<sizeof(filc);i++)
if (filc[i] == "..")
dirc = dirc[0..<2];
else
dirc += ({ filc[i] });
return "/"+implode(dirc, "/");
}
string eventWriteFile(string file, string str) {
file = absolute_path(Directory, file);
if( base_name(this_object()) == STD_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()) == STD_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()) == STD_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( !(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) ) {
ob->dest_me();
if( ob )
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;
}
int dest_me() {
destruct(this_object());
return !this_object();
}