!7

do not include class And.
set flag OurSyncCollections.

sS dbBotID = #1028421;
sbool newDesign = true; // use new chat bot design
sbool ariaLiveTrick = false;
sbool ariaLiveTrick2 = true;

sS templateID = #1028653;
sS cssID = #1028652;

sS thoughtBotID = null; // thought bot is this program
sS botName = "BookBetter";
sS heading = "Schedule";
sS botImageID = #1102935;
sS userImageID = #1102803;
sS chatHeaderImageID = #1102802;
sS timeZone = californiaTimeZone_string(); 
sS timeZoneForGoogleAPI = "America/Los_Angeles";

sS baseLink;
sbool botOnRight = true;

!include once #1028434 // WorkerChat 
static new WorkerChat workerChat;

!include once #1028621 // Booking

!include once #1028656 // TestScripting
 
 p {
  standardTimeZone_name = timeZone;
  thoughtBot = mc();
  baseLink = "https://botcompany.de/" + psI(programID()) + "/raw";
  pWebChatBot();
  booking = new Booking;
}

svoid processParams(SS map) {}

static new ThreadLocal<Out> out;
static new ThreadLocal<Conversation> conv;

static transient long lastConversationChange = now();

sbool testFunctions = false;

sclass FormStep {
  S key;
  S displayText, desc;
  S defaultValue;
  S placeholder; // null for same as displayText, "" for none
  LS buttons;
  bool allowFreeText; // only matters when there are buttons
  S value;
  
  // called before data entry
  void update(Runnable onChange) {}

  // called after data entry
  // return error message or null
  // call conv->cancelForm(); to cancel the form (and make sure to return a text)
  S verifyData(S s) { null; }
}

sclass FormInFlight {
  Conversation conversation;
  S hashTag;
  new L<FormStep> steps;
  int stepIndex; // in steps list
  
  S handleInput(S s) { null; }
  
  FormStep currentStep() {
    ret get(steps, stepIndex);
  }
  
  void update(Runnable onChange) {
    if (currentStep() != null) currentStep().update(onChange);
  }
  
  S complete() { ret "Form complete"; }
  S cancel() { ret "Request cancelled"; }

  FormStep byKey(S key) {
    ret objectWhere(steps, +key);
  }
  
  S getValue(S key) {
    FormStep step = byKey(key);
    ret step?.value;
  }
  
  SS allValues() {
    SS map = litorderedmap();
    for (FormStep step : steps)
      map.put(step.key, step.value);
    ret map;
  }
  
  bool allowGeneralOverride() { false; }

  Conversation cancelMe() {
    Conversation conv = conversation;
    conversation.cancelForm();
    ret conv;
  }
  
  void change {
    if (conversation != null) conversation.change();
  }
}

sbool debug;

sS answer(S s) {
  out.set(new Out);
  if (creator() == null) if "debug" set debug;
  
  S a = rawAnswer(s);
  
  // handle hashtags
  LS tokHashtags = regexpICMatchesAsCNC(regexpNegativeLookbehind("\\w") + "#\\w+\\b", a);
  for (int i = 1; i < l(tokHashtags); i += 2) {
    print("Found hashtag " + tokHashtags.get(i));
    /*S a2 = Handover.handleHashtag(conv!, tokHashtags.get(i));
    if (a2 != null) {
      print("Replaced with " + quote(a2));
      tokHashtags.set(i, a2);
    }*/
  }
  
  a = join(tokHashtags);
  ret deliverAnswerAndFormStep(a);
}

