!7

cmodule2 BEALogIn {
  S user, botToken, status;
  
  visual
    jCenteredSection("Log-in to bea.gazelle.rocks",
      makeForm3(
        "User name", dm_textField user(),
        "Bot token", dm_passwordField botToken(),
        "Status", dm_label status(),
        "", dm_button check()));
      
  start {
    check();
  }
  
  void check {
    try {
      S user = trim(this.user), botToken = trim(this.botToken);
      Map data = cast postJSONPage("https://bea.gazelle.rocks/bot/beaList", _user := user, _botToken := botToken, changedAfter := now()+60000);
      L<Map> list = cast data.get("result");
      if (list != null)
        setField(status := "Logged in as " + user);
      else
        setField(status := "Error: " + str(data.get("error")));
    } catch print e {
      setField(status := "Error: " + exceptionToStringShort(e));
    }
  }
}