!7

set flag JDA40.

!include once #1026298 // DynTalkBot2 for JDA 4.0

standardBot1 RolesExporter {
  init {
    myName = "HyperCubes";
    preprocessAtSelfToMyName = true;
  }
  
  sync S processSimplifiedLine(S s, O... _) {
    try answer super.processSimplifiedLine(s, _);

    if null (s = dropMyPrefixOrNull(s)) null;
    
    optPar long channelID;

    if "export" {
      Map data = makeData();
      S text = jsonEncode_breakAtNLevels(2, data);
      uploadFileInChannel(channelID,
        toUtf8(text),
        "roles-" + guild.getIdLong() + ".json", null, null);
      null;
    }
    
    null;
  }

  Map makeData() {  
    L roles = map(guild.getRoles(),
      r -> litorderedmap("name" := r.getName(), "id" := r.getIdLong()));
    L members = map(guild.getMembers(),
      m -> litorderedmap("name" := m.getName(), "id" := m.getIdLong()));
    ret litmap(
      guild := litorderedmap(
        name := guild.getName(),
        id := guild.getIdLong()),
      date := dateWithSecondsGMT(),
      +roles,
      +members);
  }
}