/*    /secure/cmds/creator/source.c
 *    from the Dead Souls LPC Library
 *    reads a file and forces you to execute each line as a command
 */

#include <lib.h>

inherit LIB_DAEMON;

mixed cmd(string args) {
    string file, contents,flags,tmpargs;
    string *tmplines, *lines = ({});
    int queued, gauged;

    if(!args) {
        write("Please specify a file as an argument.");
        return 1;
    }
    if(sscanf(args,"-%s %s",flags, tmpargs) == 2){
        args = tmpargs;
    }
    else flags = "";

    if(grepp(flags, "q")){
        queued = 1;
    }

    if(grepp(flags, "g")){
        if(query_os_type() != "windows"){
            gauged = 1;
        }
    }

    if(file_size(args) > 0 ) file = args;
    else if(file_size(this_player()->query_cwd()+"/"+args) > 0){
        file = this_player()->query_cwd()+"/"+args;
    }
    else {
        write("That is not a valid file.");
        return 1;
    }

    if(!strsrch(file,"/secure/scripts/") ||
            !strsrch(file,user_path(this_player())) ){
        write("Processing "+file+"...");
    }
    else {
        write(file+" is not in a permitted script directory. Aborting.");
        return 1;
    }

    contents = read_file(file);

    if(!contents || !sizeof(contents)) {
        write("Either the file is unreadable or it is empty.");
        return 1;
    }

    tmplines = explode(contents,"\n");

    foreach(string line in tmplines){
        if(!strsrch(line,"title ") || !strsrch(line,"describe ")){
        }
        else {
            line = replace_string(line,"$N",this_player()->GetKeyName());
        }
        if(strsrch(line,"#")) lines += ({ (gauged ? "gauge " + line : line) });
    }

    if(queued){
        foreach( string line in lines ){
            if(line && line != "") write("queuing command: "+line);
            this_player()->eventQueueCommand(line);
        }
        this_player()->eventExecuteQueuedCommands();
        write("Commands queued.");
    }
    else {
        foreach( string line in lines ){
            if(line && line != "") write("sourcing command: "+line);
            this_player()->eventForce(line);
        }
        write("Sourcing complete.");
    }
    return 1;

}

void help() {
    message("system", "Syntax: source [-gq] <filename>\n\n"
            "If <filename> exists and is readable, this command "
            "will read each line of that file and force you to "
            "execute that line as if you had entered it on the "
            "command line. If there is a file called .profile "
            "in your home directory, it is automatically executed "
            "in this way each time you log in.\n\n"
            "To include system load output, use the -g flag.\n\n"
            "If a set of commands need to occur with some time between "
            "them (for example, to avois the MAX_COMMANDS_PER_SECOND limit) "
            "use the -q flag. For example:\n source -q /secure/scripts/crat2.src\n\n"
            "", this_player());
}