/**
* Command to update the CHANGES file
* Shaydz - 30 Mar 2000
* based loosely on changes command.
*/
inherit COMMAND_BASE;
#define CHANGEFILE "/d/mudlib/changes/CHANGES"
/** @ignore yes */
varargs string wrap( string str, int wrap_column, int indent ) {
if( !wrap_column )
wrap_column = 79;
return terminal_colour( str, ([ ]), wrap_column, indent );
} /* wrap() */
/** @ignore yes */
int cmd( string args ) {
string filename, comment, time, date, prefix, inform_comment;
int tail;
notify_fail("Usage: changelog <filename> <comment>\n"
" changelog tail\n"
" changelog tail <number>\n"
" changelog list\n");
if( !args )
return 0;
if( args == "tail") {
"/secure/cmds/creator/ta_il.c"->cmd(CHANGEFILE);
return 1;
}
if( sscanf( args, "tail %d", tail ) == 1 ) {
"/secure/cmds/creator/ta_il.c"->cmd( CHANGEFILE, tail );
return 1;
}
if( args == "list" ) {
TP->more_file( CHANGEFILE );
return 1;
}
if( sscanf( args, "%s %s", filename, comment ) != 2 )
return 0;
filename = master()->make_path_absolute(filename);
if( !file_exists(filename) )
return notify_fail("File: '"+filename+"' does not exist.\n");
time = ctime(time());
date = time[8..10] + time[4..7] +"'"+ time[22..23];
prefix = TP->query_cap_name()+" - "+date;
comment = filename+" - "+comment;
inform_comment = comment;
if( strlen(comment) <= 78 ) {
comment = comment+"\n";
} else
comment = wrap( comment, 78, 4 )+"\n";
unguarded( (: write_file, CHANGEFILE, comment+" "+prefix+"\n", 0 :) );
tell_object( TP, CHANGEFILE+" updated.\n");
event( users(), "inform", TP->query_cap_name()+": "+
inform_comment+" (Change)", "changelog");
return 1;
} /* cmd() */
