/* /cmd * from Dead Souls
* a command for logging changes made
* created by Descartes of Borg 940701
* bug fixed by Pallando, 940702
*/
#include <lib.h>
#include <dirs.h>
#include <objects.h>
#define CHANGELOG "ChangeLog"
#define TMP_FILE DIR_TMP + "/" + (string)previous_object()->GetKeyName() + ".change"
inherit LIB_DAEMON;
int post_change(mixed *args);
int cmd(string str) {
string *tmp;
string file;
int i;
if(!str) str = (string)this_player()->get_path();
str = absolute_path((string)this_player()->get_path(), str);
if(file_size(str) == -1) return notify_fail("Invalid path.\n");
if(file_size(file = str) != -2) {
i = sizeof(tmp = explode(str, "/"));
if(i < 2) str = "/";
else str = "/"+implode(tmp[0..i-2], "/");
}
if(str[strlen(str)-1] != '/') str += "/";
str += CHANGELOG;
message("system", "Logging changes to "+str+"...", this_player());
this_player()->eventEdit(TMP_FILE, (: post_change, ({ file, str }) :));
return 1;
}
void abort() { rm(TMP_FILE); }
void post_change(mixed *args) {
string *tmp;
string file, change, str, str2;
int i, maxi;
change = args[0];
file = args[1];
if(!userp(previous_object())) return;
str = read_file(TMP_FILE);
rm(TMP_FILE);
if( !str ) { write( "Aborting.\n" ); return; }
str = replace_string(str, "\n", " ");
maxi = sizeof(tmp = explode(wrap(str, 60), "\n"));
str = "- "+ change+"\n";
str += " "+ctime(time())+" by "+(string)previous_object()->GetCapName()+
"("+(string)previous_object()->query_rname()+"):\n";
for(i=0; i<maxi; i++) str += " * "+tmp[i]+"\n";
if(str2 = read_file(file)) str2 = str+"\n\n"+str2;
else str2 = str;
rm(file);
write_file(file, str2);
if(str2 = read_file(DIR_LOGS+"/"+CHANGELOG)) str = str + "\n\n"+str2;
rm(DIR_LOGS+"/"+CHANGELOG);
write_file(DIR_LOGS+"/"+CHANGELOG, str);
}
void help()
{
message( "help",
"Syntax: changelog <directory>\n"
"Lets you enter documentation on changes you have made to files in "
"directory <directory>\n"
, this_player()
);
}