sS rawAnswer(S s) {
  FormInFlight form = conv->form;
  S a = null;
  
  // enter propose mode, get general answer / booking answer
  
  O bot = getDBBot();
  out->proposeMode = true;
  S generalAnswer;
  {
    // call without #default
    temp tempSetTL((ThreadLocal) getOpt(bot, 'opt_noDefault), true);
    generalAnswer = (S) call(bot, 'answer, s, conv->language());
  }
  
  // booking - use pcall because precise dates may fail to be parsed
  
  if (generalAnswer == null) pcall {
    generalAnswer = booking.answer(s, conv!);
    print("Booking answer to " + s + ": " + generalAnswer+ " with form: " + out->proposedForm);
  }

  out->proposeMode = false;

  if (form != null && generalAnswer != null && form.allowGeneralOverride())
    conv->cancelForm();
  else if (form != null) {
    if ((a = form.handleInput(s)) != null) ret a;

    if (eqicOneOf(s, "cancel", "Abbrechen", unicode_crossProduct())) {
      S answer = form.cancel();
      conv->cancelForm();
      ret answer;
    } else if (eqicOneOf(s, "back", "zurück", unicode_undoArrow()) && form.stepIndex > 0) {
      --form.stepIndex;
      conv->change();
      ret "";
    } else if (form.currentStep() != null) {
      FormStep step = form.currentStep();
      if (!step.allowFreeText && nempty(step.buttons) && !cic(step.buttons, s))
        ret de() ? "Bitte wählen Sie eine Option!" : "Please choose an option.";
      print("Verifying data " + quote(s) + " in step " + step);
      S error = step.verifyData(s);
      if (error != null)
        ret error;

      step.value = s;
      ++form.stepIndex;
      conv->change();
      if (form.currentStep() == null) {
        S answer = form.complete();
        if (conv->form == form)
          conv->cancelForm(); // if complete() hasn't put us on a new form
        ret answer;
      }
      ret "";
    }
  }

  // process general answer, switch language
  
  a = generalAnswer;
  if (a == null)
    a = (S) call(bot, 'answer, "#default", conv->language());
    
  if (out->proposedForm != null)
    conv->setForm(out->proposedForm);
    
  ret a;
}

sS deliverAnswerAndFormStep(S answer) {
  FormInFlight form = conv->form; // form may have cancelled itself in update
  if (form == null || form.currentStep() == null)  ret answer;
  
  FormStep step = form.currentStep();
  printVars_str(+answer, displayText := step.displayText);
  answer = joinNemptiesWithSpace(answer, step.displayText);
  out->placeholder = or(step.placeholder, step.displayText);
  print("Step " + form.stepIndex + ": " + sfu(step));
  out->defaultInput = or2(step.value, step.defaultValue);
  out->buttons = cloneList(step.buttons);
  if (form.stepIndex > 0) out->buttons.add(de() ? "Zurück" : "Back");
  out->buttons.add(de() ? "Abbrechen" : "Cancel");
  ret answer;
}

sS initialMessage() {
  if (out! != null) out->placeholder = template("#typeADay");
  
  if (booking.conf.dateSuggestionsInGreeting == 0)
    ret getCannedAnswer("#greetingWithoutSuggestions", conv!);
    
  if (booking.anyBookingPossible()) pcall {
    print("Booking possible");
    LongRange range = booking.maxLead(nowInConv(conv!));

    TreeSet<Long> possibleDates = booking.possibleDates(range, conv->testMode);
    print("Possible dates: " + l(possibleDates));
    if (nempty(possibleDates)) {
      proposeForm(new ProposeAppointmentsForm(possibleDates, booking.conf.dateSuggestionsInGreeting));
      ret getCannedAnswer("#greeting", conv!);
    }
    
    ret template("#greetingBookedOut");
  }
  
  ret getCannedAnswer("#bookingClosed", conv!);
}

sO getDBBot() {
  ret getBot(dbBotID);
}

sbool de() {
  ret eqic(conv->language(), "de");
}

// Web Chat Bot Include

sO thoughtBot;

static int longPollTick = 200;
static int longPollMaxWait = 1000*30; // lowered to 30 seconds
static int activeConversationSafetyMargin = 15000; // allow client 15 seconds to reload

static Set<S> specialButtons = litciset("Cancel", "Back", "Abbrechen", "Zurück");

sclass Out extends DynamicObject {
  LS buttons;
  bool multipleChoice;
  S multipleChoiceSeparator;
  S placeholder;
  S defaultInput;
  Int progressBarValue;
  bool glow;
  
  transient bool proposeMode;
  transient FormInFlight proposedForm;
}

sclass Msg extends DynamicObject {
  long time;
  bool fromUser;
  Worker fromWorker;
  S text;
  Out out;
  
  *() {}
  *(bool *fromUser, S *text) { time = now(); }
  *(S *text, bool *fromUser) { time = now(); }
}

concept AuthedDialogID {
  S dialogID;
  Worker loggedIn; // who is logged in with this cookie
}

//concept Session {} // LEGACY

// our base concept - a conversation between a user and a bot or sales representative
concept Conversation {
  S cookie, ip, country;
  new LL<Msg> oldDialogs;
  new L<Msg> msgs;
  long lastPing;
  bool botOn = true;
  Worker worker; // who are we talking to?
  transient long userTyping, botTyping; // sysNow timestamps
  bool testMode;
  transient bool dryRun;
  transient FormInFlight proposedForm;
  
  FormInFlight form;
  S language;
  Long lastProposedDate;

  void add(Msg m) {
    m.text = trim(m.text);
    if (!m.fromUser && empty(m.text)) ret; // don't store empty msgs from bot
    syncAdd(msgs, m);
    noteConversationChange();
    change();
    vmBus_send chatBot_messageAdded(mc(), this, m);
  }
  
  int allCount() { ret lengthLevel2(oldDialogs) + l(msgs); }
  int archiveSize() { ret lengthLevel2(oldDialogs); }
  
  long lastMsgTime() { Msg m = last(msgs); ret m == null ? 0 : m.time; }
  
  void cancelForm {
    if (form != null) {
      print("Cancelling form " + form);
      form.conversation = null;
      cset(this, form := null);
    }
  }
  
  <A extends FormInFlight> A setForm(A form) {
    form.conversation = this;
    cset(this, +form);
    ret form;
  }
  
  S language() { ret or2(language, 'en); }
  
  void updateForm {
    if (form != null) form.update(r change);
  }
  
  void turnBotOff {
    cset(this, botOn := false);
    noteConversationChange();
    updateForm();
  }

  void turnBotOn {  
    cset(this, botOn := true, worker := null);
    S backMsg = getCannedAnswer("#botBack", this);
    if (empty(msgs) || lastMessageIsFromUser() || !eq(last(msgs).text, backMsg))
      add(new Msg(backMsg, false));
    noteConversationChange();
  }
  
  bool lastMessageIsFromUser() {
    ret nempty(msgs) && last(msgs).fromUser;
  }
  
  void newDialog {
    cancelForm();
    lastProposedDate = null;
    oldDialogs.add(msgs);
    cset(this, msgs := new L);
    change();
    vmBus_send chatBot_clearedSession(mc(), this);
  }
}

// a message a bot module proposes to send
concept ProposedMsg {
  O authoringObject;
  S text;
  Conversation conversation; // can be set early
  Msg said; // only set if msg was actually posted
}

svoid pWebChatBot {
  dbIndexing(Conversation, 'cookie, Conversation, 'worker,
    Conversation, 'lastPing,
    Worker, 'loginName, AuthedDialogID, 'dialogID);
  Class envType = fieldType(thoughtBot, "env");
  if (envType != null)
    setOpt(thoughtBot, "env", proxy(envType, (O) mc()));
}

sO html(S uri, SS params) {
  temp tempRegisterThread();
  
  if (eqic(uri, "/twilioWebhook"))
    ret booking.serveTwilioWebhook(uri, params);

  S cookie = params.get('cookie);
  if (empty(cookie)) {
    registerVisitor();
    cookie = cookieSent();
  }
  
  bool workerMode = nempty(params.get("workerMode")) || startsWith(uri, "/worker");
  
  Conversation conv = nempty(cookie) ? getConv(cookie) : null;
  if (conv != null && !workerMode)
    cset(conv, ip := subBot_clientIP());
  print("URI: " + uri + ", cookie: " + cookie + ", msgs: " + l(conv.msgs));
  
  S dialogID = getDialogID(); // for authing
  
  S pw = trim(params.get('pw));
  if (nempty(pw)) {
    S realPW = loadSecretTextFileOrCreateWithRandomID("password.txt");
    if (neq(pw, realPW))
      ret errorMsg("Bad password, please try again");
    uniq AuthedDialogID(+dialogID);
    if (nempty(params.get('redirect)))
      ret hrefresh(params.get('redirect));
  }
  
  new Matches m;
  if (startsWith(uri, "/worker-image/", m)) {
    long id = parseLong(m.rest());
    ret subBot_serveFile(workerImageFile(id), "image/jpeg");
  }
  
  AuthedDialogID auth = authObject();
  bool requestAuthed = auth != null;
  
  if (eq(uri, "/stats")) {
    if (!requestAuthed) ret serveAuthForm(rawLink(uri));
    ret "Threads: " + ul_htmlEncode(getThreadNames(registeredThreads()));
  }
      
  if (eq(uri, "/logs")) {
    if (!requestAuthed) ret serveAuthForm(rawLink(uri));
    ret webChatBotLogsHTML2(rawLink(uri), params);
  }
  
  if (eq(uri, "/auth-only")) {
    if (eq(params.get('logout), "1"))
      cdelete(AuthedDialogID, dialogID := getDialogID());
    if (!requestAuthed) ret serveAuthForm(params.get('uri));
    ret "";
  }
  
  if (workerChat != null)
    try object workerChat.html(uri, params, conv, auth);

  if (booking != null)
    try object booking.html(uri, params, auth);

  try object TestScripting.html(uri, params, auth);

  {
    lock dbLock();
    
    S message = trim(params.get("btn"));
    if (empty(message)) message = trim(params.get("message"));
    
    if (match("new dialog", message)) {
      conv.newDialog();
      message = null;
    }
    
    main.conv.set(conv);
    
    if (!workerMode && empty(conv.msgs))
      addReplyToConvo(conv, () -> deliverAnswerAndFormStep(initialMessage()));

    if (nempty(message) && !lastUserMessageWas(conv, message)) {
      print("Adding message: " + message);
      if (workerMode) {
        Msg msg = new(false, message);
        msg.fromWorker = auth.loggedIn;
        conv.add(msg);
      } else
        conv.add(new Msg(true, message));
    }
    
    S testMode = params.get("testMode");
    if (nempty(testMode)) {
      print("Setting testMode", testMode);
      cset(conv, testMode := eq("1", testMode));
    }
  
    if (!workerMode && conv.botOn && nempty(conv.msgs) && last(conv.msgs).fromUser)
      addReplyToConvo(conv, () -> makeReply(last(conv.msgs).text));
  } // locked
  
  if (eq(uri, "/msg")) ret withHeader("OK");
  
  if (eq(uri, "/typing")) {
    if (workerMode) {
      conv.botTyping = sysNow();
      print(conv.botTyping + " Bot typing in: " + conv.cookie);
    } else {
      conv.userTyping = sysNow();
      print(conv.userTyping + " User typing in: " + conv.cookie);
    }
    ret withHeader("OK");
  }
  
  if (eq(uri, "/incremental")) {
    vmBus_send chatBot_userPolling(mc(), conv);
    cset(conv, lastPing := now());
    int a = parseInt(params.get("a"));

    long start = sysNow();
    L msgs;
    bool first = true;
    while (licensed() && sysNow() < start+longPollMaxWait) {
      int as = conv.archiveSize();
      msgs = cloneSubList(conv.msgs, a-as);
      bool newDialog = a <= as;
      long typing = workerMode ? conv.userTyping : conv.botTyping;
      bool otherPartyTyping = typing > start;
      
      if (empty(msgs) && !otherPartyTyping) {
        if (first) {
          print("Long poll starting on " + cookie + ", " + a + "/" + a);
          first = false;
        }
        sleep(longPollTick);
      } else {
        if (first) print("Long poll ended.");
        new StringBuilder buf;
        if (otherPartyTyping) {
          print("Noticed " + (workerMode ? "user" : "bot") + " typing in " + conv.cookie);
          buf.append(hscript("showTyping();"));
        }
        renderMessages(buf, msgs);
        if (ariaLiveTrick2 && !workerMode) {
          Msg msg = lastBotMsg(msgs);
          if (msg != null) {
            S author = msg.fromWorker != null ? htmlEncode2(msg.fromWorker.displayName) : botName;
            buf.append(hscript([[$("#screenreadertrick").html(]] + jsQuote(author + " says: " + msg.text) + ");"));
          }
        }
        if (a != 0 && anyInterestingMessages(msgs, workerMode))
          buf.append(hscript(
            "window.playChatNotification();\n" +
            "window.setTitleStatus(" + jsQuote((workerMode ? "User" : botName) + " says…") + ");"
          ));
        ret withHeader("<!-- " + conv.allCount() + " " + (newDialog ? "NEW DIALOG " : "") + "-->\n"  + buf);
      }
    }
    ret withHeader("");
  }
  
  {
    lock dbLock();
    processParams(params);
    S html = loadSnippet(templateID); // TODO: cache

    S workerModeParam = workerMode ? "workerMode=1&" : "";
    S langlinks = "<!-- langlinks here -->";
    if (html.contains(langlinks))
      html = html.replace(langlinks,
        ahref(rawLink("eng"), "English") + " | " + ahref(rawLink("deu"), "German"));
    
    html = html.replace("#BOTIMG#", imageSnippetURLOrEmptyGIF(chatHeaderImageID));
    html = html.replace("#N#", "0");
    html = html.replace("#INCREMENTALURL#", baseLink + "/incremental?" + workerModeParam + "a=");
    html = html.replace("#MSGURL#", baseLink + "/msg?" + workerModeParam + "message=");
    html = html.replace("#TYPINGURL#", baseLink + "/typing?" + workerModeParam);
    html = html.replace("#CSS_ID#", psI_str(cssID));
    if (ariaLiveTrick || ariaLiveTrick2)
      html = html.replace([[aria-live="polite">]], ">");
    html = html.replace("#OTHERSIDE#", workerMode ? "User" : "Representative");
    if (nempty(params.get("debug")))
      html = html.replace("var showActions = false;", "var showActions = true;");
  
    html = html.replace("#AUTOOPEN#", jsBool(workerMode || botAutoOpen()));
    html = html.replace("#BOT_ON#", jsBool(botOn()));
    html = html.replace("$HEADING", heading);
    html = html.replace("#WORKERMODE", jsBool(workerMode));
    html = html.replace("<!-- MSGS HERE -->", "");
    html = hreplaceTitle(html, heading);
    
    if (eqGet(params, "_botDemo", "1"))
      ret hhtml(hhead(
        htitle(heading)
        + loadJQuery()
      ) + hbody(hjavascript(html)));
    else
      ret withHeader(subBot_serveJavaScript(html));
  }
}

svoid addReplyToConvo(Conversation conv, IF0<S> think) {
  out.set(new Out);
  S reply = "";
  pcall {
    reply = think!;
  }
  Msg msg = new Msg(false, reply);
  msg.out = out!;
  conv.add(msg);
}

sO withHeader(S html) {
  ret withHeader(subBot_noCacheHeaders(subBot_serveHTML(html)));
}

sO withHeader(O response) {
  call(response, 'addHeader, "Access-Control-Allow-Origin", "*");
  ret response;
}

sS renderMessageText(S text, bool htmlEncode) {
  text = trim(text);
  if (htmlEncode) text = htmlEncode2(text);
  text = nlToBr(text);
  ret replace(text, ":wave:", html_wavingHand());
}

svoid renderMessages(StringBuilder buf, L<Msg> msgs) {
  if (empty(msgs)) ret;
  new Set<S> buttonsToSkip;
  new LS buttonsHtml;
  for (Msg m : msgs) {
    if (!m.fromUser && eq(m.text, "-")) continue;
    S html = renderMessageText(m.text, shouldHtmlEncodeMsg(m));
    // pull back & cancel buttons to beginning of msg
    if (m == last(msgs) && m.out != null) {
      fOr (S btn : m.out.buttons)
        if (specialButtons.contains(btn)) {
          buttonsToSkip.add(btn);
          buttonsHtml.add(renderButtons(ll(btn)));
        }
    }
    if (nempty(buttonsHtml) && l(m.out.buttons) == l(buttonsToSkip))
      html += " " + hspan("&nbsp;&nbsp;", class := "chat-button-span") + lines(buttonsHtml);
    else
      buttonsToSkip.clear();
    appendMsg(buf, m.fromUser ? defaultUserName() : botName, formatTime(m.time), html, !m.fromUser, m.fromWorker);
  }
      
  appendButtons(buf, last(msgs).out, buttonsToSkip);
}

svoid appendMsg(StringBuilder buf, S name, S time, S text, bool bot, Worker fromWorker) {
  bool useTrick = ariaLiveTrick;
  S tag = useTrick ? "div" : "span";
  if (bot) {
    S id = randomID();
    S author = fromWorker != null ? htmlEncode2(fromWorker.displayName ): botName;
    if (fromWorker != null) buf.append([[<div class="chat_botname"><p>]] + author + [[</p>]]);
    buf.append("<" + tag + [[ class="chat_msg_item chat_msg_item_admin"]] + (useTrick ? [[ id="]] + id + [[" aria-live="polite" tabindex="-1"]] : "") + ">");
    S imgURL = snippetImgLink(botImageID);
    if (fromWorker != null && fileExists(workerImageFile(fromWorker.id)))
      imgURL = fullRawLink("worker-image/" + fromWorker.id);
  
    if (nempty(imgURL))
      buf.append([[
        <div class="chat_avatar">
          <img src="$IMG"/>
        </div>]]
        .replace("$IMG", imgURL));
      
    buf.append([[<span class="sr-only">]] + (fromWorker != null ? "" : botName + " ") + [[says</span>]]);
    buf.append(text);
    buf.append([[</]] + tag + [[>]]);
    if (fromWorker != null) buf.append("</div>");
    if (useTrick) buf.append(hscript("$('#" + id + "').focus();"));
  } else
    buf.append(([[
      <span class="sr-only">You say</span>
      <]] + tag + [[ class="chat_msg_item chat_msg_item_user"]] + (useTrick ? [[ aria-live="polite"]] : "") + [[>$TEXT</]] + tag + [[>
    ]]).replace("$TEXT", text));
}

sS replaceButtonText(S s) {
  if (eqicOneOf(s, "back", "zurück")) ret unicode_undoArrow();
  if (eqicOneOf(s, "cancel", "Abbrechen")) ret unicode_crossProduct();
  ret s;
}

sS renderMultipleChoice(LS buttons, Cl<S> selections, S multipleChoiceSeparator) {
  print(+selections);
  Set<S> selectionSet = asCISet(selections);
  S rand = randomID();
  S className = "chat_multiplechoice_" + rand;
  S allCheckboxes = [[$(".]] + className + [[")]];
  ret joinWithBR(map(buttons, name ->
    hcheckbox("", contains(selectionSet, name),
      value := name,
      class := className) + " " + name))
    + "<br>" + hbuttonOnClick_returnFalse("OK", "submitMsg()", style := "float: right")
    + hscript(allCheckboxes
      + ".change(function() {"
      //+ "  console.log('multiple choice change');"
      + " var theList = $('." + className + ":checkbox:checked').map(function() { return this.value; }).get();"
      + "  console.log('theList: ' + theList);"
      + "  $('#chat_message').val(theList.join(" + jsQuote(multipleChoiceSeparator) + "));"
      + "});");
}

sS renderButtons(LS buttons) {
  new LS out;
  for i over buttons: {
    S code = buttons.get(i);
    S text = replaceButtonText(code);
    out.add(hbuttonOnClick_returnFalse(text, "submitAMsg(" + jsQuote(text) + ")", class := "chatbot-choice-button", title := eq(code, text) ? null : code));
    if (!specialButtons.contains(code)
      && i+1 < l(buttons) && specialButtons.contains(buttons.get(i+1)))
      out.add("&nbsp;&nbsp;");
  }
  ret lines(out);
}

svoid appendButtons(StringBuilder buf, Out out, Set<S> buttonsToSkip) {
  S placeholder = out == null ? "" : unnull(out.placeholder);
  S defaultInput = out == null ? "" : unnull(out.defaultInput);
  buf.append(hscript("chatBot_setInput(" + jsQuote(defaultInput) + ", " + jsQuote(placeholder) + ");"));
  if (out == null) ret;
  LS buttons = listMinusSet(out.buttons, buttonsToSkip);
  if (empty(buttons)) ret;
  printVars_str(+buttons, +buttonsToSkip);
  S buttonsHtml;
  if (out.multipleChoice)
    buttonsHtml = renderMultipleChoice(buttons,
      mcSplit(out.defaultInput, out.multipleChoiceSeparator), out.multipleChoiceSeparator);
  else
    buttonsHtml = renderButtons(buttons);
  
  buf.append([[<span class="chat_msg_item chat_msg_item_admin chat_buttons">]]);
  buf.append(buttonsHtml);
  buf.append([[</span>]]);
}

svoid appendDate(StringBuilder buf, S date) {
  buf.append([[
  <div class="chat-box-single-line">
    <abbr class="timestamp">DATE</abbr>
  </div>]].replace("DATE", date));
}

static bool lastUserMessageWas(Conversation conv, S message) {
  Msg m = last(conv.msgs);
  ret m != null && m.fromUser && eq(m.text, message);
}

sS makeReply(S message) {
  try {
    ret answer(message);
  } catch print e {
    ret "Internal error";
  }
}

sS formatTime(long time) {
  ret timeInTimeZoneWithOptionalDate_24(timeZone, time);
}

sS formatDialog(S id, L<Msg> msgs) {
  new L<S> lc;
  for (Msg m : msgs)
    lc.add(htmlencode((m.fromUser ? "> " : "< ") + m.text));
  ret id + ul(lc);
}

static Conversation getConv(fS cookie) {
  ret withDBLock(func -> Conversation {
    uniq(Conversation, +cookie)
  });
}

sS serveAuthForm(S redirect) {
  ret hhtml(hhead(htitle("Authorization required")) + hbody(hfullcenter(
    h3_htmlEncode(heading + " Admin")
    + hpostform(
      hhidden(+redirect)
    + "Password: " + hpassword('pw) + "<br><br>" + hsubmit()))));
}

sS errorMsg(S msg) {
  ret hhtml(hhead_title("Error") + hbody(hfullcenter(msg + "<br><br>" + ahref(jsBackLink(), "Back"))));
}

sS defaultUserName() {
  ret de() ? "Sie" : "You";
}

sbool botOn() {
  ret isTrue(call(getDBBot(), "botOn"));
}

sbool botAutoOpen() {
  ret isTrue(call(getDBBot(), "botAutoOpen"));
}

static File workerImageFile(long id) {
  ret id == 0 ? null : javaxDataDir("adaptive-bot/images/" + id + ".jpg");
}

static long activeConversationTimeout() {
  ret longPollMaxWait+activeConversationSafetyMargin;
}

static AuthedDialogID authObject() {
  ret conceptWhere AuthedDialogID(dialogID := getDialogID());
}

sbool anyInterestingMessages(L<Msg> msgs, bool workerMode) {
  ret any(msgs, m -> m.fromUser == workerMode);
}

sbool shouldHtmlEncodeMsg(Msg msg) {
  ret msg.fromUser;
}

sS getCountry(Conversation c) {
  if (empty(c.country) && nempty(c.ip))
    cset(c, country := ipToCountry2020_safe(c.ip));
  ret or2(c.country, "?");
}

svoid noteConversationChange {
  lastConversationChange = now();
}

// TODO: check that action is persistable & persist
svoid addTimeout(double seconds, Runnable action) {
  doAfter(seconds, action);
  print("Timeout added: " + seconds + " => " + action);
}

sS template(S hashtag, O... params) {
  ret replaceSquareBracketVars(getCannedAnswer(hashtag), params);
}

sS getCannedAnswer(S hashtag, Conversation conv default null) {
  if (!startsWith(hashtag, "#")) ret hashtag;
  S lang = conv == null ? "en" : conv.language();
  temp tempSetTL((ThreadLocal) getOpt(getDBBot(), 'opt_noDefault), true);
  ret or2((S) call(getDBBot(), 'answer, hashtag, lang), hashtag); // keep hashtag if no answer found
}

static LS mcSplit(S input, S multipleChoiceSeparator) {
  ret trimAll(splitAt(input, dropSpaces(multipleChoiceSeparator)));
}

static Msg lastBotMsg(L<Msg> l) {
  ret lastThat(l, msg -> !msg.fromUser);
}

sS dbStats() {
  Cl<Conversation> all = list(Conversation);
  int nTestConvos = countPred(all, c -> startsWith(c.cookie, "test_"));
  ret n2(l(all)-nTestConvos, "real conversation") + ", " + n2(nTestConvos, "test conversation");
}

svoid proposeForm(Conversation conversation default conv!, FormInFlight form) {
  if (out! != null && out->proposeMode)
    out->proposedForm = form;
  else if (conversation != null)
    conversation.setForm(form);
}

Began life as a copy of #1028300