// string replacer, by Cratylus.
// Use this carelessly at your own peril.

#include <lib.h>
#include <vendor_types.h>
inherit LIB_ITEM;
inherit LIB_TURN;

string a1,a2,a3,line;
int n, active;

static private void validate() {
    if(!this_player()) return 0;
    if( !(master()->valid_apply(({ "SECURE" }))) || !securep(this_player()))
        error("Illegal attempt to use replacer: "+get_stack()+" "+identify(previous_object(-1)));
}

void create(){
    ::create();
    SetKeyName("string replacer");
    SetId(({"replacer","thing","gadget","string replacer","device"}));
    SetShort("a string replacer");
    SetLong("This is the most dangerous device on the mud.\n"+
            "It allows you to replace strings in files.\n"+
            "To use it, you must first \"turn on replacer\"\n"+
            "Then you have two options:\n"+
            "To replace a word in one file: replace <filename> <oldword> <newword>\n"+
            "To replace a word in EVERY FILE IN YOUR CURRENT WORKING DIRECTORY:\n autorep <oldword> <newword>\n\n"+
            "It does not handle spaces or special characters well. Using "+
            "strings with parentheses, brackets, or anything other than "+
            "the english alphabet may have unexpected results."+
            "\n%^RED%^%^BOLD%^ADMIN USE ONLY!%^RESET%^");
    SetMass(20);
    SetValue(10);
    SetVendorType(VT_TREASURE);
    active = 0;
}

void init(){
    add_action("rep_string","replace");
    add_action("autorep","autorep");
}

int eventActivate(){
    validate();
    write("With an unearthly roar, the string replacer comes "+
            "to life. You sense great danger.");
    write("\n\nWARNING: Your current working directory is:\n\n");
    write(this_player()->query_cwd()+"\n\n");
    say(this_player()->GetName()+" turns on "+possessive(this_player())+
            " string replacer and you hear a loud, unearthly "+
            "roar that makes the ground tremble.");
    active = 1;
    return 1;
}

int eventDeactivate(){
    validate();
    write("The string replacer powers off with a peculiar "+
            "mechanical whine. You feel safer.");
    say(this_player()->GetName()+"'s string replacer "+
            "powers down.");
    active = 0;
    return 1;
}

varargs mixed eventTurn(string str){
    validate();
    if( this_player() != environment() ) { write("You don't have that."); return 0; }
    write("You turn the replacer over in your hands.");
    say(this_player()->GetKeyName()+" turns over a string replacer in "+possessive(this_player())+" hands.");
    return 1;
}

int eventTurnOn(object ob){
    validate();

    if( this_player() != environment() ) { write("You don't have that."); return 0; }

    if(!creatorp(this_player())) {
        write("This device is not usable by mortals.");
        return 0;
    }

    if(active){
        write("It's already on.");
        return 0;
    }
    else eventActivate();

    return 1;
}

varargs mixed eventTurnOff(string str){
    validate();
    if( this_player() != environment() ) { write("You don't have that."); return 0; }
    if(!active){
        write("It's already off.");
        return 0;
    }
    else eventDeactivate();

    return 1;
}

int autorep(string str){
    string dir, a1, a2;
    string *listing;

    validate();
    if(!active){
        write("The string replacer is not turned on.");
        return 1;
    }

    if( !str || str=="" || sscanf(str,"%s %s",a1,a2) != 2){
        write("Syntax: autorep <oldword> <newword>\n");
        eventDeactivate();
        return 1;
    }
    dir=this_player()->query_cwd()+"/";
    listing=get_dir(dir);
    foreach(string file in listing){
        if(file_size(dir+file) > 0) this_object()->rep_string(file+" "+str);
    }
    eventDeactivate();
    return 1;
}

int rep_string(string str){
    string dir,file,tempfile,backup;
    int valid_line;

    validate();
    if(!active){
        write("The string replacer is not turned on.");
        return 1;
    }

    valid_line=1;
    n=1;
    if( !str || str==""){
        write("Syntax: replace <filename> <oldword> <newword>\n");
        eventDeactivate();
        return 1;
    }
    if(sscanf(str,"%s %s %s",a1,a2,a3) == 3){
        dir=this_player()->query_cwd()+"/";
        file=dir+a1;

        if(file_size(file) <= 0 ) {
            write("Invalid filename.");
            eventDeactivate();
            return 1;
        }

        tempfile="/tmp/"+lower_case(this_player()->GetName())+".TempReplace";
        backup="/tmp/"+lower_case(this_player()->GetName())+"."+a1+".bak";
        if(file_size(backup)){ rm(backup); }
        if(file_size(tempfile)){ rm(tempfile); }
        write("Searching "+a1+" for string: "+a2+".\n");
        while(valid_line){
            line=read_file(file, n, 1);
            if(!line || line=="") valid_line=0;
            this_object()->replace(line);
            if(line) write_file(tempfile,line);
            n++;
        }
        cp(file, backup);
        cp(tempfile, file);
        if(file_size(backup)){ rm(backup); }
        if(file_size(tempfile)){ rm(tempfile); }
        write("Replace action complete. File "+file+" modified.\n");
        if(query_verb() == "replace") eventDeactivate();
        return 1;
    }
    write("Syntax: replace <filename> <oldstring> <newstring>\n");
    eventDeactivate();
    return 1;
}

int replace(string str){
    string s1,s2;
    validate();
    if(sizeof(str) && sscanf(str,"%s"+a2+"%s",s1,s2)>1){
        line=s1+a3+s2;
        write("Found string in line "+n+". Replacing with: "+a3+".\n");
        this_object()->replace(line);
    }
    return 1;
}