!7

cmodule eeZee > DynDiscordHopper {
  switchable S httpURL = "https://55392290.ngrok.io";
  switchable S serverName;
  
  S prefix = "<@599426196647706645> ";
  transient double sendTypingAfter = 6.0;

  L<Long> authorizedUsers = ll(463778175432785932, 547706854680297473);
  
  transient NotTooOften ntoError = notTooOften_1min();
  
  @Override S answer(S input, Map map) {
    try answer super.answer(input, map);
    
    setField(prefix := "<@" + gazelle_selfUserID() + "> ");
    
    //setField(httpURL := or2(loadProgramTextFile("http-url"), httpURL));
    
    new Matches m;
    
    long userID = getLong userID(map);
    print("User ID: " + userID);
    
    if (eqic(input, "hey " + trim(prefix)))
      ret "hey";
    
    if (swic_trim(input, prefix + "add master ", m)) {
      if (!contains(authorizedUsers, userID))
        ret "You are not my master";
        
      add(authorizedUsers, parseFirstLong(m.rest()));
      change();
      
      ret "Okidoki. Have " + n2(l(authorizedUsers), "master");
    }
    
    if (swic_trim(simpleSpaces_noTok(input), prefix + "set url ", m)) {
      if (!contains(authorizedUsers, userID))
        ret "You are not my master";

      setField(httpURL := m.rest());
      saveProgramTextFile("http-url", httpURL);
      ret "URL set to " + httpURL + ", master";
    }
    
    long time = sysNow();
    S s;
    
    if (eqic(httpURL, "disabled")) null;
    
    try {
      temp doAfterSecondsIfStillRunning(sendTypingAfter, r { iAmTyping(map) });
      s = loadPageWithTimeout(60.0, httpURL + hquery(message := input, +userID, channelID := map.get('channelID)));

      print("Got " + (s == null ? "timeout" : nChars(s)) + " in " + elapsedSeconds(time) + " s");
      ret s;
    } catch e {
      if (!ntoError.yo()) null;
      S str = exceptionToStringShort(e);
      if (cicOneOf(str, "Server returned HTTP response code: 502",
        "FileNotFoundException", "SocketTimeoutException")) // rough
        ret null with print("Bot is offline (502/404/timeout, " + elapsedSeconds(time) + " s)");
      print(e);
      ret "Error: " + shorten(100, str);
    }
  }
  
  start {
    dm_registerAs_directLink('eeZee);
  }
}