!7

cmodule MultiCommClient {
  switchable S password;
  
  transient S botID = #1026281;
  
  enhanceFrame { minFrameSize(f, 300, 300); }
  
  visualize {
    if (empty(password) || !testPassword()) {
      JPasswordField pw = centerTextField(jpassword(password));
      ret jfullcenter(withCenteredTitle("Please enter password:",
        onEnter(pw, r {
          setField(password := gtt(pw));
          revisualize();
        })));
    }

    ret jlabel("Logged in");
  }
  
  bool testPassword() {
    bool ok = startsWith(loadPage(appendQueryToURL(rawBotLink(botID, "testAuth"), _pass := password)), "OK");
    if (!ok)
      infoBox("Password check failed");
    ret ok;
  }
}