#include <lib.h>
#include <daemons.h>
inherit LIB_DAEMON;
string new_config_file = "";
mixed cmd(mixed args) {
    string config_file, str;
    string groupname, dudename, s1, s2;
    string *line_array;
    string *top_array;
    string *bottom_array;
    string *cles = ({});
    int action = 0;
    mapping GroupsMap = ([]);
    if( !this_player() || !((int)master()->valid_apply(({ "ASSIST" }))) )
        error("Illegal attempt to access groupmod: "+get_stack()+" "+identify(previous_object(-1)));
    if(!args){
        write(read_file("/secure/cfg/groups.cfg"));
        return 1;
    }
    if(sscanf(args,"%s %s",s1,s2) != 2){
        write("Insufficient number of arguments. Try: help groupmod");
        return 1;
    }
    if(strsrch(args,"-r ") != -1){
        action = -1;
        args = replace_string(args,"-r ","");
    }
    if(strsrch(args,"-a ") != -1){
        action = 1;
        args = replace_string(args,"-a ","");
    }
    if(strsrch(args,"-d ") != -1){
        action = -2;
        args = replace_string(args,"-d ","");
    }
    if(strsrch(args,"-c ") != -1){
        action = 2;
        args = replace_string(args,"-c ","");
    }
    if(sscanf(args,"%s %s",groupname,dudename) == 2 && (abs(action) > 1) ){
        write("Too many arguments for this operation. Please try: help groupmod.");
        return 1;
    }
    if(sscanf(args,"%s %s",groupname,dudename) != 2 && (abs(action) < 2) ){
        write("Insufficient arguments for this operation. Please try: help groupmod.");
        return 1;
    }
    args = upper_case(args);
    top_array = ({});
    bottom_array = ({});
    unguarded( (: cp("/secure/cfg/groups.cfg","/secure/save/backup/groups."+time()) :) );
    config_file = read_file("/secure/cfg/groups.cfg");
    line_array = explode(config_file, "\n");
    if(groupname) str = upper_case(groupname);
    else str = args;
    if(dudename) dudename=(lower_case(dudename));
    line_array = explode(config_file,"\n");
    foreach(string line in line_array){
        string g,m;
        if(sizeof(line)) line = trim(line);
        if(sscanf(line,"(%s)%s",g,m) != 2) 
            if(sscanf(line,"(%s)",g) != 1) continue;
        if(m){
            GroupsMap[g] = explode(trim(m),":");
        }
        else GroupsMap[g] = ({});
    }
    cles = keys(GroupsMap);
    if(str == "ASSIST" || str == "SECURE" ) {
        if(!securep(this_player())){
            write("Only full admins may do this.");
            return 1;
        }
    }
    if(!GroupsMap[str] && (abs(action) < 2)){
        write("No such group.");
        return 1;
    }
    if(!action){
        write("I don't understand what you want. Please specify ");
        write("which action you want, -r, -a, -d, or -c");
        return 1;
    }
    if(action == 1){
        if(member_array(dudename,GroupsMap[str]) != -1){
            write("That person is already a member of that group.");
            return 1;
        }
        if(member_array(str,cles) != -1 && !sizeof(GroupsMap[str])) GroupsMap[str] = ({});
        GroupsMap[str] += ({ dudename });
        write("The group "+str+" now contains the following:\n "+
          implode(GroupsMap[str],":"));
    }
    if(action == -1){
        if(member_array(dudename,GroupsMap[str]) == -1){
            write("That person is already not a member of that group.");
            return 1;
        }
        if((str == "ASSIST" || str == "SECURE") && dudename == this_player()->GetKeyName() ) {
            write("This command will not let you remove yourself from the SECURE or ASSIST groups.");
            return 1;
        }
        GroupsMap[str] -= ({ dudename });
        write("The group "+str+" now contains the following:\n "+
          implode(GroupsMap[str],":"));
    }
    if(action == -2){
        if(member_array(args,cles) == -1){
            write("That group doesn't exist.");
            return 1;
        }
        if(args == "ASSIST" || args == "SECURE" ) {
            write("I'm not doing that. You'll have to hose your mud manually.");
            return 1;
        }
        map_delete(GroupsMap,args);
        write("Group deleted.");
    }
    if(action == 2){
        if(member_array(args,cles) != -1){
            write("That group already exists.");
            return 1;
        }
        GroupsMap[args] = ({});
        write("Group added.");
    }
    foreach(string key, mixed val in GroupsMap){
        new_config_file += "("+key+") "+implode(GroupsMap[key],":")+"\n";
    }
    unguarded( (: write_file("/secure/cfg/groups.cfg",new_config_file,1) :) );
    load_object("/secure/cmds/creators/update")->cmd("/secure/daemon/master");
    load_object("/secure/cmds/creators/update")->cmd("/secure/lib/connect");
    if(str == "SNOOPER") SNOOP_D->SnoopClean();
    new_config_file = "";
    return 1;
}
void help() {
    message("help", "Syntax: groupmod [-a|-r] GROUP NAME \n"
      "        groupmod [-c|-d] GROUP\n\n"
      "Modifies /secure/cfg/groups.cfg with the desired information.\n"
      "To create a group called MUDKIPZ: groupmod -c mudkipz\n"
      "To add Yotsuba as member of that group: groupmod -a mudkipz yotsuba"
      "", this_player());
}