/* tcheck command.
* It doesn't do nearly all the checks I though it would, but it
* still finds some.
*/
inherit COMMAND_BASE;
int cmd( string str ) {
mixed err, ret;
string file, wiz_dir;
if (!this_player()) return 0;
seteuid(geteuid(this_player()));
if (!str) {
notify_fail("Usage: tcheck <file name>\n");
return 0;
}
wiz_dir = "/w/" + (string)this_player()->query_name();
if (file_size(wiz_dir)!=-2) {
notify_fail("Directory: " + wiz_dir + " does not exist.\n");
return 0;
}
if ( str[0..0] != "/" )
str = (string)this_player()->query_current_path() + "/" + str;
if (str[<1..<1]=="0") {
str=str[0..<2];
}
if (file_size(str)<0) {
notify_fail("File: " + str + " does not exist or is a directory.\n");
return 0;
}
file = wiz_dir + "/exec_tmp";
if (find_object(file)) file->dest_me();
if (file_size(file+".c")>0) rm(file+".c");
write_file(file+".c",
"#pragma strict_types\n" +
"#pragma save_types\n" +
"#include \""+ str +"\"\n" +
"void dest_me_in_exec_temp() { destruct(this_object()); }\n" +
"\n");
err = catch(ret = (mixed) file->force_load());
if (err==0) printf("%s loaded ok.\n", str);
if (find_object(file)) file->dest_me_in_exec_temp();
rm(file+".c");
return 1;
}
